[發問] 開啟excel檔案後 ，倒數一段時間(或到了設定時間)即執行另一段程式的寫法

ji12345678

下載 (55.51 KB)

2012-5-16 16:46

Sub Workbook_open()
DoEvents  '？
'Application.OnTime "16:06:50", "StartTimer2", schedule:=True                 '設定時間觸發
Application.OnTime Now + TimeValue("00:00:05"), "StartTimer2", schedule:=True '到數觸發

End Sub
Sub StartTimer2()
MsgBox "資料複製結束"
End Sub

要寫一段測試程式，開啟excel檔案後 ，倒數一段時間(或到了設定時間)即執行另一段程式的寫法
可是一直出現錯誤訊息，請大大指教~~為什麼會這樣~~。謝謝



test-101.5.13.rar (5.86 KB)

下載次數: 6

2012-5-16 16:47

register313

回復 1# ji12345678

下載 (80.76 KB)

2012-5-16 17:05

如圖,把
Sub StartTimer2()
MsgBox "資料複製結束"
End Sub
移至一般模組內