- 帖子
- 4
- 主題
- 2
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2016
- 閱讀權限
- 10
- 註冊時間
- 2021-1-22
- 最後登錄
- 2022-9-19
|
大家好
小弟想要打開一個ie，並且每3秒更新這個網頁
但網頁更新1次以後
excel就跳出無法執行巨集timer ie
該巨集可能無法在此活頁簿使用，或已停用所以巨集
推測是timer裡面有引數的關係
但沒有引數，編譯器又會說沒有物件
用application.wait的話我更新網頁以後還要複製貼上EXCEL
這時EXCEL會停住，也不是我要的
請教大家有沒有什麼方法可以讓timer正常運作呢
程式碼如下- Sub 網頁更新()
- Dim ie As Object
- Set ie = CreateObject("InternetExplorer.Application")
- With ie
- .Visible = True
- .navigate "www.google.com.tw"
- Do While .busy Or .readystate <> 4: DoEvents: Loop
- End With
-
- timer ie
-
- End Sub
- Public Sub timer(ie As Object)'沒有引用IE說沒有物件
-
- With ie
- .Refresh
- Do While .busy Or .readystate <> 4: DoEvents: Loop
- End With
-
- alertTime = Now + TimeValue("00:00:10")
- Application.OnTime alertTime, "timer ie"'引用以後這裡就不行了
-
- End Sub
|
|
發表於 2021-1-25 10:22
| 
