Excel VBA宏导出指定区域为PDF时触发Runtime error 1004问题求助

我来帮你排查这个报错的问题，先从代码里的明显坑和常见触发场景一步步梳理：

首先，你的代码里有个关键问题：你把VBA的内置函数ChDir当成了变量名，这会导致命名冲突，是引发错误的核心原因之一。除此之外，还有几个常见场景也会触发这个1004错误，我给你逐一解决：

1. 先修复变量名冲突 #

把ChDir这个变量改成其他合法名称，比如saveFolderPath，彻底避免和内置函数重名：

2. 确保目标文件夹存在 #

如果D:\New Lab Report\AntigenReports\这个路径还没创建，VBA会直接报错。可以加一段代码自动检查并创建文件夹，不用手动去确认：

3. 清理文件名中的非法字符 #

Windows文件名不允许包含/:*?"<>|这些字符，如果Range("E9")的内容里有这些特殊符号，保存操作会直接失败。可以加个小函数过滤掉这些非法字符：

最终修改后的完整代码 #

Sub AntigenReportSlip()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("AntigenReportSlip") ' 尽量避免用Select，代码更高效稳定
    
    Dim filename As String
    Dim saveFolderPath As String ' 替换原ChDir变量名，避免冲突
    saveFolderPath = "D:\New Lab Report\AntigenReports\"
    
    ' 检查目标文件夹是否存在，不存在则创建
    If Dir(saveFolderPath, vbDirectory) = "" Then
        MkDir saveFolderPath
    End If
    
    ' 获取文件名并清理非法字符
    filename = ws.Range("E9").Value
    filename = CleanFilename(filename)
    
    ' 执行PDF导出
    ws.Range("$A$1:$U$33").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        filename:=saveFolderPath & filename & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        openAfterPublish:=True
End Sub

' 辅助函数：过滤文件名中的非法字符
Function CleanFilename(strName As String) As String
    Dim invalidChars As String
    invalidChars = "/:*?""<>|"
    Dim i As Integer
    For i = 1 To Len(invalidChars)
        strName = Replace(strName, Mid(invalidChars, i, 1), "")
    Next i
    CleanFilename = strName
End Function

额外排查点 #

如果修改后还是报错，可以检查这两个地方：

• 导出的PDF文件是不是已经在其他程序（比如Adobe Reader）中打开，关闭后再重试
• 确认你的Windows账户对目标文件夹有写入权限，公司电脑可能需要管理员权限才能写入特定路径

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