ExcelVBA-Time Delay：运行macros后如何使用Time Delay

我想弄清楚如何在Excel VBA中使用时间延迟。

这是我想要做的：

我有一个macros的button，当我点击它，它发送第一封电子邮件。 然后1小时后，我想要自动发送第二封电子邮件，而不必再点击另一个button或再次运行程序。

我有这个代码，将设置时间。 然后在时间到期后，它会运行macros。 我想要做的是在第一次发送后一小时内自动发送第二封电子邮件。

Private Sub Workbook_Open() Dim sSetTimer As Date sSetTimer = Sheets("SetTime").Cells(1, 1) Application.OnTime TimeValue(sSetTimer), "Orayt" End Sub 

Answer 1

第一次添加一小时，并使用它来启动一个辅助进程。

 Application.OnTime TimeValue(sSetTimer), "Orayt" Application.OnTime TimeValue(sSetTimer) + TimeSerial(0, 1, 0), "Orayt2"