請問如何抓取氣象局opendata xml 問題 - Excel程式區

[發問] 請問如何抓取氣象局opendata xml 問題

　暱稱: joey0415

1^# 跳轉到 »

發表於 2016-1-7 19:23 | 顯示全部帖子

回復 1# yehmengfeng
變數自己改改看！

Sub 巨集1()
'
Cells.Delete
surl = "URL;" & "http://e-service.cwb.gov.tw/HistoryDataQuery/MonthDataController.do?command=viewMain&station=467410&datepicker=2015-01"
Set QT = ActiveSheet.QueryTables.Add(Connection:=surl, Destination:=Range("$A$1"))
With QT
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
.Delete
End With
Set QT = Nothing
End Sub

複製代碼

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。