VBA导出工作表指定区域为CSV到指定目录时报错1004如何解决

你的代码触发1004报错是3个问题共同导致的：

• 路径格式错误：\Desktop\Test属于非法的相对路径写法，系统无法定位到你的桌面目录，且如果Test文件夹不存在，保存动作会直接失败。
• 文件名拼接逻辑错误：Range("A4:AK16").Value返回的是多单元格二维数组，无法直接转为字符串拼接到文件名中，会触发类型不匹配错误。
• 导出范围错误：Sheets("int_151_schedule").Copy是复制整个工作表，不是你需要的A4:AK16指定区域。

Sub ExportRangeToCSV()
    Dim savePath As String
    Dim targetSheet As Worksheet
    Dim newWB As Workbook
    Dim fileName As String
    
    ' 自定义导出文件名，可按需修改，要使用单元格内容做文件名请取单个单元格，比如fileName = Range("A4").Value & ".csv"
    fileName = "schedule_data.csv"
    Set targetSheet = ThisWorkbook.Sheets("int_151_schedule")
    
    ' 自动获取当前用户桌面下Test文件夹的完整路径
    savePath = Environ("USERPROFILE") & "\Desktop\Test\"
    
    ' 自动创建不存在的Test文件夹
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 复制指定区域到新工作簿
    targetSheet.Range("A4:AK16").Copy
    Set newWB = Workbooks.Add
    newWB.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
    
    ' 按UTF-8编码保存为CSV，避免中文乱码
    newWB.SaveAs Filename:=savePath & fileName, FileFormat:=xlCSVUTF8, Local:=True
    newWB.Close SaveChanges:=False
    
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

• 不要使用多单元格区域的返回值拼接文件名，仅支持单个单元格的文本内容作为文件名组成部分
• 如果需要兼容旧版Excel的CSV读取，可以将代码里的xlCSVUTF8修改为xlCSV

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