Excel webクエリ データ抽出に時間がかかる

質問

エクセルのwebクエリを使ってヤフーファイナンスよりデータをダウンロードしたいと考えています。
ネットで調べて以下のようなマクロを組みましたが、実行してから完了するまで１秒ほどかかります。

Sub データ抽出()
With Worksheets("test")
With .QueryTables.Add(Connection:="URL;http://stocks.finance.yahoo.co.jp/stocks/history/?code=1301.T", Destination:=Range("$A$1"))
.WebSelectionType = xlSpecifiedTables
.WebTables = "2"
.Refresh BackgroundQuery:=False
.Parent.Names(.Name).Delete
.Delete
End With
End With
End Sub

上のものは【1301】(株)極洋のものですが、これを全銘柄で実行したいのですが、時間がかかりすぎます。
みなさんもそのくらいのスピードで行っているのでしょうか。
改善するところがあれば教えていただきたいです。
OSはwindows7, Excelは2010です。

宜しくお願いします。

回答No.1

keithin · ベストアンサー

基本的なところは押さえてあるマクロになってますから，単純にその程度のレスポンスだと思います。

敢えて言えば，「毎回クエリを植えて削除して」を繰り返すんじゃなく，
１．今のマクロを次のようにして，必要な銘柄のクエリを一渡りブックに埋める
Sub データ抽出()
With Worksheets("test")
With .QueryTables.Add(Connection:="URL;http://stocks.finance.yahoo.co.jp/stocks/history/?code=1301.T", Destination:=Range("$A$1"))
.WebSelectionType = xlSpecifiedTables
.WebTables = "2"
.Refresh BackgroundQuery:=true
End With
End With
End Sub

２．必要な数のWEBクエリを植え終わったら，あとは
sub データ更新()
activeworkbook.refreshall
end sub
とだけ実行する

といった方策で，もしかするとちょびっとほどですが改善しないかやってみるぐらいかなと思います。

お礼

お早いご回答本当にありがとうございます。
さっそく試してみましたが、確かに少し早いようですがやはり劇的には変わらないようですね（＾＾；
このようなやり方があることがわかり、とても勉強になりました。ありがとうございました。

3000ほどある銘柄についてすべてクエリを植えるので、一度植えたクエリをその都度削除していかないとどんどん動きが重くなっていってしまうんです。

質問事項と方向が少々変わってしまいますが、ウェブページから取得した情報をエクセルwebクエリのようにシート上に表示はせず、バックグラウンドで取得・計算するようなことはできないでしょうか。検索をかけてみましたがなかなか見つけられませんでした。
もしもわかりますようでしたら何かキーワードを教えていただけないでしょうか。

どうぞよろしくお願いします。