Excel VBA点击按钮导出PDF跨系统报错Run-time error '5'如何解决？

Run-time error '5'本质是无效的过程调用或参数，结合你提供的代码，主要从以下几个方向排查修复：

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

Range("J5")的值可能包含Windows文件名禁止的字符（/\:*?"<>|），或者为空，导致导出路径无效。

修改代码，先处理文件名：

Dim pdfFileName As String
Dim savePath As String

' 获取并清理J5单元格值
pdfFileName = "Q-" & Trim(Range("J5").Value)
' 替换所有非法字符为横线
pdfFileName = Replace(pdfFileName, "/", "-")
pdfFileName = Replace(pdfFileName, "\", "-")
pdfFileName = Replace(pdfFileName, ":", "-")
pdfFileName = Replace(pdfFileName, "*", "-")
pdfFileName = Replace(pdfFileName, "?", "-")
pdfFileName = Replace(pdfFileName, """", "-")
pdfFileName = Replace(pdfFileName, "<", "-")
pdfFileName = Replace(pdfFileName, ">", "-")
pdfFileName = Replace(pdfFileName, "|", "-")

' 检查是否为空文件名
If pdfFileName = "Q-" Then
    MsgBox "J5单元格不能为空，请输入有效内容", vbExclamation
    Exit Sub
End If

2. 指定完整且有权限的保存路径 #

原代码仅指定文件名，未明确路径，不同系统默认保存路径可能无写入权限，或路径存在差异。建议指定桌面这类通用且有权限的路径：

' 取当前用户桌面路径
savePath = Environ("USERPROFILE") & "\Desktop\"

' 执行导出
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    savePath & pdfFileName, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True

3. 避免使用ActiveSheet，指定具体工作表 #

ActiveSheet依赖当前激活的工作表，容易因误操作导致目标错误。直接指定工作表名称更可靠：

' 替换为你实际的工作表名称
Set targetSheet = ThisWorkbook.Sheets("数据工作表")

' 检查工作表是否被保护（保护状态会导致导出失败）
If targetSheet.ProtectContents Then
    targetSheet.Unprotect Password:="你的保护密码" ' 无密码则省略Password参数
End If

' 用指定工作表执行导出
targetSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    savePath & pdfFileName, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True

' 导出后重新保护（如果之前是保护状态）
If targetSheet.ProtectContents = False Then
    targetSheet.Protect Password:="你的保护密码"
End If

4. 检查系统PDF打印组件 #

确保系统中安装了Microsoft Print to PDF或Adobe Acrobat这类PDF虚拟打印机，且设置为默认打印机。旧版Excel可能依赖这些组件完成PDF导出。

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