VBA宏在一台PC正常运行另一台报运行时错误1004求助

可能的报错原因及对应解决步骤 #

• 路径异常
  • 检查目标桌面路径是否存在：部分系统桌面可能因OneDrive同步等原因不在默认C:\Users\[用户名]\Desktop\位置，或当前用户无该路径写入权限
  • 替换路径获取方式：使用CreateObject("WScript.Shell").SpecialFolders("Desktop")获取真实桌面路径，避免依赖默认路径
• 工作表引用错误
  • 运行宏时激活的工作表可能不是Invoice表：原代码依赖ActiveSheet导出PDF，若另一台电脑操作时激活了其他工作表，会触发报错
  • 直接绑定Invoice工作表对象，不要依赖ActiveSheet
• 文件名含非法字符
  • 检查Invoice_num和Invoice_client单元格值是否包含Windows禁止的文件名字符：/\:*?"<>|，这类字符会导致保存失败
  • 提前过滤文件名中的非法字符
• PDF导出组件异常
  • 另一台电脑的Excel可能未正确安装PDF导出功能：尝试手动从Excel导出PDF，若失败则修复Office安装

优化后的健壮性代码 #

Sub SavePDFandXLSX()
    Dim userDesktopPath As String, fileNameBase As String
    Dim wsInvoice As Worksheet
    Dim invalidChars As Variant, char As Variant
    
    ' 获取可靠的桌面路径
    userDesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
    ' 绑定Invoice工作表，避免依赖ActiveSheet
    Set wsInvoice = ThisWorkbook.Sheets("Invoice")
    
    ' 生成基础文件名并过滤非法字符
    fileNameBase = "Inv" & wsInvoice.Range("Invoice_num").Value & "_" & wsInvoice.Range("Invoice_client").Value
    invalidChars = Array("/", "\", ":", "*", "?", """", "<", ">", "|")
    For Each char In invalidChars
        fileNameBase = Replace(fileNameBase, char, "")
    Next char
    
    ' 校验必填字段，任一为空则终止流程
    If IsEmpty(wsInvoice.Range("Invoice_date").Value) Then
        MsgBox "请输入日期 - 导出失败", vbExclamation
        Exit Sub
    End If
    If IsEmpty(wsInvoice.Range("Invoice_client").Value) Then
        MsgBox "请输入客户名称 - 导出失败", vbExclamation
        Exit Sub
    End If
    If IsEmpty(wsInvoice.Range("Invoice_description").Value) Or _
       wsInvoice.Range("Invoice_description").Value Like "*Project service or description*" Then
        MsgBox "请填写正确的服务描述 - 导出失败", vbExclamation
        Exit Sub
    End If
    
    ' 优化代码执行效率
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 指定工作表导出PDF
    wsInvoice.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=userDesktopPath & fileNameBase & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
    
    ' 导出XLSX格式文件
    wsInvoice.Copy
    ActiveWorkbook.SaveAs Filename:=userDesktopPath & fileNameBase & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    ' 询问是否清空发票
    If MsgBox("导出完成！是否清空当前发票？此操作不可撤销...", vbYesNo + vbQuestion, "导出完成") = vbYes Then
        Call CopytoInvoicesExportedandClear
    End If
End Sub

额外检查项 #

• 确保另一台电脑的Excel已启用宏（路径：文件>选项>信任中心>信任中心设置>宏设置）
• 确认当前用户对桌面路径有写入权限：可尝试手动在桌面创建文件验证

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