每天在同一时间启动一个宏

Question

我有一个宏，我会自动运行该宏，总是在周一到周五的同一时间。我已经有一个宏，但它在打开文件后运行一次。如何每天重复，直到周六和周日？

Public Sub Workbook_Open()
Dim dtmStarttijd As Date
dtmStarttijd = TimeSerial(7, 10, 0)
' Is de macro gestart?
MsgBox "De macro voor het automatisch starten van de procedure is gestart."

Application.OnTime dtmStarttijd, "sDeUitTeVoerenMacro"

End Sub

亲切问候Freek

Answer 1

要在给定时间和工作日启动宏，应该这样做：

Sub test()
If Weekday(Now, vbMonday) < 6 Then 'check if weekday is < 6, starting by Monday with 1 (Sat = 6, Sun = 7)
Application.OnTime TimeValue("00:01:10"), "YourSub"
End If
End Sub

当宏应该启动时更改TimeValue("00:01:10")

用你的潜艇更改"YourSub"，例如你的潜艇名为Sub timestart()，放在"timestart"中（不带（），但需要"！）

必须启动Excel才能运行

Answer 2

我在窗口中将我的任务设置为计划任务，并在宏结束时退出，使其在Excel的安全模式副本中运行。

在退出以取消显示提示之前，请确保执行了workbook.saved=true。