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

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

1^# 跳轉到 »

發表於 2016-1-7 13:48 | 顯示全部帖子

回復 1# yehmengfeng
參考看看

Sub GetWeatherInfo()
Dim oXmlhttp As Object: Set oXmlhttp = CreateObject("msxml2.xmlhttp")
Dim oHtmldoc As Object: Set oHtmldoc = CreateObject("htmlfile")
Dim oClip As Object: Set oClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'DataObject
Dim sURL As String
sURL = "http://e-service.cwb.gov.tw/HistoryDataQuery/MonthDataController.do?command=viewMain&station=467410&datepicker=2016-01"
With oXmlhttp
.Open "Get", sURL, False
.Send
oHtmldoc.write .responseText
End With
Dim oTable As Object
Set oTable = oHtmldoc.GetElementById("MyTable")
If oTable Is Nothing Then MsgBox "擷取Table失敗...": Exit Sub
'remove top header row (press/temperature...)
oTable.FirstChild.RemoveChild oTable.FirstChild.ChildNodes(0)
'copy to clip board
With oClip
.SetText Replace(oTable.outerhtml, " ", "")
.PutInClipboard
End With
Sheets.Add().PasteSpecial NoHTMLFormatting:=True '不要含格式
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

2^#

發表於 2016-2-25 16:20 | 顯示全部帖子

回復 9# yehmengfeng
參考看看

氣象.zip (31.7 KB)

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。