vba - 使用 Application.Run 调用宏会出现错误 1004

Question

我找不到 Application.Run 命令返回的错误 1004 的原因。

Sub Called()
  MsgBox "Yes"
End Sub

Sub Caller()
  Call Called ' works
  subName = "Called"
  Application.Run Application.ActiveWorkbook.Name & "!" & subName ' error 1004
End Sub

错误描述(法语):

---------------------------
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
---------------------------

我在谷歌上搜索这个问题后发现的每个解决方案都会导致同样的错误。 Caller 和 Called subs 在同一个“Sheet1”模块中。

我有点失落。我想知道这个问题是否与 XL 安全性有关？还是引用文献中缺少的东西？

Answer 1

将您的代码移出 Sheet1 模块并移入普通模块。