使用SaveAs保存工作表为CSV/XLSX时出现1004错误（PDF导出正常）

看了你的代码和问题描述，这个1004错误大概率是路径格式问题或者单元格引用错误导致的，下面给你逐一排查和修正方案：

1. 最可能的原因：路径里的重复反斜杠 #

你的代码中NewPathDealer的末尾已经添加了反斜杠\：

NewPathDealer = NewPathTrack & Range("CodeTrack").Text & " - " & Range("NameTrack").Text & "\"

但在SaveAs的Filename参数里，你又多写了一个\：

Filename:=NewPathDealer & "\" & Range("DealerCodeTrack").Text & " - Tracking Sheet" & ".csv"

这会生成类似C:\YourFolder\SubFolder\\filename.csv的无效路径，系统无法识别，直接导致1004错误。

2. 第二个潜在问题：命名范围不匹配 #

原代码里用的是Range("CodeTrack")，但报错的代码行里变成了Range("DealerCodeTrack")——如果这个命名范围不存在，VBA找不到对应的单元格，也会触发1004错误。请检查「公式」选项卡→「名称管理器」，确认这个命名范围存在且指向正确的单元格。

修正后的完整代码 #

我给你调整了代码，修复了路径问题，还加了一些容错处理：

Sub SaveTrackingSheet()
    Dim NewPathTrack As String
    Dim NewPathDealer As String
    Dim saveFileName As String
    
    ' 构建基础路径，确保格式正确
    NewPathTrack = Application.ThisWorkbook.Path & "\PDF Outputs\" & Range("NameTrack").Text & "\"
    ' 检查路径是否存在，不存在则创建（用vbDirectory更清晰）
    If Dir(NewPathTrack, vbDirectory) = "" Then MkDir NewPathTrack
    
    NewPathDealer = NewPathTrack & Range("CodeTrack").Text & " - " & Range("NameTrack").Text & "\"
    If Dir(NewPathDealer, vbDirectory) = "" Then MkDir NewPathDealer
    
    ' 直接拼接文件名，去掉多余的反斜杠
    saveFileName = NewPathDealer & Range("CodeTrack").Text & " - Tracking Sheet.csv"
    
    ' 先检查工作表是否被保护，保护状态下无法保存
    If Sheets("Tracking Sheet").ProtectContents Then
        ' 如果有保护密码，要在这里添加，比如Unprotect "yourPassword"
        Sheets("Tracking Sheet").Unprotect
    End If
    
    ' 尝试删除已存在的同名文件，避免冲突
    On Error Resume Next
    Kill saveFileName
    On Error GoTo 0
    
    ' 执行保存，用常量名替代数字，代码更易读（2对应xlLocalSessionChanges）
    Sheets("Tracking Sheet").SaveAs _
        Filename:=saveFileName, _
        FileFormat:=xlCSV, _
        ConflictResolution:=xlLocalSessionChanges, _
        Local:=True, _
        CreateBackup:=False
End Sub

额外排查要点 #

如果修正后还是报错，可以检查这几点：

• 文件夹权限：确保保存路径（比如PDF Outputs子文件夹）有写入权限，不要保存到系统保护的目录（如C:\Program Files）。
• 文件占用：确认要保存的CSV文件没有被其他程序打开（比如记事本、Excel），否则会导致写入失败。
• CSV格式限制：CSV不支持合并单元格、宏、部分格式，不过这一般不会触发1004错误，但保存后要检查内容是否符合预期。

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