VB webデータの取得

web（気象データ)を取得するプログラムを以前マクロで組んでいたのですが，これを今回諸事情によりVB2010で再構築していますが，どうすればいいか悩んでいます．
以下はマクロプログラムです．
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.data.jma.go.jp/obd/stats/etrn/view/ho … & AD2 & "&year=" & y & "&month=" & m & "&day=" & d & "&view=" , Destination:=Range("D" & R))

.RefreshStyle = xlOverwriteCells
.AdjustColumnWidth = False
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "10" '時々変更あり、最近は19
.Refresh BackgroundQuery:=False
End With

これを，どなたかVB版に変換して頂けませんでしょうか?
取得したデータはデータソースに格納する

よろしくお願いいたします．

No.1 回答者： web2525 回答日時： 2012/12/28 10:33

http://hanatyan.sakura.ne.jp/patio/read.cgi?no=318

やりたいことは、上記サイトのまんまですよね

webクエリはExcelの機能なので、Excel上での実行が必要です

Excelで
日付データの取り込み⇒webクエリ実行⇒取り込んだデータを成形しファイル保存⇒Excel終了
の自動実行マクロ作成してVB上から呼び出して、保存されたファイルデータを再処理する方が、すべてVB上で処理するより修正が安易なような気がします