指定時間.執行巨集

duck_simon

請教先進:
我欲將 星期一至星期六..每日20:25分(依電腦時間)  執行 (複製某區塊..貼上某區塊)
        請教大大 這時間VBA 如何寫?   感謝指導 !  祝  週日好心情

准提部林

那個檔案是一直保持開啟嗎???
可找找APPLICATION.ONTIME的用法

或找找"工作排程"的方法//
寫一個專門執行的VBA檔案,
排定時間自動開啟, 執行後自動關閉~~

描述太簡單, 別人無法提供正確方案~~

duck_simon

回復 2# 准提部林


    回大大 :   執行 (複製某區塊..貼上某區塊)..此部分可以省略

lee88

1. Private Sub EX()
   
2.     '必須在第一次上午10點,指定的時間之前執行
   
3.     Application.OnTime TimeValue("10:00:00 AM"), "工作表1.TEST"
   
4.     '  "工作表1.TEST" 程式在工作表模組(物件模組)中需指明    "模組名稱.程式名稱"
   
5.     '程式在一般模組  無需指明模組名稱,可直接寫上   "程式名稱"
   
6. 
   
7. End Sub

複製代碼

1.    Sub TEST()
   
2.      '寫上你要執行的程式碼
   
3.     '或呼叫(執行),程式碼寫在別的程式
   
4.    Application.OnTime Date + 1 + TimeValue("10:00 AM"), "工作表1.TEST1"
   
5.    '下次自動於隔天同時間執行程式
   
6. '***  如第一次指定的時間執行 TEST 也可以不要執行 EX
   
7. 
   
8. End Sub

複製代碼

duck_simon

回復 4# lee88


    感謝大大指點..無任感激..謝謝:)