こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

VBAの初心者です。

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

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

投稿日時 - 2008-09-28 13:06:48

QNo.4362469

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

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

投稿日時 - 2008-09-29 20:01:30

あなたにオススメの質問