VBA类实现接口时私有属性的使用方法及接口实用性疑问

咱们一步步来解决你的问题，先搞定当前的属性访问问题，再聊聊VBA接口到底值不值得用。

首先要纠正一个小错误：你在IMyInterface接口里用Dim rngSource As Range的写法是不对的——接口不能直接声明变量，必须用Property定义可访问的成员契约。先修正你的接口模块：

' IMyInterface 接口模块
Property Set rngSource(RHS As Range)
End Property

Property Get rngSource() As Range
End Property

接下来，你在MyClass里生成的IMyInterface_rngSource是私有成员，这是VBA接口实现的默认行为（Implements生成的存根都是私有），所以直接用MyClass类型的实例看不到它。有两种实用的解决方式：

方式1：通过接口类型变量访问 #

如果你想严格遵循接口契约来操作，可以把实例赋值给IMyInterface类型的变量，而非MyClass类型：

' 标准模块中
Sub TestInterface()
    Dim myObj As IMyInterface ' 用接口类型声明变量
    Set myObj = New MyClass
    
    ' 现在可以直接调用接口定义的属性
    Set myObj.rngSource = ThisWorkbook.Sheets("Sheet1").Range("A1:C10")
    Debug.Print myObj.rngSource.Address
End Sub

这种方式适合需要多态性的场景，能统一处理所有实现该接口的类实例。

方式2：在类中封装公共属性 #

如果你希望外部可以直接通过MyClass实例访问这个属性，可以在类里写一个公共属性，内部转发到接口的私有实现：

' MyClass 类模块
Implements IMyInterface

Private m_rngSource As Range ' 用私有变量存储实际值

' 接口的私有实现
Private Property Set IMyInterface_rngSource(RHS As Range)
    Set m_rngSource = RHS
End Property

Private Property Get IMyInterface_rngSource() As Range
    Set IMyInterface_rngSource = m_rngSource
End Property

' 公共属性，供外部直接调用
Public Property Set SourceRange(RHS As Range)
    Set IMyInterface_rngSource = RHS ' 转发到接口实现
End Property

Public Property Get SourceRange() As Range
    Set SourceRange = IMyInterface_rngSource
End Property

这样外部代码就可以直接操作MyClass的SourceRange属性了：

Sub TestClass()
    Dim myObj As MyClass
    Set myObj = New MyClass
    
    Set myObj.SourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:C10")
    Debug.Print myObj.SourceRange.Address
End Sub

很多VBA开发者一开始会觉得接口没用，但它是实现面向对象核心思想的关键工具，尤其是在复杂项目中：

• 实现多态性：这是接口最核心的价值。比如你有Order、Invoice两个类，都需要生成报表，你可以定义一个IReportable接口要求实现GenerateReport方法，然后写一个通用的ProcessReports过程——不管传入的是订单还是发票，都能统一调用GenerateReport，不用写重复代码。
• 解耦代码依赖：如果你的程序依赖接口而非具体类，以后替换实现类会非常方便。比如原来用ExcelStorage类存储数据，现在要换成DatabaseStorage，只要新类实现了相同的IStorage接口，所有调用IStorage的代码都不用修改。
• 规范类的行为：接口定义了必须实现的成员，确保所有实现类都遵循相同的“契约”，避免遗漏关键功能。比如你定义IValidatable接口要求实现IsValid方法，所有实现这个接口的类都必须包含合法性校验逻辑。
• 隐藏内部细节：通过接口只对外暴露必要的成员，类的私有逻辑和额外功能可以隐藏起来，符合封装原则，让代码更安全、更易维护。

举个实际的小例子：假设你需要处理不同类型的文件导入（Excel、CSV、Txt），可以定义IFileImporter接口：

' IFileImporter 接口
Function ImportData(filePath As String) As Range
End Function

然后每个文件类型对应一个类（ExcelImporter、CsvImporter、TxtImporter）实现这个接口。主程序里只要写：

Sub ImportAnyFile(importer As IFileImporter, filePath As String)
    Dim importedData As Range
    Set importedData = importer.ImportData(filePath)
    ' 后续统一处理导入的数据
End Sub

以后要支持新的文件类型（比如XML），只要加一个XmlImporter类实现IFileImporter，主程序完全不用改——这就是接口带来的灵活性。

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