ＶＢＡの初心者です。

質問

ヤフーファイナンスで出来高ランキングのデータを落としているんですけど。
1-50、50-100、101-150と1-1000までわけてるんですが、以下のような感じです。

With ActiveSheet.QueryTables.Add(Connection:= _
\"URL;http://quoterank.yahoo.co.jp/ranking/（省略)\" _
, Destination:=Range(\"A1\"))
.RefreshStyle = xlOverwriteCells
.AdjustColumnWidth = False
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = \"17\"
.Refresh BackgroundQuery:=False
End With

多少時間がかかるためもっと早い方法を教えていただけませんか？ＶＢＡを学習しはじめたばかりのため、あまり難しいことはわかりかねますが。

回答No.1

end-u

多少時間がかかっても、取得できていれば良いような気がしますが。
ただ、今後のスキルアップの為に勉強されるのは良い事だとも思います。
XMLHTTPオブジェクト（"MSXML2.ServerXMLHTTP"）や RegExpオブジェクト（"VBScript.RegExp"）
について調べてみると良いでしょう。

『Web ページをダウンロードする方法～ MSXML 編～』
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsVbaXMLHTTP.html