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

亲切的问候暴走

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"（不含（）但需要＆＃34;＆＃34;）

必须启动Excel才能正常工作

Answer 2

我在windows中设置了我的预定任务，并使其在Excel的安全模式副本中运行，并在宏的末尾退出。

确保在退出之前执行workbook.saved = true以禁止提示。

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

2 个答案: