VBA，Excel：可以将 .OnAction 值设置为 ThisWorkbook 中的 Public Sub

Question

VBA 天才：

问题 1： 是否可以将菜单选项的 .OnAction 值设置为 ThisWorkbook 中的 Public Sub 或必须子在一个模块？

这可行：ViewTextFile() 是 模块

中的公共子组件

.Controls(strMenuItem).OnAction = "'ViewTextFile """ & strMenuItem & """'"

我想将 sub 移动到 ThisWorkbook，所以值变成这样：

.Controls(strMenuItem).OnAction = "'" & ThisWorkbook.Name & "!ViewTextFile """ & strMenuItem & """'"

问题 2： 如果 #1 的答案是肯定的，那么在 .OnAction 命令中获取对“ThisWorkbook”的引用的语法是什么？

请注意，参数 strMenuItem 必须包含在值中（如“ViewTextFile my_file.txt”）。我已经尝试了上述的许多变体，但没有成功。

谢谢 VBA 天才们！

Answer 1

.Controls(strMenuItem).OnAction = _
            "'ThisWorkbook.ViewTextFile """ & strMenuItem  & """'"