標題: [發問] VBA 網頁匯入問題(會定格阿~) [打印本頁]

---

作者: esad0101    時間: 2013-8-1 09:33     標題: VBA 網頁匯入問題(會定格阿~)

我需要一個匯入網頁至Excel 功能大約每30秒更新一次,但只要一跑QueryTable.Refresh , Excel就會Excel定格3秒左右，不能做其他動作。有沒有方法可以改善。
因為匯入網頁更新只能設定1分鐘。所以只好寫下面的程式(要每30秒更新)

Sub RefreshWeb()

    Workbooks("xxx.xls").Worksheets("Sheet1").Range("A1").QueryTable.Refresh BackgroundQuery:=False
    DoEvents

     Workbooks("xxx.xls").Sheets("Sheet2").Range("B10") = Now + TimeValue("00:00:30")  '下次更新時間
    Application.OnTime Workbooks("xxx.xls").Sheets("Sheet2").Range("B10"), "ThisWorkbook.RefreshWeb", Schedule:=True
End Sub

---

作者: joey0415    時間: 2013-8-2 21:00

再開一個虛擬機器例vm等，將excel從裏面開啟執行應該就不會了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)