no3-taco

先加入程式碼裡面那兩行，修改完後跑一次
應該會出現兩次訊息框，記住數字然後改
E.all.Length >= IIf(i = 0, 431, 150)  '第一次出現數字替換431 ,第二次出現數字替換150

無誤後,插入的那兩行就可以刪掉了
不曉得是不是ie版本不同的關係

1. '.Visible = True                     '先隱藏
   
2. 
   
3. Dim Atime: Atime = Timer     '加入這裡######_1
   
4. Do
   
5.     Do
   
6.         Set E = .document.getElementsByTagName("TABLE")(21 + i)
   
7.         '即時淨值 第21個 "TABLE" ,'國內指數 第22個 "TABLE"
   
8.     Loop Until Not E Is Nothing
   
9.     If Timer - Atime > 5 Then MsgBox E.all.Length: Exit Do     '加入這裡######_2
   
10. Loop Until E.all.Length >= IIf(i = 0, 431, 150)     '跑過一次後要修改的地方

複製代碼

no3-taco

回復 20# GBKEE

我的是win7 , IE 10 , office2010 需要改成這樣
E.all.Length >= IIf(i = 0, 415, 135)

用(azrael19大大)修改的這一句也不錯
Loop Until 0 < InStr(1, E.outerHTML, IIf(i = 0, "滬深反", "台灣加權股價指數"))  '改用相關字串確認是否有資料

no3-taco

回復 22# GBKEE

其實我也不是很清楚，能在指點問題的癥結點在哪嗎

我抓到的數量就這麼多Loop Until E.all.Length >= IIf(i = 0, 415, 135)，都比版大的少所以會卡住。(判斷式我寫不出完整的)

下面這兩句我執行都可以，有資料都會抓的到(沒有資料我就不知道了)，不知道版大指的是什麼(我的判斷能力有限，沒有很深入了解)
Loop Until InStr(1, E.outerHTML, IIf(i = 0, "滬深反", "台灣加權股價指數"))
Loop Until 0 < InStr(1, E.outerHTML, IIf(i = 0, "滬深反", "台灣加權股價指數"))

no3-taco

回復 28# GBKEE

我還是不清楚版大指的是哪一句有問題
但是
E.all.Length >= IIf(i = 0, 415, 135) ，這個值你的版本還沒把數量抓完就會執行下一行了

no3-taco

回復 35# no3-taco

我本來以為會有順序的抓取，試了幾次好像都從40跳到415

    javascript:;

no3-taco

回復 44# GBKEE

win7(64bit) ,ie10

415和135

javascript:;

no3-taco

回復 47# lcctno


1.你按鈕要案右鍵，重新指定巨集，
2.不然就是點ㄧ下那個程式碼裡面任意位置再案f5

no3-taco

回復 53# lcctno

你貼的我有執行，沒有問題，也看不出哪裡有問題
我覺得可能是其他問題
建議你重開一個excel檔案,再測試看看
再不行我也沒辦法