標題: [發問] 想抓鉅亨網資料到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/)