- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- W7
- 軟體版本
- W7
- 閱讀權限
- 10
- 註冊時間
- 2013-8-1
- 最後登錄
- 2013-8-27
|
我需要一個匯入網頁至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 |
|