VB webデータの取得
web(気象データ)を取得するプログラムを以前マクロで組んでいたのですが,これを今回諸事情によりVB2010で再構築していますが,どうすればいいか悩んでいます.
以下はマクロプログラムです.
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.data.jma.go.jp/obd/stats/etrn/view/hourly_s1.php?prec_no=" & 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版に変換して頂けませんでしょうか?
取得したデータはデータソースに格納する
よろしくお願いいたします.
お礼
その中区のは何の(どこの)でしょうか?