close

原本以為會很難，原來只要把網頁資料當作是資料來源取進來就可以了，比想像中還要歡樂一點？

Dim webURL As String
webURL = "URL;http://xxx.xxx.xxx.xxx/123.htm"

With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
        ' xlOverwriteCells 表示覆蓋欄位
        .RefreshStyle = xlOverwriteCells
        ' 抓取網頁的第三個表格作為匯入資料
        .WebTables = "3"
        .Refresh BackgroundQuery:=False
End With



 

 

 



（不過如果不是用 table 排的資料怎麼辦？這個還沒研究～ XD）

arrow
arrow
    全站熱搜

    小攻城師 發表在 痞客邦 留言(1) 人氣()

    E-mail轉寄