如何使用VBA读取本地Excel的MailID列并生成逗号分隔结果

原有代码问题梳理 #

• 路径不匹配：附件保存路径为C:\Development\Files\，后续读取Excel的路径写为C:\Development_Avecto\Files\，会触发文件找不到错误
• 工作表引用错误：代码中引用工作表名为MailID.xlsx，和需求指定的目标工作表Sheet1不符
• 读取列错误：原有代码读取第1列（即S.No序号列），未读取目标MailID列
• 循环逻辑错误：仅执行1次单元格读取，未遍历整列数据，也无逗号拼接逻辑
• 未做空值过滤、对象资源释放，易产生无效拼接内容、后台Office进程残留问题

修正后完整可运行代码 #

Public Sub AutomateOutlook()
    Dim mail As Outlook.MailItem
    Dim OAtmt As Outlook.Attachment
    Dim strSavePath As String
    
    ' 统一文件存储路径，避免路径不一致问题
    strSavePath = "C:\Development\Files\"
    Set mail = Application.ActiveInspector.CurrentItem
    
    ' 保存邮件中的附件
    For Each OAtmt In mail.Attachments
        OAtmt.SaveAsFile strSavePath & OAtmt.FileName
    Next OAtmt
    
    ' 调用读取过程获取拼接好的邮箱地址字符串
    Dim strMailList As String
    strMailList = ReadDataFromCloseFile(strSavePath & "MailID.xlsx")
    
    ' 示例用法：将拼接结果直接设为当前邮件收件人，可按需调整使用方式
    mail.To = strMailList
    mail.Save
    
    ' 释放对象
    Set OAtmt = Nothing
    Set mail = Nothing
End Sub

Public Function ReadDataFromCloseFile(strFilePath As String) As String
    Dim src As Workbook
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim strResult As String
    
    ' 只读打开目标Excel文件
    Set src = Workbooks.Open(strFilePath, True, True)
    ' 指向需求指定的Sheet1工作表
    Set ws = src.Worksheets("Sheet1")
    
    ' 获取MailID列（B列，A列为S.No序号列）最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    strResult = ""
    ' 从第2行开始遍历，跳过第1行表头
    For i = 2 To lastRow
        ' 仅非空单元格参与拼接，避免出现多余逗号
        If Trim(ws.Cells(i, "B").Value) <> "" Then
            If strResult = "" Then
                strResult = Trim(ws.Cells(i, "B").Value)
            Else
                strResult = strResult & "," & Trim(ws.Cells(i, "B").Value)
            End If
        End If
    Next i
    
    ' 关闭工作簿，不保存任何修改
    src.Close SaveChanges:=False
    
    ' 释放对象，避免后台残留Excel进程
    Set ws = Nothing
    Set src = Nothing
    
    ' 返回拼接完成的逗号分隔MailID字符串
    ReadDataFromCloseFile = strResult
End Function

使用说明 #

• 代码默认MailID存储在B列（A列为S.No序号列），如果实际列位置有调整，修改代码中列标"B"为对应列即可
• 拼接过程自动跳过空单元格，不会出现首尾多余逗号、连续逗号的格式问题
• 存储路径做了统一定义，后续需要修改文件存放位置仅需调整strSavePath变量值即可

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