[發問] 處理一定時間 中斷執行

li_hsien

最近在用QueryTable 連網站抓資料

因為有使用到迴圈來處理

所以執行上有點緩慢

有時候如果資料量太大
Excel會跑超久

請問各位大大

能否在執行過程中加入一個經過時間的計算

如果處理時間超過一定時間  則先中斷取消執行

不知能否這樣處理


謝謝

li_hsien

回復 16# GBKEE

感謝版大協助提供

我再來研究看看

TKS~

GBKEE

回復 15# li_hsien

http://forum.twbts.com/viewthread.php?tid=12029
http://forum.twbts.com/viewthread.php?tid=12322
http://forum.twbts.com/viewthread.php?tid=12044

li_hsien

回復 14# GBKEE

版大能否提供文章連結?

我竟然只能搜尋標題@@

不能搜尋全文

謝謝

GBKEE

回復 13# li_hsien

下載 (63 KB)

2014-9-15 17:14

如圖搜索一下,可了解如何在Excel抓取網頁資料

li_hsien

回復 4# GBKEE

請問版大

我後來發現

網址中有個sessionid

會變動= =

變成常常抓不到資料

請問這部分有辦法克服嗎???

感謝!!!

GBKEE

getElementsByTagName找網頁的標簽名稱
(不過看版大的寫法  是不區分大小寫嗎?)
li_hsien 發表於 2014/9/11 11:06

是的:不區分大小寫的

li_hsien

回復 10# GBKEE

對於網站資料的操作好陌生

感謝版大淺顯易懂的說明


版大的作法應該是
先用getElementsByTagName找網頁的標簽名稱
(不過看版大的寫法  是不區分大小寫嗎?)

再抓取夾在標簽裡面的文字(innertext)敘述吧???


謝謝版大!!!

GBKEE

回復 9# li_hsien

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim URL As String, A As Object, B As String
   
4.     URL = "d:\aaa.htm"  '你內部網頁的網址
   
5.     With CreateObject("InternetExplorer.Application")
   
6.         .Navigate URL
   
7.         .Visible = True
   
8.         Do While .Busy Or .readyState <> 4:         Loop
   
9.         Set A = .document.getElementsByTagName("b").Item(0)
   
10.         '你這網頁只看到一個 <B>  的Element元素,所以是Item(0)第一個
    
11.         B = A.innertext    '"第 1 頁，共 11 頁>>"
    
12.         B = Trim(Mid(B, InStr(B, "共") + 1, InStrRev(B, "頁") - InStr(B, "共") - 1))
    
13.         
    
14.         'LTrim、RTrim 與 Trim 函數
    
15.         '傳回一個沒有前頭空白 (LTrim)、後面空白 (RTrim) 或前後均無空白的Variant (String)，其中所含為給定的字串。
    
16.         
    
17.         'InStr 函數
    
18.         '傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
    
19.         
    
20.         'InStrRev函數
    
21.         '傳回一個字串在另一個字串中出現的位置，從字串的末尾算起。
    
22.         
    
23.         MsgBox B
    
24.         .Quit
    
25.     End With
    
26. End Sub

複製代碼

li_hsien

回復 8# GBKEE

請教一下版大

下方是我截取部分跟頁數有關的原始碼

但我不知道該如何抓取總頁數(11)

1. <SCRIPT LANGUAGE="JavaScript1.1">
   
2. <!--
   
3. function goToPage(s) {
   
4.    var thisForm = window.document.forms[0];
   
5.    var page_n = 11;
   
6.    var page_range = 100;
   
7.    var box_name = "go_to_page" + s;
   
8.    var search_link = **********;
   
9.    for (var i=0; i < thisForm.elements.length; i++) {
   
10.       var nextElement = thisForm.elements[i];
    
11.       if (nextElement.name == box_name) {
    
12.          go_to_page = nextElement.value;
    
13.       }
    
14.    }
    
15.    if (go_to_page == null || go_to_page == 0) {
    
16.       alert("您必須輸入 1 到 11 之間的其中一個頁碼。");
    
17.    }
    
18.    else if (1 <= go_to_page && go_to_page <= page_n) {
    
19.       var offset = (go_to_page - 1) * page_range
    
20.       location.href = search_link + offset;
    
21.    }
    
22.    else {
    
23.       alert("您必須輸入 1 到 11 之間的其中一個頁碼。");
    
24.    }
    
25. }
    
26. //end hiding -->
    
27. </SCRIPT>
    
28. &nbsp;<P><B>
    
29. 第 1 頁，共 11 頁<A HREF=**********>>></A>

複製代碼

煩請版大解惑

謝謝!!!