Victoir 發表於 20-6-12 18:12

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

各位先進大家好：     小弟初學VBA，有個簡單的編碼問題想請教於下：因為我想將EXCELA、B兩欄區的值複製後再選擇性貼上N欄之後，將程序寫成： Sub COPY()Worksheets("WEEK").Range("A4:B100").COPYWorksheets("WEEK").Range("N4").PasteSpecial Paste:=xlPasteValuesAndNumberFormatsEnd Sub 再以手動執行，執行結果成功沒問題 但如果我再加上一定時自動執行程式(每日早上9點執行一次) exec()如下： Sub exec()   Application.OnTime TimeValue("00:09:00"), "COPY()"End SubSub COPY()Worksheets("WEEK").Range("A4:B100").COPYWorksheets("WEEK").Range("N4").PasteSpecial Paste:=xlPasteValuesAndNumberFormatsEnd Sub 結果傳回無法執行的訊息如下： 無法執行巨集COPY()
不知該如何解決？感恩


mick 發表於 20-6-15 15:44

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

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

Victoir 發表於 20-6-15 19:46

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

非常感謝前輩指點迷津

祝您 夏日順心愉快
頁: [1]
查看完整版本: 想請教一下VBA定時自動執行程式