[VBA ] 開ie並定時更新此網頁
小弟想要打開一個ie，並且每3秒更新這個網頁
但網頁更新1次以後
excel就跳出無法執行巨集timer ie
該巨集可能無法在此活頁簿使用，或已停用所以巨集
這是怎麼了?
程式碼如下
Sub 網頁更新()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "www.google.com"
Do While .busy Or .readystate <> 4: DoEvents: Loop
End With
timer ie
End Sub
-----------------------------------------------------------------
Public Sub timer(ie As Object)
With ie
.Refresh
Do While .busy Or .readystate <> 4: DoEvents: Loop
End With
alertTime = Now + TimeValue("00:00:03")
Application.OnTime alertTime, "timer ie"
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.127.16.210 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1611230871.A.DD4.html
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
