Excel VBA - 宏错误 - 宏可能不可用 - 自动刷新

Question

我有一个启用宏的excel文件，我试图创建一个宏来每2分钟运行一次。

以下是我的代码：

Sub macro123()

Application.SendKeys ("%{A}")
Application.SendKeys ("R")
Application.SendKeys ("A")
Call test

End Sub

Sub test()

Application.OnTime Now + TimeValue("00:02:00"), "macro123"

End Sub

我第一次运行时会执行macro123。 2分钟后，它再次尝试运行它，当我收到以下错误时。

[！[在此处输入图像说明] [1]] [1]

宏设置似乎是灰色的，可能是由于组织的域设置？

[！[在此处输入图像说明] [2]] [2]

有没有其他方法可以让我每隔 n 分钟执行一次这些语句？

Answer 1

如果您的宏位于代码模块ThisWorkbook中，那么您应该指定它，包括代码模块的名称。

试试这个：

Application.OnTime Now + TimeValue("00:02:00"), "ThisWorkbook.macro123"
'                                               ^^^^^^^^^^^^^^