[發問] 抓取網頁資料(彈出式視窗)

PKKO

test.rar (21.79 KB)

下載次數: 10

2016-3-13 12:31

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

joey0415

回復 1# PKKO

下載 (55.71 KB)

2016-3-13 18:57

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

複製代碼

test.zip (27.6 KB)

下載次數: 8

2016-3-13 18:57

PKKO

回復 2# joey0415


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

PKKO

回復 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) 呢?

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