改造VBA CSV导出代码 调用xlDialogSaveAs自定义保存路径

该改造需求可直接实现，核心的去除CSV空列多余逗号的逻辑无需调整，仅需替换硬编码的固定保存路径逻辑，接入系统另存为对话框即可支持用户手动选择保存位置。

改造注意事项 #

• 调用另存为对话框时必须增加用户取消操作的判断，避免用户点击「取消」按钮后后续代码执行报错
• 对话框预设保存格式为CSV，和原代码的导出格式保持一致
• 对话框会直接返回用户选择的完整文件路径（含文件名、后缀），可直接用于创建文本文件，无需手动拼接路径和文件名
• 原有逐行校验非空、按实际有效列数生成行内容的逻辑完全保留，不会影响原有去除行尾多余逗号的效果

改造后完整代码 #

Option Explicit

Sub CSV_Makerr()
   Dim r As Range
   Dim sOut As String, k As Long, M As Long
   Dim N As Long, nFirstRow As Long, nLastRow As Long
   Dim savePath As Variant
   Dim fs, a, mm As Long
   Dim separator As String

   ' 弹出CSV格式专属保存对话框
   savePath = Application.Dialogs(xlDialogSaveAs).Show(Arg2:=xlCSV)
   ' 用户点击取消时直接退出过程
   If savePath = False Then Exit Sub

   ActiveSheet.UsedRange
   Set r = ActiveSheet.UsedRange
   nLastRow = r.Rows.Count + r.Row - 1
   nFirstRow = r.Row
   separator = ","

   Set fs = CreateObject("Scripting.FileSystemObject")
   ' 直接使用用户选择的完整路径创建文件
   Set a = fs.CreateTextFile(savePath, True)

   For N = nFirstRow To nLastRow
       k = Application.WorksheetFunction.CountA(Cells(N, 1).EntireRow)
       sOut = ""
       If k <> 0 Then
           M = Cells(N, Columns.Count).End(xlToLeft).Column
           For mm = 1 To M
               sOut = sOut & Cells(N, mm).Text & separator
           Next mm
           sOut = Left(sOut, Len(sOut) - 1)
           a.writeline (sOut)
       End If
   Next

   a.Close
   MsgBox "CSV导出完成，保存路径：" & savePath, vbInformation
End Sub

主要改动点 #

• 删除原代码中硬编码的固定保存路径、固定文件名配置
• 新增CSV格式另存为对话框调用逻辑，运行时会弹出系统标准保存窗口，用户可自由选择保存位置、自定义文件名
• 新增取消操作拦截逻辑，用户点击保存窗口的「取消」按钮时会直接终止过程，不会触发报错
• 核心导出逻辑完全复用原代码，保证导出的CSV不会残留空列对应的多余逗号
• 导出完成后增加完成提示，显示文件最终保存路径

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