返回列表 上一主題 發帖

[發問] 用VBA載入網頁資料

  1. Sub 巨集1()
  2.     With ActiveSheet.QueryTables.Add(Connection:= _
  3.         "URL;http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp", Destination:=Range( _
  4.         "$A$1"))
  5.         .WebFormatting = xlWebFormattingNone
  6.         .WebTables = "2"
  7.         .Refresh BackgroundQuery:=False
  8.         .Delete
  9.     End With
  10. End Sub
複製代碼
回復 1# pupai

TOP

回復 3# pupai

上面的只能查單日

下面的才可以選日期
http://www.taifex.com.tw/chinese/3/7_12_3.asp

或是下面直接下載csv

http://www.taifex.com.tw/chinese/3/dl_7_12_8.asp

TOP

        靜思自在 : 一句溫暖的話,就像往別人身上灑香水,自己會沾到兩三滴。
返回列表 上一主題