暱稱: joey0415
中學生
- 帖子
- 361
- 主題
- 57
- 精華
- 0
- 積分
- 426
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2003,2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-13
- 最後登錄
- 2022-12-8
|
2#
發表於 2015-8-14 18:39
| 只看該作者
本帖最後由 joey0415 於 2015-8-14 18:44 編輯
回復 1# 97forum
第一次用這樣的方式跳轉成功,看來這也是不錯的方式!
若有需行請設定引用項目
microsoft internet controls- Sub 晶偉電子數據查詢()
- With CreateObject("internetexplorer.application")
- .Visible = True
- .Navigate "http://www.commotec.com.tw/product/list.aspx?id=2834&brand=AUK"
- Do Until .ReadyState = 4
- DoEvents
- Loop
- s = 0
-
- For p = 1 To 6 '共有六頁
- .Navigate "javascript:__doPostBack('_ctl0$MainPlaceHolder$AspNetPager','" & p & "')" '轉跳至指定頁面
- Do Until .ReadyState = 4
- DoEvents
- Loop
-
- ' Stop
- Set hTable = .Document.getElementsByTagName("table")(5) '第五個table
-
- With ActiveSheet
- For i = 2 To hTable.Rows.Length - 1 '前二個是標題與空白跳過
- For j = 0 To hTable.Rows(i).Cells.Length - 1
- .Cells(s + i - 1, j + 1) = hTable.Rows(i).Cells(j).innerText
- Next
- Next
- End With
- s = s + 20
-
- Next
- .Quit
- MsgBox "OK"
- End With
- End Sub
複製代碼 |
|