在Excel中构建与Outlook一致的VBA类结构以复用代码

我明白你的需求——因为Outlook运行时没法修改测试，想在Excel里复刻出和Outlook一致的类结构，这样后续把代码迁移过去时不用改动业务逻辑。用Property Get来实现层级结构是完全可行的，下面我一步步给你拆解实现方案：

1. 创建单个附件类（clsAttachment） #

这个类对应Outlook里的Attachment对象，我们先实现核心的Filename属性：

打开VBA编辑器，插入一个类模块，把它命名为clsAttachment，然后写入以下代码：

Option Explicit

Private m_strFilename As String

' 读取文件名
Property Get Filename() As String
    Filename = m_strFilename
End Property

' 设置文件名（测试时用来初始化）
Property Let Filename(ByVal strValue As String)
    m_strFilename = strValue
End Property

' 如果需要其他属性（比如Size、PathName），可以按同样方式添加
' Property Get Size() As Long
'     Size = m_lngSize
' End Property
' Property Let Size(ByVal lngValue As Long)
'     m_lngSize = lngValue
' End Property

2. 创建附件集合类（clsAttachments） #

这个类对应Outlook里的Attachments集合，需要实现Item方法和Count属性来模拟集合的访问：

插入另一个类模块，命名为clsAttachments，代码如下：

Option Explicit

Private m_colAttachments As Collection

' 类初始化时创建集合
Private Sub Class_Initialize()
    Set m_colAttachments = New Collection
End Sub

' 类销毁时清理集合
Private Sub Class_Terminate()
    Set m_colAttachments = Nothing
End Sub

' 获取集合中的单个附件（对应Outlook的Attachments.Item(i)）
Function Item(ByVal Index As Integer) As clsAttachment
    Set Item = m_colAttachments(Index)
End Function

' 获取附件总数
Property Get Count() As Integer
    Count = m_colAttachments.Count
End Property

' 测试时用来添加附件的方法
Sub Add(ByVal objAttachment As clsAttachment)
    m_colAttachments.Add objAttachment
End Sub

3. 创建邮件项类（clsItem） #

这个类对应Outlook里的MailItem（或其他Item对象），包含Attachments属性：

插入第三个类模块，命名为clsItem，代码如下：

Option Explicit

Private m_objAttachments As clsAttachments

Private Sub Class_Initialize()
    Set m_objAttachments = New clsAttachments
End Sub

Private Sub Class_Terminate()
    Set m_objAttachments = Nothing
End Sub

' 获取附件集合
Property Get Attachments() As clsAttachments
    Set Attachments = m_objAttachments
End Property

' 如果需要Item的其他属性（比如Subject、SenderEmailAddress），同样添加Property Get/Let

4. 测试你的代码逻辑 #

在Excel的标准模块里写测试代码，完全复用你原来的Outlook代码逻辑：

Option Explicit

Sub TestOutlookLikeStructure()
    Dim objItem As clsItem
    Dim sFilename As String
    Dim i As Integer
    
    ' 初始化对象
    Set objItem = New clsItem
    
    ' 添加测试附件（模拟Outlook中的附件）
    Dim testAttachment As clsAttachment
    Set testAttachment = New clsAttachment
    testAttachment.Filename = "myTFile.txt"
    objItem.Attachments.Add testAttachment
    
    ' 完全复用你原来的代码逻辑
    For i = 1 To objItem.Attachments.Count
        sFilename = objItem.Attachments.Item(i).Filename
        Debug.Print "获取到的文件名：" & sFilename ' 输出：myTFile.txt
    Next i
    
    ' 清理对象
    Set testAttachment = Nothing
    Set objItem = Nothing
End Sub

关键优势 #

当你在Excel里测试完所有逻辑后，只需要把代码迁移到Outlook中，将clsItem、clsAttachments、clsAttachment的声明替换为Outlook的原生对象（比如Dim objItem As Outlook.MailItem），业务逻辑代码不需要做任何修改——因为我们复刻了完全一致的属性和方法调用结构。

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