返回列表 上一主題 發帖

[發問] VBA 網頁匯入問題(會定格阿~)

esad0101

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
W7 
軟體版本
W7 
閱讀權限
10 
註冊時間
2013-8-1 
最後登錄
2013-8-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題