想請教一下VBA定時自動執行程式

Victoir

各位先進大家好：

    小弟初學VBA，有個簡單的編碼問題想請教於下：

因為我想將EXCELA、B兩欄區的值複製後再選擇性貼上N欄之後，將程序寫成：

Sub COPY()

Worksheets("WEEK").Range("A4:B100").COPY

Worksheets("WEEK").Range("N4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

End Sub

再以手動執行，執行結果成功沒問題

但如果我再加上一定時自動執行程式(每日早上9點執行一次) exec()

如下：

Sub exec()

   Application.OnTime TimeValue("00:09:00"), "COPY()"

End Sub

Sub COPY()

Worksheets("WEEK").Range("A4:B100").COPY

Worksheets("WEEK").Range("N4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

End Sub

結果傳回無法執行的訊息如下：

無法執行巨集COPY()

不知該如何解決？感恩

mick

  Application.OnTime TimeValue("15:42:35"), "COPY"

這樣就可以了，不需要括號。

Victoir

一個細微的區別會導致千奇百樣不同的結果，在下學習了！

非常感謝前輩指點迷津

祝您 夏日順心愉快