VBA如何跨工作簿访问其他工作簿声明的Public全局变量

核心原因说明 #

VBA标准模块中用Public声明的变量作用域仅覆盖所属工作簿的VBA工程，不会自动对其他打开的工作簿开放直接访问权限，直接跨工作簿写strText调用的写法，会因为作用域限制无法取到值。

业务要求必须通过全局变量传值、禁止跨工作簿公式引用的前提下，有两种稳定可行的实现方案。

方案1：配置VBA工程引用直接访问变量 #

适合两个工作簿固定存储位置、不会频繁移动的场景：

• 同时打开两个目标工作簿，确保workbook1.xlsm宏已正常启用
• 进入workbook2.xlsm的VBA编辑器（按快捷键Alt+F11），点击顶部菜单栏【工具】-【引用】
• 在弹出的引用列表中找到workbook1.xlsm对应的VBA工程（建议提前打开workbook1的VBA工程属性，把默认的重名工程名VBAProject改成唯一值比如Wb1Proj，避免和其他工程重名报错），勾选对应项后点击确定
• 注意跨工程调用变量前，必须先运行过workbook1中给strText赋值的module1过程，否则变量为空值。

workbook2.xlsm中对应调用代码：

Sub module2()
    ' 先执行workbook1的赋值过程，确保变量有值
    Application.Run "'workbook1.xlsm'!module1"
    ' 加工程名前缀调用全局变量，避免重名冲突
    Range("A1").Value = Wb1Proj.strText
End Sub

方案2：封装公共取值函数，动态调用（无需手动配置引用） #

适合工作簿可能移动、需要动态加载的场景，兼容性更强，不会出现引用丢失、工程重名问题：

• 首先修改workbook1.xlsm模块1的原有代码，新增一个对外暴露变量值的公共函数，同时可以加自动赋值逻辑避免空值：

Public strText As String

Sub module1()
   strText = Cells(4, 3).Value
   MsgBox strText
End Sub

' 对外暴露全局变量值的公共函数
Public Function GetWb1StrText() As String
    ' 变量为空时自动执行赋值逻辑，不需要手动提前运行module1
    If strText = "" Then Call module1
    GetWb1StrText = strText
End Function

• 如果需要实时同步C6单元格修改后的订单状态，可以在workbook1.xlsm对应工作表的模块中加Change事件，单元格变动时自动更新全局变量：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 监测C6单元格的修改操作
    If Not Intersect(Target, Range("C6")) Is Nothing Then
        ' 同步更新strText的值为最新C4内容
        strText = Range("C4").Value
    End If
End Sub

• 直接在workbook2.xlsm中写调用代码即可，不需要提前配置任何引用：

Sub module2()
    ' 如果workbook1和workbook2在同目录，直接写文件名即可；否则替换为workbook1的完整本地路径
    Dim wb1Name As String
    wb1Name = "workbook1.xlsm"
    ' 调用workbook1的公共函数取值，填充到目标单元格
    Range("A1").Value = Application.Run("'" & wb1Name & "'!GetWb1StrText")
End Sub

注意事项 #

• 所有跨工作簿VBA调用的前提是workbook1.xlsm处于打开状态，且宏安全级别已允许宏运行
• VBA全局变量会在工作簿关闭、VBA工程重置（点击编辑器停止按钮、代码运行报错中断）后清空，下次调用前会自动通过预设逻辑重新赋值
• 不建议直接跨工程暴露可写的全局变量，通过只读函数返回值的方式稳定性更高，不会出现其他工作簿误修改全局变量值的问题

内容的提问来源于stack exchange，提问作者choo