VBA中如何在子过程间传递类成员对象？

看起来你在处理不同配置类的实例化和初始化时，遇到了代码重复和类型传递的问题——这在VBA里处理多态场景时很常见，我给你几个实际可行的方案，从最优雅的通用方案到备选方案都有：

最优通用方案：使用接口统一处理多类对象 #

核心思路是给所有配置类定义一个共同的接口，这样不管是Cfg_Naut还是其他后续可能新增的配置类，都可以通过接口类型统一调用公共方法/属性，完美解决代码复用和类型传递的问题。

步骤1：创建接口类 #

先新建一个类模块，命名为ICfg（前缀I表示接口），在里面定义所有配置类共有的成员：

' ICfg 接口类
Public Property Let AdresseCfg(row As Integer, col As Integer, value As Variant)
End Property
Public Property Get AdresseCfg(row As Integer, col As Integer) As Variant
End Property
Public Sub Read_Cfg()
End Sub

步骤2：让配置类实现接口 #

打开你的Cfg_Naut类模块，添加Implements ICfg语句，然后实现接口里的所有成员（注意实现的方法/属性名称会自动加上ICfg_前缀）：

' Cfg_Naut 类模块
Implements ICfg

' 实现ICfg的AdresseCfg属性（Get方法）
Public Property Get ICfg_AdresseCfg(row As Integer, col As Integer) As Variant
    ICfg_AdresseCfg = Me.AdresseCfg(row, col)
End Property

' 实现ICfg的AdresseCfg属性（Let方法）
Public Property Let ICfg_AdresseCfg(row As Integer, col As Integer, value As Variant)
    Me.AdresseCfg(row, col) = value
End Property

' 实现ICfg的Read_Cfg方法
Public Sub ICfg_Read_Cfg()
    Me.Read_Cfg
End Sub

' 保留你原有的类实现
Public Property Get AdresseCfg(row As Integer, col As Integer) As Variant
    ' 这里是你原来的属性实现代码
End Property

Public Property Let AdresseCfg(row As Integer, col As Integer, value As Variant)
    ' 这里是你原来的属性实现代码
End Property

Public Sub Read_Cfg()
    ' 这里是你原来的方法实现代码
End Sub

步骤3：重构主过程，抽离公共逻辑 #

现在你可以把重复的初始化代码抽成一个单独的子过程，参数用接口类型ICfg，主过程里根据类型创建对应类的实例赋值给接口变量即可：

Sub peupler_dictionnaire_configs()
    Dim iLigneAnnuaireWs As Integer
    Dim CfgTemp As ICfg ' 使用接口类型，兼容所有实现ICfg的类
    Dim cfgKey As String
    
    For iLigneAnnuaireWs = 3 To 22
        cfgKey = WsCfg.Cells(iLigneAnnuaireWs, 1).Value
        
        ' 根据单元格值创建对应配置类实例
        Select Case WsCfg.Cells(iLigneAnnuaireWs, 11)
            Case "nautique"
                Set CfgTemp = New Cfg_Naut
            ' 后续新增其他配置类型，直接加Case即可
            ' Case "terrestre": Set CfgTemp = New Cfg_Terrestre
        End Select
        
        ' 调用公共子过程处理初始化
        If Not CfgTemp Is Nothing Then
            PopulateAndReadCfg CfgTemp, WsCfg, iLigneAnnuaireWs
            DictCfg.Add cfgKey, CfgTemp
            Set CfgTemp = Nothing ' 及时释放对象
        End If
    Next iLigneAnnuaireWs
End Sub

' 公共初始化子过程，接受接口类型参数
Private Sub PopulateAndReadCfg(ByRef cfg As ICfg, sourceWs As Worksheet, dataRow As Integer)
    cfg.AdresseCfg(1, 1) = sourceWs.Cells(dataRow, 4).Value
    cfg.AdresseCfg(1, 2) = sourceWs.Cells(dataRow, 5).Value
    cfg.AdresseCfg(2, 1) = sourceWs.Cells(dataRow, 6).Value
    cfg.AdresseCfg(2, 2) = sourceWs.Cells(dataRow, 7).Value
    cfg.Read_Cfg
End Sub

这个方案的好处：

• 完全避免了公共变量，临时变量用局部接口类型即可，类型安全
• 代码复用性极强，新增配置类只要实现ICfg接口，就能直接用PopulateAndReadCfg子过程
• 逻辑清晰，后续维护成本低

备选方案：使用公共字典/集合存储临时变量 #

如果暂时不想用接口（比如项目很小，不想额外创建接口类），用公共字典存储临时变量是可接受的，但要注意几个细节：

• 每次使用完要从字典里移除对应的键，避免内存泄漏和残留数据干扰
• 尽量给字典加明确的命名，比如TempCfgObjects，避免和其他全局变量混淆
• 这种方案没有类型检查，容易出现运行时错误（比如误传非配置类对象）

示例代码大概是这样：

' 模块级公共字典
Public TempCfgObjects As New Dictionary

Sub peupler_dictionnaire_configs()
    Dim iLigneAnnuaireWs As Integer
    Dim cfgKey As String
    Dim tempKey As String
    
    For iLigneAnnuaireWs = 3 To 22
        cfgKey = WsCfg.Cells(iLigneAnnuaireWs, 1).Value
        tempKey = "TempCfg_" & iLigneAnnuaireWs ' 生成唯一临时键
        
        Select Case WsCfg.Cells(iLigneAnnuaireWs, 11)
            Case "nautique"
                Set TempCfgObjects(tempKey) = New Cfg_Naut
        End Select
        
        ' 调用公共子过程，传递临时键
        ProcessTempCfg tempKey, WsCfg, iLigneAnnuaireWs
        
        DictCfg.Add cfgKey, TempCfgObjects(tempKey)
        TempCfgObjects.Remove tempKey ' 用完即删
    Next iLigneAnnuaireWs
End Sub

Private Sub ProcessTempCfg(tempKey As String, sourceWs As Worksheet, dataRow As Integer)
    Dim cfg As Object
    Set cfg = TempCfgObjects(tempKey)
    
    cfg.AdresseCfg(1, 1) = sourceWs.Cells(dataRow, 4).Value
    cfg.AdresseCfg(1, 2) = sourceWs.Cells(dataRow, 5).Value
    cfg.AdresseCfg(2, 1) = sourceWs.Cells(dataRow, 6).Value
    cfg.AdresseCfg(2, 2) = sourceWs.Cells(dataRow, 7).Value
    cfg.Read_Cfg
End Sub

但我还是更推荐接口方案，它是VBA里处理多态场景最规范的方式，长远来看收益更高。

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