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

VBA天才：

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

这工作：ViewTextFile（）是一个模块中的公共子

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

我想将该子移动到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 & """'"