joey0415

回復 1# 97forum

第一次用這樣的方式跳轉成功，看來這也是不錯的方式！
若有需行請設定引用項目
microsoft internet controls

1. Sub 晶偉電子數據查詢()
   
2. 
   
3.     With CreateObject("internetexplorer.application")
   
4.         .Visible = True
   
5.         .Navigate "http://www.commotec.com.tw/product/list.aspx?id=2834&brand=AUK"
   
6.         Do Until .ReadyState = 4
   
7.             DoEvents
   
8.         Loop
   
9.         s = 0
   
10.         
    
11.         For p = 1 To 6 '共有六頁
    
12.             .Navigate "javascript:__doPostBack('_ctl0$MainPlaceHolder$AspNetPager','" & p & "')" '轉跳至指定頁面
    
13.             Do Until .ReadyState = 4
    
14.                 DoEvents
    
15.             Loop
    
16.             
    
17. '            Stop
    
18.         Set hTable = .Document.getElementsByTagName("table")(5) '第五個table
    
19.         
    
20. 
    
21.             With ActiveSheet
    
22.                 For i = 2 To hTable.Rows.Length - 1 '前二個是標題與空白跳過
    
23.                     For j = 0 To hTable.Rows(i).Cells.Length - 1
    
24.                         .Cells(s + i - 1, j + 1) = hTable.Rows(i).Cells(j).innerText
    
25.                     Next
    
26.                 Next
    
27.             End With
    
28.                 s = s + 20
    
29.                
    
30.         Next
    
31.         .Quit
    
32.         MsgBox "OK"
    
33.     End With
    
34. End Sub

複製代碼

joey0415

回復 3# 97forum

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

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

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

理論上應該會執行出結果

joey0415

回復 6# 97forum

你給的網址打不開

加上你更改網址位置，不再是我之前寫的頁面，就算打得開也不見得有用