　暱稱: Tiger97

帖子: 71
主題: 16
精華: 0
積分: 111
點名: 228
作業系統: Windows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-3-7
最後登錄: 2024-11-15

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-8-14 15:59 | 只看該作者

[發問] 解決從WEB頁面匯入資料，但無法取得網頁換頁採Java控制之資料

請教各位先進：
今天想從某個網站匯入頁面資料到Excel，但是由於該網站第一頁乙厚的資料採用Java語法控制，以至於在取得第二頁以後的資料無法匯入。
請問是否有辦法可以匯入第二頁以後之資料嗎？
例如網站 http://www.commotec.com.tw/product/list.aspx?id=2834&brand=AUK
請各位先進幫忙！

樓主熱帖

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 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

複製代碼

TOP

97forum

　暱稱: Tiger97

中學生 Rank: 2

帖子: 71
主題: 16
精華: 0
積分: 111
點名: 228
作業系統: Windows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-3-7
最後登錄: 2024-11-15

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

3^#

發表於 2015-8-17 08:51 | 只看該作者

回復 2# joey0415

首先感謝 joey0415先進前輩的解決之道，確實可行。
但是愚笨的我對您所說的這段話不解？
" 若有需行請設定引用項目 microsoft internet controls "
另外如果要針對每個不同品項，就必需手動改程式碼(品項名稱)，且會因每個品項頁數不同改程式碼，是如此對嗎？

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

4^#

發表於 2015-8-17 09:57 | 只看該作者

回復 3# 97forum

如果可以執行就不要管引用項目

http://www.commotec.com.tw/product/list.aspx?id=2834&brand=AUK
是你找出來的網頁
如果換成別的品項時，它的網頁就不同

你只要改成你要的網頁，與該網頁的頁碼總數下去跑

理論上應該會執行出結果

TOP

97forum

　暱稱: Tiger97

中學生 Rank: 2

帖子: 71
主題: 16
精華: 0
積分: 111
點名: 228
作業系統: Windows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-3-7
最後登錄: 2024-11-15

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

5^#

發表於 2015-8-17 15:02 | 只看該作者

回復 4# joey0415

謝謝您，我了解了。感謝您用心地分享。

TOP

97forum

　暱稱: Tiger97

中學生 Rank: 2

帖子: 71
主題: 16
精華: 0
積分: 111
點名: 228
作業系統: Windows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-3-7
最後登錄: 2024-11-15

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

6^#

發表於 2015-8-18 11:20 | 只看該作者

回復 4# joey0415

我依照先進的程式碼修改成這個網址 http://www.commotec.com.tw/search/default.aspx?xid=2834&no=&id=0 ，頁數也改成應有的頁數，但是在第10頁或者是第11頁就卡住了，不知其原因為何？但是程式仍然是在執行中。不知是否可以幫忙解惑！

TOP

joey0415