返回列表 上一主題 發帖

[發問] 請問如何以VBA擷取網站上的資料?

請問 如果只想抓 網站上的部分資料 下來, VBA 要如何寫 ?
  1. Sub 期貨交易口數()
  2. Set shFirstQtr = ActiveSheet
  3. Set qtQtrResults = shFirstQtr.QueryTables _
  4.     .Add(Connection:="URL;http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp", _
  5.         Destination:=shFirstQtr.Cells(3, 1))
  6. With qtQtrResults
  7.     .WebFormatting = xlNone
  8.     .WebSelectionType = xlSpecifiedTables
  9.     .WebTables = "2"
  10.     .Refresh
  11. End With
  12. End Sub
複製代碼

抓期貨口數.jpg (124 KB)

期貨交易口數

抓期貨口數.jpg

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題