返回列表 上一主題 發帖

[發問] 想抓鉅亨網資料到excel

[發問] 想抓鉅亨網資料到excel

想抓鉅亨網資料到excel

http://www.cnyes.com/twfutures/futTst.aspx?code=TXFD6
不能用匯入的方式
要成交分價到excel研究
請問有人可以教嗎

回復 1# xu123
試試看
  1. Option Explicit
  2. Sub 台指期成_交分價_台指期_鉅亨網() 'TXFD6
  3.     Dim oXmlhttp As Object, oHtmldoc As Object, Url As String
  4.     Dim xTable As Object, xRow As Object, R As Integer, I As Integer
  5.     Set oXmlhttp = CreateObject("msxml2.xmlhttp")
  6.     Set oHtmldoc = CreateObject("htmlfile")
  7.     Url = "http://www.cnyes.com/twfutures/futTst.aspx?code=TXFD6 "
  8.     With oXmlhttp
  9.         .Open "POST", Url, False
  10.         .Send
  11.         oHtmldoc.write .responseText
  12.     End With
  13.     Set xTable = oHtmldoc.all.tags("table")(1)
  14.     With ActiveSheet
  15.         .UsedRange.Clear
  16.         For Each xRow In xTable.Rows
  17.             R = R + 1
  18.             For I = 0 To xRow.Cells.Length - 1
  19.                 .Cells(R, I + 1) = xRow.Cells(I).INNERTEXT
  20.             Next
  21.         Next
  22.     End With
  23. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

感恩k大
我去試試

TOP

回復 2# GBKEE


   謝謝k大
很好用
可以使用
感恩

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題