Board logo

標題: [發問] 想抓鉅亨網資料到excel [打印本頁]

作者: xu123    時間: 2016-4-13 19:32     標題: 想抓鉅亨網資料到excel

想抓鉅亨網資料到excel

http://www.cnyes.com/twfutures/futTst.aspx?code=TXFD6
不能用匯入的方式
要成交分價到excel研究
請問有人可以教嗎
作者: GBKEE    時間: 2016-4-14 08:28

回復 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
複製代碼

作者: xu123    時間: 2016-4-14 18:01

感恩k大
我去試試
作者: xu123    時間: 2016-4-14 18:03

回復 2# GBKEE


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




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)