joey0415

回復 35# GBKEE

小弟又換了一個網站
這個網站我會用好幾種方法抓了，只不過這次換成這種方式時，如果直接run結果，會出現如下圖，卡在那一句話
表格("table")(7)是對的，因為有成功過
.document.body.innerHTML = .document.getelementsbytagname("table")(7).outerHTML

下載 (18.5 KB)

2013-11-20 11:47

如果按F8一步步執行時，有時候會成功，有時候會失敗

1.     Sub test1()
   
2.         Dim URL As String
   
3.         ActiveSheet.Cells.Clear
   
4.         URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
   
5.         With CreateObject("InternetExplorer.Application")
   
6.             .Visible = True     '  是否顯示 IE
   
7.             .Navigate URL
   
8.             Do While .readyState <> 4: DoEvents: Loop
   
9.             .document.All.tags("option")(7).Selected = True
   
10.             .document.getelementsbytagname("input")(1).Value = "2330"
    
11.             .document.getelementsbytagname("input")(4).Click
    
12.             Do While .readyState <> 4: DoEvents: Loop
    
13.             .document.body.innerHTML = .document.getelementsbytagname("table")(7).outerHTML
    
14. 
    
15.             .execwb 17, 2       '  Select All
    
16.             .execwb 12, 2       '  Copy selection
    
17.             
    
18.             With ActiveSheet
    
19.                 .Cells.Clear
    
20.                 .[A1].Select
    
21.                 .PasteSpecial Format:="HTML", NoHTMLFormatting:=True
    
22.                 .Cells.EntireColumn.AutoFit     '  自動調整欄寬
    
23.             End With
    
24.             .Quit
    
25.         End With
    
26.         
    
27.     End Sub

複製代碼

c_c_lai

回復 40# joey0415
了解！但只是無法明確地看出 Table 的單元，
即 (0)、(1)、(2)、 .  .  .  .等等。
謝謝！

GBKEE

回復 41# joey0415

1. Do While .readyState <> 4: DoEvents: Loop

複製代碼

改成

1. Do While .readyState <> 4 Or .Busy: DoEvents: Loop

複製代碼

joey0415

回復 42# c_c_lai


點擊innertext的該單元格，就看到內容呀！

[CA4]那格就知道了，真的清楚，往左一看就知道是指TABLE 1

joey0415

回復 43# GBKEE

請問超版，平常都要加載完成，才做下一步！若不完成，可能要找的資料沒有找到會出錯

而BUSY 與完全的差異又在哪呢？請指教一下

如果主的方法是正確的，那以後只有下載有關的語法都要改成這樣，還是只有這網站才要特別如此呢？

謝謝超版
==========================
請問超版：
如果已查詢一個網址後，已將網站內容改成下句
.document.body.innerHTML = .document.getElementsBytagname("table")
，如果貼上後，還要回到當初的畫面再往下查另一個資料，而我又不想再CREAT另一個IE，只想用目前的IE，在不重啟的方式下，如何再轉回當初的畫面，再往下查呢？
謝謝

c_c_lai

回復 44# joey0415

下載 (46.96 KB)

2013-11-20 14:00

恍然大悟，謝謝囉！

ML089

回復 46# c_c_lai

可否分享一下，我還是看不懂 ^_^

c_c_lai

回復 47# ML089

下載 (69.15 KB)

2013-11-20 17:56

下載 (71.83 KB)

2013-11-20 17:56

c_c_lai

回復 47# ML089

下載 (59.59 KB)

2013-11-20 17:57

下載 (62.42 KB)

2013-11-20 17:57

c_c_lai

回復 47# ML089

下載 (63.59 KB)

2013-11-20 17:57

下載 (66.68 KB)

2013-11-20 17:58