导出多个Excel工作表为独立PDF时触发Runtime Error 5问题排查

错误原因分析 #

你的代码触发错误主要有两个常见原因：

• 未选择保存文件夹：如果用户在文件夹选择对话框点击取消，Folder_Path会是空字符串，导致Filename参数无效。
• 工作表名称含非法字符：Windows文件名不允许包含\ / : * ? " < > |这些字符，若工作表名称里有这些，会导致导出路径无效。

修正后的代码 #

Sub Makro1()
    Dim Folder_Path As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Ordner zum Speichern der PDFs auswählen"
        If .Show <> -1 Then
            MsgBox "Kein Ordner ausgewählt. Abbruch."
            Exit Sub ' 用户取消选择，直接退出宏
        End If
        Folder_Path = .SelectedItems(1)
    End With

    Dim sh As Worksheet
    Dim ValidFileName As String
    Dim InvalidChars As Variant
    InvalidChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    
    For Each sh In ActiveWorkbook.Worksheets
        ' 清理工作表名称中的非法字符
        ValidFileName = sh.Name
        For Each Char In InvalidChars
            ValidFileName = Replace(ValidFileName, Char, "_")
        Next Char
        
        ' 执行导出
        sh.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Folder_Path & Application.PathSeparator & ValidFileName & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Next

    MsgBox "Fertig!"
End Sub

关键修改说明 #

• 增加取消选择的处理：如果用户没选文件夹，直接提示并退出，避免空路径导致的错误。
• 清理非法字符：遍历并替换工作表名称里所有Windows文件名不允许的字符为下划线，确保生成的PDF路径合法。
• 代码格式化：拆分ExportAsFixedFormat的参数，提升可读性。

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