prin.huang

回復 19# jsleee

我找到的方法是網頁上有download html網頁的按鈕，
按下去新開的網頁網址就是了，
硬是看了半天網頁程式碼，才發現原來按一下就有結果了

t8899

網址有了

自己練習看看
joey0415 發表於 2017-5-24 21:35

請教一下，字型跟大小如何控制??

jsleee

回復 21# prin.huang


    了解
    感謝你

JS

t8899

回復  prin.huang

網址有了

自己練習
joey0415 發表於 2017-5-24 21:38

請教下面這個網址這麼抓?
http://www.tse.com.tw/zh/page/trading/fund/BFI82U.html

joey0415

回復 24# t8899
http://www.tse.com.tw/fund/BFI82U?response=html&dayDate=20170601&type=day

自己練習看看

t8899

回復  t8899


自己練習看看
joey0415 發表於 2017-6-3 20:50

感謝指導

jsleee

您好
請問以下這個期貨交易資訊的網頁，若要透過程式碼來抓取不同日期的資料，該如何處理？
再麻煩先進們指點，謝謝
http://www.taifex.com.tw/chinese/3/7_12_1.asp

prin.huang

回復 27# jsleee
自己寫的function給你參考，會回傳一個string陣列

1. Private Function GetWebTb1(sURL00$, nTT00%, nRR00%, nCC00%, bRd00 As Boolean)
   
2. '===sURL00      為擷取網址
   
3. '===nTT00       為讀取第幾個Table(從1開始)
   
4. '===nRR00       該Table由第幾列開始讀取(從1開始)
   
5. '===nCC00       該Table由第幾欄開始讀取(從1開始)
   
6. '===bRd00       該資料是否輸出
   
7. Dim nR00%, nC00%, sTemp() As String, oXml As Object, oDoc As Object, oE As Object, tt As Date
   
8.     Set oXml = CreateObject("MSXML2.XMLHTTP.6.0")
   
9.     Set oDoc = CreateObject("HTMLFile")
   
10.     bRd00 = True
    
11. rSend:
    
12.     tt = Now() + TimeValue("0:00:20")
    
13.     With oXml
    
14.         .Open "Get", sURL00, True
    
15.         .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    
16.         .send
    
17.         On Error Resume Next
    
18.         Do While .ReadyState <> 4 Or .Status <> 200
    
19.             DoEvents
    
20.             If Now > tt Then GoTo rSend
    
21.         Loop
    
22.         On Error GoTo 0
    
23.         oDoc.write .responseText
    
24.     End With
    
25.     If oDoc.all.tags("Table")(nTT00 - 1) Is Nothing Then bRd00 = False: GoTo Err1
    
26.     Set oE = oDoc.all.tags("Table")(nTT00 - 1)
    
27.     With oE
    
28.         ReDim sTemp(.Rows.Length - nRR00, .Rows(nRR00 - 1).Cells.Length - nCC00)
    
29.         For nR00 = 0 To .Rows.Length - nRR00
    
30.             For nC00 = 0 To .Rows(nR00 + nRR00 - 1).Cells.Length - nCC00
    
31.                 sTemp(nR00, nC00) = .Rows(nR00 + nRR00 - 1).Cells(nC00 + nCC00 - 1).innerText
    
32.             Next nC00
    
33.         Next nR00
    
34.     End With
    
35. Err1:
    
36.     GetWebTb1 = sTemp
    
37.     oXml.abort
    
38.     oDoc.Close
    
39.     Set oXml = Nothing
    
40.     Set oDoc = Nothing
    
41.     Set oE = Nothing
    
42. End Function

複製代碼

jsleee

回復 28# prin.huang


    不好意思
    請問 prin.huang 先進
    這個Function 要如何運用？

prin.huang

回復 29# jsleee
假設要抓http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=20170609&type=MS
這網頁的第一個表，從第二列開始抓
(因程式判斷欄位矩陣宣告靠要抓取的第一列有幾個欄位, 若要從第一列開始抓, 你自己要再改一下)
寫一段程式給function需要的資訊，再把function傳回的資料，輸出到excel活頁表，參考如下

1. Sub main()
   
2. Dim URL$, VV As Boolean, AB() As String
   
3. 
   
4. URL = "http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=20170609&type=MS"
   
5. AB = GetWebTb1(URL, 1, 2, 1, VV)
   
6. If VV = True Then ActiveSheet.Range("A1:E63") = AB
   
7. 
   
8. End Sub
   
9. 
   
10. Private Function GetWebTb1(sURL00$, nTT00%, nRR00%, nCC00%, bRd00 As Boolean)
    
11. '===sURL00      為擷取網址
    
12. '===nTT00       為讀取第幾個Table(從1開始)
    
13. '===nRR00       該Table由第幾列開始讀取(從1開始)
    
14. '===nCC00       該Table由第幾欄開始讀取(從1開始)
    
15. '===bRd00       該資料是否輸出
    
16. Dim nR00%, nC00%, sTemp() As String, oXml As Object, oDoc As Object, oE As Object, tt As Date
    
17.     Set oXml = CreateObject("MSXML2.XMLHTTP.6.0")
    
18.     Set oDoc = CreateObject("HTMLFile")
    
19.     bRd00 = True
    
20. rSend:
    
21.     tt = Now() + TimeValue("0:00:20")
    
22.     With oXml
    
23.         .Open "Get", sURL00, True
    
24.         .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    
25.         .send
    
26.         On Error Resume Next
    
27.         Do While .ReadyState <> 4 Or .Status <> 200
    
28.             DoEvents
    
29.             If Now > tt Then GoTo rSend
    
30.         Loop
    
31.         On Error GoTo 0
    
32.         oDoc.write .responseText
    
33.     End With
    
34.     If oDoc.all.tags("Table")(nTT00 - 1) Is Nothing Then bRd00 = False: GoTo Err1
    
35.     Set oE = oDoc.all.tags("Table")(nTT00 - 1)
    
36.     With oE
    
37.         ReDim sTemp(.Rows.Length - nRR00, .Rows(nRR00 - 1).Cells.Length - nCC00)
    
38.         For nR00 = 0 To .Rows.Length - nRR00
    
39.             For nC00 = 0 To .Rows(nR00 + nRR00 - 1).Cells.Length - nCC00
    
40.                 sTemp(nR00, nC00) = .Rows(nR00 + nRR00 - 1).Cells(nC00 + nCC00 - 1).innerText
    
41.             Next nC00
    
42.         Next nR00
    
43.     End With
    
44. Err1:
    
45.     GetWebTb1 = sTemp
    
46.     oXml.abort
    
47.     oDoc.Close
    
48.     Set oXml = Nothing
    
49.     Set oDoc = Nothing
    
50.     Set oE = Nothing
    
51. End Function

複製代碼