標題: [發問] VBA 抓取網路表格 [打印本頁]

---

作者: 52028    時間: 2016-1-7 21:12     標題: VBA 抓取網路表格

各位程式高手好，小弟想做程式抓取像鉅亨網這類的網站資料
http://www.cnyes.com/twstock/ps_historyprice/1101.htm

已能做到鍵入起始日期及查詢，但抓取資料的程式寫不出來。
爬過其他文，都是TABLE有id，但這種的不知從何下手，
請求協助。

1. Sub Website()
   
2. 
   
3. 
   
4.     Dim doc As Object
   
5.     Set IE = CreateObject("internetexplorer.application")
   
6.      With IE
   
7.     IE.Visible = True
   
8. 
   
9. navigate:
   
10.     IE.navigate "http://www.cnyes.com/twstock/ps_historyprice/1101.htm"
    
11.                 'http://www.cnyes.com/twstock/ps_historyprice/1101.htm'
    
12. 
    
13.     Do While IE.ReadyState <> 4: DoEvents: Loop
    
14. 
    
15.     Set doc = CreateObject("htmlfile")
    
16.     Set doc = IE.document
    
17. 
    
18.     If doc Is Nothing Then GoTo navigate
    
19. 
    
20.     Set txtDtBegin = doc.getelementbyid("ctl00_ContentPlaceHolder1_startText")  '開始日期'
    
21.         txtDtBegin.Value = "2015/11/23"
    
22.     Set txtDtEnd = doc.getelementbyid("ctl00_ContentPlaceHolder1_endText")      '結束日期'
    
23.         txtDtEnd.Value = "2015/11/25"
    
24.    
    
25.     Set element = doc.getelementbyid("ctl00_ContentPlaceHolder1_submitBut")     '點擊按鈕'
    
26.         element.Click
    
27.          
    
28.          
    
29.     Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
    
30.     End With
    
31.   
    
32. End Sub

複製代碼

---

作者: GBKEE    時間: 2016-1-9 15:55

回復 1# 52028

參考這裡

---

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