Excel 2016 VBA类模块实例作为公共Sub参数的编译错误解决

错误原因 #

你遇到的编译错误核心是：公共对象模块（如ThisWorkbook、工作表模块）的公共过程，不能使用可见性为Private的对象类/接口作为参数。默认情况下，VBA类模块的Instancing属性为Private，导致IConnector接口和MyConnector实现类无法被ThisWorkbook里的公共group_dataSub接受。

直接解决方案 #

步骤1：修改接口类的可见性 #

打开IConnector类模块，按F4调出属性窗口，将Instancing属性设置为PublicNotCreatable。该设置表示：接口不能直接被实例化，但可作为类型在公共过程中使用。

步骤2：修改实现类的可见性 #

对MyConnector类模块执行同样操作，将Instancing属性改为PublicNotCreatable，确保它能被公共过程识别为IConnector类型的实例。

步骤3：规范调用代码（可选） #

为贴合解耦设计，建议将调用变量声明为接口类型而非具体实现类：

Private Sub CommandButton1_Click()
Dim connector As IConnector
Set connector = New MyConnector

ThisWorkbook.group_data connector, "Bad", "Good"
End Sub

替代方案（无需修改类可见性） #

如果不想调整类的Instancing属性，可将group_dataSub从ThisWorkbook移到标准模块中。标准模块的公共过程不受“公共对象模块参数可见性”限制，能正常接受Private类/接口作为参数。

设计模式适配说明 #

你的思路是典型的策略模式实现：

• IConnector是抽象策略接口，定义了数据采集、写入、标记的统一方法；
• MyConnector等实现类是具体策略，负责适配不同表结构的业务逻辑；
• group_data是上下文，负责调用策略接口的方法，无需关心具体实现。

这种设计完全满足你解耦数据采集步骤的需求，解决可见性问题后即可正常运行。

额外注意事项 #

• 所有实现IConnector的类必须严格匹配接口的方法签名（参数类型、数量、返回值完全一致），否则会触发“类未实现接口成员”的编译错误；
• 若需跨工作簿调用这些类，可将Instancing改为Public，单工作簿场景下PublicNotCreatable足够。

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