VBA邮件代码中文件名%20替换无效，如何修复？

问题描述 #

编写的VBA代码在生成邮件时，附件文件名依旧存在用%20代替空格的情况，已使用Replace函数但未解决。另有一份内容完全相同的文档，其代码更精简且未使用Replace函数却能正常运行，但将该代码复制到当前文档后问题重现。代码如下：

Sub PrintAndEmailPDF()
    Dim ws As Worksheet
    Dim pdfFileName As String
    Dim excelFileName As String
    Dim emailSubject As String
    Dim outlookApp As Object
    Dim outlookMail As Object
    Dim filePath As String
    Dim excelFilePath As String

    ' Set the worksheet
    Set ws = ThisWorkbook.Sheets("FORM") ' Change "FORM" to your actual sheet name

    ' Define the PDF file name and path
    pdfFileName = Replace("Business%20Income%20&%20EE%20Form%20-%20Completed.pdf", "%20", " ")
    filePath = ThisWorkbook.Path & "\" & pdfFileName

    ' Define the Excel file name and path
    excelFileName = Replace("Business%20Income%20&%20EE%20Form%20-%20Completed.xlsx", "%20", " ")
    excelFilePath = ThisWorkbook.FullName

    ' Export the worksheet as a PDF
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard

    ' Create the email subject using data from Cell A8
    emailSubject = ws.Range("A8").Value & "- BI & EE Form"

    ' Create an Outlook email
    Set outlookApp = CreateObject("Outlook.Application")
    Set outlookMail = outlookApp.CreateItem(0)

    ' Configure the email
    With outlookMail
        .To = "andrews@getkig.com"
        .CC = ""
        .Subject = emailSubject
        .Body = "Please see the attached completed form."
        .Attachments.Add filePath
        .Attachments.Add excelFilePath
        .Display ' Use .Send to send the email directly
    End With

    ' Clean up
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub

问题分析 #

1. Excel附件未处理文件名：代码中定义了excelFileName但未实际使用，直接调用ThisWorkbook.FullName作为附件路径。若当前工作簿的文件名本身包含%20（而非空格），则附件名会直接显示%20。
2. 路径可能存在URL编码：若当前工作簿所在的文件夹路径或工作簿文件名本身是URL编码格式（含%20），仅处理PDF文件名无法解决问题。
3. 代码冗余与无效处理：PDF文件名的Replace操作是手动对固定字符串处理，但如果ThisWorkbook.Path中包含%20，拼接后的filePath仍会携带编码字符。

修复方案 #

方案1：统一处理所有路径中的%20 #

修改代码，对PDF路径、Excel路径都进行全局的%20替换，确保路径和文件名中的编码字符都被替换为空格：

Sub PrintAndEmailPDF()
    Dim ws As Worksheet
    Dim pdfFileName As String
    Dim emailSubject As String
    Dim outlookApp As Object
    Dim outlookMail As Object
    Dim filePath As String
    Dim excelFilePath As String

    Set ws = ThisWorkbook.Sheets("FORM")

    ' 处理PDF文件名与路径，替换所有%20为空格
    pdfFileName = Replace("Business%20Income%20&%20EE%20Form%20-%20Completed.pdf", "%20", " ")
    filePath = Replace(ThisWorkbook.Path & "\" & pdfFileName, "%20", " ")

    ' 处理Excel附件路径，替换工作簿全名中的%20为空格
    excelFilePath = Replace(ThisWorkbook.FullName, "%20", " ")

    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard

    emailSubject = ws.Range("A8").Value & "- BI & EE Form"

    Set outlookApp = CreateObject("Outlook.Application")
    Set outlookMail = outlookApp.CreateItem(0)

    With outlookMail
        .To = "andrews@getkig.com"
        .CC = ""
        .Subject = emailSubject
        .Body = "Please see the attached completed form."
        .Attachments.Add filePath
        .Attachments.Add excelFilePath
        .Display
    End With

    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub

方案2：检查并修正工作簿/文件夹的实际名称 #

如果另一份正常运行的文档所在路径及文件名都是使用空格而非%20，请检查当前工作簿的：

• 实际文件名是否包含%20，若有则重命名为带空格的名称；
• 所在文件夹路径是否包含%20，若有则重命名文件夹为带空格的名称。

方案3：直接使用无编码的文件名定义 #

避免手动编写带%20的文件名字符串，直接使用带空格的原始文件名：

' 直接使用带空格的文件名，无需Replace
pdfFileName = "Business Income & EE Form - Completed.pdf"
filePath = ThisWorkbook.Path & "\" & pdfFileName

关键说明 #

• 若复制其他文档的代码后出现问题，大概率是当前文档的路径或文件名本身存在URL编码的%20，而非代码逻辑问题；
• 确保ExportAsFixedFormat生成的PDF文件实际保存为带空格的文件名，可手动打开文件所在路径确认。

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