VBA类实例化与作用域问题：配置类跨模块访问失败

你的问题核心在于VBA中窗体的公共变量并非全局可见——当你在其他模块直接写configuration.SqlServerName时，VBA不知道这个configuration是隐藏窗体frmYouShouldNotSeeMe的成员，所以会报错“变量未定义”。下面给你几种可行的解决方案，从简单到优雅的OOP实现都有：

方案1：明确引用窗体的公共变量 #

最简单的修改方式，就是在调用时指定窗体名称作为前缀，告诉VBA这个变量属于哪个对象：

' 其他模块/窗体/报表中调用
MsgBox frmYouShouldNotSeeMe.configuration.SqlServerName

注意：这个方案依赖隐藏窗体已经加载（你在Form_Load里实例化了配置类），如果窗体未加载，这段代码会自动触发窗体加载（因为访问窗体的公共成员会强制加载窗体），而你的窗体是隐藏的，用户不会感知到。

方案2：用标准模块的全局变量持有实例 #

如果觉得每次写窗体名称麻烦，可以创建一个标准模块（比如命名为modGlobal），定义一个全局变量来存储配置实例：

' modGlobal模块代码
Option Explicit
Public g_config As clsConfiguration ' 全局变量，整个应用可见

然后修改隐藏窗体的Form_Load事件，把实例赋值给这个全局变量：

' frmYouShouldNotSeeMe的Form_Load
Private Sub Form_Load()
    Set g_config = New clsConfiguration
    ' 这里的测试MsgBox可以保留或移除
End Sub

之后在任何地方直接调用全局变量即可：

MsgBox g_config.SqlServerName

这种方式更直观，也降低了对窗体的依赖。建议配合AutoExec宏使用，确保数据库启动时自动加载这个隐藏窗体（宏里添加“打开窗体”动作，选择frmYouShouldNotSeeMe，窗口模式设为“隐藏”）。

方案3：实现配置类的单例模式（最优雅的OOP方式） #

如果想完全摆脱对窗体的依赖，让配置类自己管理唯一实例，推荐用单例模式修改你的clsConfiguration类，这样整个应用只会存在一个配置实例，避免重复加载XML文件：

Option Compare Database
Option Explicit

Private mstrSqlServerName As String
Private Shared m_instance As clsConfiguration ' 共享成员，确保全局唯一

' 对外暴露唯一实例的属性
Public Property Get Instance() As clsConfiguration
    If m_instance Is Nothing Then
        Set m_instance = New clsConfiguration
    End If
    Set Instance = m_instance
End Property

' 原有属性保持不变
Public Property Get SqlServerName() As String
    SqlServerName = mstrSqlServerName
End Property

Private Sub Class_Initialize()
    readConfigFile
End Sub

Private Function loadConfigFile() As MSXML2.DOMDocument60
    On Error GoTo FunctionError
    Dim XMLFileName As String
    Dim oXMLFile As MSXML2.DOMDocument60
    
    Set oXMLFile = New MSXML2.DOMDocument60
    XMLFileName = Application.CurrentProject.Path & "\config.xml"
    With oXMLFile
        .validateOnParse = True
        .SetProperty "SelectionLanguage", "XPath"
        .async = False
        .Load XMLFileName
    End With
    Set loadConfigFile = oXMLFile
    
FunctionError:
    ' 添加错误处理，避免配置文件问题导致崩溃
    If Err.Number <> 0 Then
        MsgBox "加载配置文件失败：" & Err.Description, vbCritical
        Err.Clear
        Set loadConfigFile = Nothing
    End If
End Function

Public Sub readConfigFile()
    Dim oXMLFile As MSXML2.DOMDocument60
    Set oXMLFile = loadConfigFile
    If Not oXMLFile Is Nothing Then
        mstrSqlServerName = oXMLFile.selectSingleNode("//config/database/SqlServerName").Text
    End If
End Sub

之后在任何地方调用时，直接通过类的Instance属性获取实例：

MsgBox clsConfiguration.Instance.SqlServerName

这种方式不需要任何窗体，完全靠类自身管理实例，是更符合面向对象设计的做法。

额外注意事项 #

1. 错误处理：你的原有loadConfigFile函数没有错误处理，建议加上（比如我在方案3里补充的），防止XML文件丢失、路径错误或格式不正确时程序崩溃。
2. MSXML引用：确保你已经在VBA编辑器的「工具」→「引用」中勾选了Microsoft XML, v6.0，否则代码会报错。

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