- 帖子
- 4
- 主題
- 2
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 7
- 閱讀權限
- 10
- 註冊時間
- 2014-2-27
- 最後登錄
- 2014-8-31
|
本帖最後由 peellau 於 2014-3-4 16:39 編輯
回復 3# owen06
owen06 您好 我有嘗試把您的程式碼貼上去
THISWORKBOOK:
Private Sub Workbook_Open()
Call "更新"
End Sub
MODULE1:
Sub 更新()
T1 = Now + TimeSerial(0, 0, 1)
Range("l2:l20000").QueryTable.Refresh BackgroundQuery:=False
Application.OnTime T1, "更新"
End Sub
但會出現應用程式或物件定義上的錯誤@@ 不知道這是什麼問題 嘗試用奇他方法也會這樣
偵錯是指向這行 Range("l2:l20000").QueryTable.Refresh BackgroundQuery:=False |
|