VBA保存工作表为PDF时触发Runtime Error 1004错误求助

你遇到的Error 1004主要来自几个明确的代码问题，逐个排查修复即可：

核心错误点分析 #

1. 未初始化关键变量 #

amt、dt_issue、term三个变量仅做了声明，但从未从工作表读取对应值，直接写入Sheet3时会触发类型不匹配或空值错误（比如Date类型变量默认值为1900-1-0，与业务逻辑冲突）。

2. 文件路径与文件名风险 #

• 若指定的PDF保存路径不存在，ExportAsFixedFormat不会自动创建文件夹，直接报错；
• 赞助商名称firmname可能包含斜杠、冒号等PDF文件名禁止的非法字符，导致保存失败。

3. 未指定工作表的Range引用 #

代码中Range("C3")、Range("B10")等未绑定具体工作表，默认使用当前激活的ActiveSheet，若运行宏时切换了工作表，会读取错误值甚至触发引用错误。

4. Sheet3引用有效性 #

需确保工作簿中确实存在名为Sheet3的工作表，或改用更可靠的工作表CodeName引用。

修正后的完整代码 #

Option Explicit

Dim invno As Long
Dim firmname As String
Dim semester As String
Dim amt As Currency
Dim dt_issue As Date
Dim term As Byte
Dim nextrec As Range
Dim path As String
Dim fname As String

Sub SaveAspdf()
    ' 绑定发票所在工作表（替换为你实际的发票工作表名称，比如"发票模板"）
    Dim invoiceSheet As Worksheet
    Set invoiceSheet = ThisWorkbook.Worksheets("发票模板")
    
    ' 读取发票数据：补充金额、开票日期、期限的单元格地址
    path = "/Users/zediwan/Documents/[03] University/[09] Student Council Finances/[03] Invoices/"
    invno = invoiceSheet.Range("C3").Value
    firmname = invoiceSheet.Range("B10").Value
    semester = invoiceSheet.Range("C4").Value
    amt = invoiceSheet.Range("C10").Value ' 替换为金额实际所在单元格
    dt_issue = invoiceSheet.Range("C5").Value ' 替换为开票日期实际所在单元格
    term = invoiceSheet.Range("C6").Value ' 替换为付款期限实际所在单元格
    
    ' 清理文件名中的非法字符（避免保存失败）
    fname = invno & "-" & _
            Replace(Replace(Replace(firmname, "/", "-"), "\", "-"), ":", "-") & _
            "-" & semester
    
    ' 检查并创建保存路径（若不存在）
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(path) Then
        fso.CreateFolder(path)
    End If
    
    MsgBox "文件路径: " & path & fname & ".pdf"
    
    ' 指定工作表导出PDF，避免ActiveSheet的不确定性
    invoiceSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        IgnorePrintAreas:=False, _
        FileName:=path & fname & ".pdf"
    
    ' 写入记录到Sheet3
    Set nextrec = Sheet3.Range("A" & Sheet3.Rows.Count).End(xlUp).Offset(1, 0)
    nextrec.Value = invno
    nextrec.Offset(0, 1).Value = firmname
    nextrec.Offset(0, 2).Value = amt
    nextrec.Offset(0, 3).Value = dt_issue
    nextrec.Offset(0, 4).Value = dt_issue + term
    
    ' 添加PDF超链接
    Sheet3.Hyperlinks.Add _
        Anchor:=nextrec.Offset(0, 6), _
        Address:=path & fname & ".pdf", _
        TextToDisplay:="查看发票"
End Sub

关键修改说明 #

1. 替换代码中"发票模板"为你实际的发票工作表名称；
2. 把amt、dt_issue、term对应的单元格地址改成你工作表中的实际位置；
3. 非法字符清理逻辑可根据需求扩展（比如添加对问号、星号的替换）；
4. 使用FileSystemObject自动创建不存在的文件夹，避免路径错误。

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