返回列表 上一主題 發帖

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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-3-13 12:30 | 只看該作者

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

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

test.rar (21.79 KB)

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

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2016-3-13 18:58 | 只看該作者
回復 1# PKKO

  1. Sub ex1()

  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) '公司代碼

  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

  27.     Next
  28.         
  29.     Cells.EntireColumn.AutoFit
  30. End Sub
複製代碼
test.zip (27.6 KB)

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2016-3-13 21:53 | 只看該作者
回復 2# joey0415


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

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 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) 呢?

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

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題