ＶＢＡの初心者です。

締切済

質問者：kazoo1159
質問日時：2008/09/28 13:06
回答数：1件

ヤフーファイナンスで出来高ランキングのデータを落としているんですけど。
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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： end-u
回答日時：2008/09/29 20:01

多少時間がかかっても、取得できていれば良いような気がしますが。

ただ、今後のスキルアップの為に勉強されるのは良い事だとも思います。
XMLHTTPオブジェクト（"MSXML2.ServerXMLHTTP"）や RegExpオブジェクト（"VBScript.RegExp"）
について調べてみると良いでしょう。

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