標題: [發問] 抓取網頁資料(彈出式視窗) [打印本頁]

---

作者: PKKO    時間: 2016-3-13 12:30     標題: 抓取網頁資料(彈出式視窗)

本帖最後由 PKKO 於 2016-3-13 12:31 編輯

[attach]23437[/attach]

附件裡面有相關的檔案
主要是連結到網址之後
想要下載彈出式的視窗,裡面的相關資料
但小弟目前只能將網頁的內容下載資料
不曉得彈出式的視窗,要如何下載相關資料
還請各位大大們指教!

---

作者: joey0415    時間: 2016-3-13 18:58

回復 1# PKKO

[attach]23439[/attach]

1. Sub ex1()
   
2. 
   
3.     For i = 1 To 30
   
4.      
   
5.         Cells(i, 4) = Len(Cells(i, 3))
   
6.         Cells(i, 5) = InStr(Cells(i, 3), "(")
   
7.         Cells(i, 6) = InStr(Cells(i, 3), ")")
   
8.         Cells(i, 7) = Mid(Cells(i, 3), Cells(i, 5) + 2, Cells(i, 6) - Cells(i, 5) - 3) '公司代碼
   
9. 
   
10.         snum = Cells(i, 7)
    
11.         Set HTML = CreateObject("htmlfile")
    
12.         
    
13.         Dim strText As String
    
14.         With CreateObject("WinHttp.WinHttpRequest.5.1")
    
15.             .Open "get", "http://www.travel.org.tw/showtable.aspx?id=" & snum, False
    
16.             .Send
    
17.             strText = .responseText
    
18.             
    
19.             HTML.body.innerhtml = strText
    
20.             Set tb = HTML.all.tags("table")(0).Rows
    
21.             
    
22.             For x = 1 To 13
    
23.                 Cells(i, x + 7) = tb(x).Cells(1).innertext
    
24.             Next
    
25.         End With
    
26. 
    
27.     Next
    
28.         
    
29.     Cells.EntireColumn.AutoFit
    
30. End Sub

複製代碼

[attach]23440[/attach]

---

作者: PKKO    時間: 2016-3-13 21:53

回復 2# joey0415


    感謝大大,小弟研究一下!

---

作者: PKKO    時間: 2016-3-14 21:30

回復 2# joey0415

下方這段網址如何得知的?且如何得知他後面加上代號即可查詢到資料

1. "http://www.travel.org.tw/showtable.aspx?id=" & snum

複製代碼

以及用IE直接開啟會變亂碼,反而用chrome可以直接看到
還有再請教大大

1. Set tb = HTML.all.tags("table")(0).Rows

複製代碼

上方程式碼,從哪邊得知是要用tags("table")(0) 呢?

小弟愚昧還請大大指教,謝謝您!

---

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