請問能否將2個VBA巨集合併成1個VBA巨集 - Excel程式區

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

1^# 跳轉到 »

發表於 2015-7-26 09:22 | 顯示全部帖子

本帖最後由 no3-taco 於 2015-7-26 09:24 編輯

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

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

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

複製代碼

TOP

no3-taco

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

2^#

發表於 2015-7-27 07:34 | 顯示全部帖子

回復 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, "滬深反", "台灣加權股價指數")) '改用相關字串確認是否有資料

TOP

no3-taco

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

3^#

發表於 2015-7-27 09:59 | 顯示全部帖子

回復 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, "滬深反", "台灣加權股價指數"))

TOP

no3-taco