VBA：Application.OnTime延迟执行Workbooks.Open的错误问题求助

问题核心在于Application.OnTime的第二个参数要求传入宏名称的字符串，而非直接的执行语句，且变量无法直接嵌入字符串中（工作簿关闭后变量会失效）。以下是两种可行的解决方法：

方法一：封装打开逻辑为独立宏（推荐） #

先写一个通用的打开工作簿的宏，建议放在**个人宏工作簿（Personal.xlsb）**中（确保原工作簿关闭后宏仍可被调用）：

Sub OpenWorkbookByPath(pth As String)
    Workbooks.Open pth
End Sub

然后在主代码中，将宏名与路径参数拼接成合法的字符串格式（用三重双引号为路径添加引号转义）：

Dim onTimeTask As String
' 拼接宏名和带引号的路径参数
onTimeTask = "OpenWorkbookByPath(""" & pth & """)"
' 设置5秒后执行
Application.OnTime Now + TimeValue("00:00:05"), onTimeTask
' 保存并关闭当前工作簿
ThisWorkbook.Close SaveChanges:=True

方法二：直接构造带硬编码路径的宏调用字符串 #

如果路径是固定值，也可以直接把路径硬编码到OnTime的字符串参数中（同样注意双引号转义）：

' 假设路径是"C:\Test.xlsx"，直接拼接成合法调用字符串
Application.OnTime Now + TimeValue("00:00:05"), "Workbooks.Open(""C:\Test.xlsx"")"
ThisWorkbook.Close SaveChanges:=True

这种方法适合路径固定的场景，但灵活性不如方法一。

关键注意点 #

• 若宏放在原工作簿中，关闭后OnTime会找不到宏导致报错，因此优先用个人宏工作簿存放打开逻辑。
• 字符串中的双引号必须用两个双引号转义，确保路径作为字符串参数被正确传递。

内容的提问来源于stack exchange，提问作者BigRed