主工作簿模块中
Public gstrA As String
Sub Macro1()
MsgBox "现在执行的是主工作簿中的Macro1,为主工作簿中的全局变量gstrA赋值,gstrA = ""我是gstrA"
gstrA = "我是gstrA"
End Sub
加载宏模块中:
Sub 测试()
Application.Run "主工作薄.xls!Macro1"
MsgBox "现在测试加载宏程序显示主工作薄中定义的全局变量" & gstrA
MsgBox "没有显示全局变量gstrA,说明不同工程的全局变量不能传递"
End Sub