application.ontime VBA 传递变量

Question

我正在尝试使用 application.on time 方法将变量(字符串(传递给工作簿模块 1 中的 sub。 下面的代码运行良好

Sub calar()
strText = "appl"
Application.OnTime Now + TimeValue("00:00:02"), "!Module1.cld"
End Sub
Sub cld()
MsgBox ("called" & slk)
End Sub

但是当我尝试传递如下所示的参数时，出现错误：

Sub calar()
strText = "appl"
Application.OnTime Now + TimeValue("00:00:02"), "'!Module1.cld ""Hello!""'"
End Sub
Sub cld(ByVal slk As String)
MsgBox ("called" & slk)
End Sub

我想传递 strText 作为参数，请帮忙。

Answer 1

尝试删除第一个感叹号...

Application.OnTime Now + TimeValue("00:00:02"), "'Module1.cld ""Hello!""'"

要传递变量...

Application.OnTime Now + TimeValue("00:00:02"), "'Module1.cld """ & strText & """'"