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定時自動執行程式