Excel宏执行ExportAsFixedFormat时中断，求修复及完整实现方案

核心错误分析 #

原代码中断在ExportAsFixedFormat步骤，主要原因包括：

• 导出PDF时仅传入路径，未拼接Macro_Page!C15的文件名，导致Excel无法确定具体输出文件
• PDF_File = "C20"错误地将单元格地址字符串赋值给变量，而非读取C20单元格的收件人地址
• 未处理路径末尾的目录分隔符（斜杠），可能导致路径与文件名拼接时出现格式错误
• 未声明关键变量（如filepath、PDF_File），易引发隐式类型错误
• 过度依赖Select/Activate切换工作表，增加代码不稳定风险

修复后的完整代码 #

Option Explicit ' 强制变量声明，避免隐式错误

Sub CreateEmail()
    Dim objOutlook As Object
    Dim objMail As Object
    Dim signature As String
    Dim wsMacro As Worksheet
    Dim wsSummary As Worksheet
    Dim filepath As String
    Dim fileName As String
    Dim fullPDFPath As String
    
    ' 初始化工作表对象，避免Select操作
    Set wsMacro = ThisWorkbook.Sheets("Macro_Page")
    Set wsSummary = ThisWorkbook.Sheets("TimeSheets_Summary")
    
    ' 获取路径与文件名
    filepath = wsMacro.Range("C18").Value
    fileName = wsMacro.Range("C15").Value & ".pdf" ' 自动添加PDF后缀
    
    ' 处理路径末尾的斜杠，确保拼接正确
    If Right(filepath, 1) <> "\" Then
        filepath = filepath & "\"
    End If
    fullPDFPath = filepath & fileName
    
    On Error GoTo ErrorHandler ' 错误捕获
    
    ' 导出PDF到指定路径
    wsSummary.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        FileName:=fullPDFPath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    
    ' 创建Outlook邮件
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        .Display ' 先显示邮件获取签名
        signature = .HTMLBody ' 保存默认签名
        
        ' 设置邮件内容
        .To = wsMacro.Range("C20").Value
        .Cc = wsMacro.Range("C21").Value
        .Subject = "Company Weekly TimeSheets"
        ' 优化HTML格式写法，避免字符转义问题
        .HTMLBody = "<font face=""Calibri"" size=""4"">" & _
                    "Hi,<br><br>" & _
                    "Please find attached this week's timesheets.<br><br>" & _
                    "</font>" & signature
        .Attachments.Add fullPDFPath ' 附加正确的PDF文件
        .Save ' 保存未发送的邮件
        .Display ' 再次显示供人工检查
    End With
    
    ' 清理对象
    Set objMail = Nothing
    Set objOutlook = Nothing
    Set wsSummary = Nothing
    Set wsMacro = Nothing
    
    Exit Sub

ErrorHandler:
    MsgBox "操作出错：" & Err.Description, vbCritical
    ' 清理对象
    Set objMail = Nothing
    Set objOutlook = Nothing
    Set wsSummary = Nothing
    Set wsMacro = Nothing
End Sub

关键修复说明 #

• 启用Option Explicit：强制所有变量必须声明，避免因隐式类型转换导致的错误
• 移除Select操作：直接通过工作表对象引用单元格，提升代码稳定性与执行效率
• 完整PDF路径拼接：结合C18的路径与C15的文件名，自动添加.pdf后缀，并处理路径末尾的斜杠
• 正确读取单元格内容：修复收件人地址的读取逻辑，直接从wsMacro获取所需值
• 添加错误处理：捕获导出PDF或创建邮件时的异常，给出明确错误提示
• 优化HTML格式：调整邮件正文的HTML写法，避免复杂转义，提升可读性

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