区域设置变更致Excel CSV MS-DOS格式宏失效求助

当系统区域设置为非美国（如波兰，列表分隔符为;）时，原宏使用xlCSVMSDOS格式保存CSV会出现数据集中在一列的问题，原因是Excel的SaveAs默认可能未正确读取系统区域的分隔符设置，或工作表复制的方式导致分隔符判断异常。

方案一：手动生成CSV，完全控制分隔符（推荐） #

直接读取指定区域的单元格内容，按CSV规范拼接内容，不受系统区域设置影响：

Dim MyWB As Workbook
Dim wsSrc As Worksheet
Dim rngExport As Range
Dim filePath As String
Dim fileNum As Integer
Dim rowArr As Variant
Dim i As Long, j As Long
Dim csvLine As String

Set MyWB = ThisWorkbook
Set wsSrc = MyWB.Sheets(2)
' 指定导出区域，可替换为具体范围如wsSrc.Range("A1:Z100")
Set rngExport = wsSrc.UsedRange
filePath = "C:\Users\Downloads\testfile.csv"

' 打开文件准备写入
fileNum = FreeFile()
Open filePath For Output As #fileNum

' 遍历每行数据
For i = 1 To rngExport.Rows.Count
    rowArr = rngExport.Rows(i).Value
    csvLine = ""
    ' 遍历每列数据
    For j = 1 To UBound(rowArr, 2)
        Dim cellValue As String
        cellValue = CStr(rowArr(1, j))
        ' 处理含逗号/双引号的单元格，符合CSV规范
        If InStr(cellValue, ",") > 0 Or InStr(cellValue, """") > 0 Then
            cellValue = Replace(cellValue, """", """""")
            cellValue = """" & cellValue & """"
        End If
        ' 用分号分隔列，可替换为","以使用逗号分隔
        If j > 1 Then csvLine = csvLine & ";"
        csvLine = csvLine & cellValue
    Next j
    ' 写入一行到CSV
    Print #fileNum, csvLine
Next i

' 关闭文件
Close #fileNum

' 释放对象
Set rngExport = Nothing
Set wsSrc = Nothing
Set MyWB = Nothing

说明：该方法直接控制分隔符（示例中为;），同时处理了带特殊字符的单元格，确保CSV格式正确，无需依赖系统设置。

方案二：修改SaveAs参数，读取系统区域设置 #

在原代码的SaveAs语句中添加Local:=True参数，让Excel使用系统区域的分隔符：

' 替换原SaveAs行
wbkOut.SaveAs "C:\Users\Downloads\testfile.csv", xlCSVMSDOS, Local:=True

说明：需确保系统区域设置的列表分隔符已改为目标符号（如;），且重启Excel使设置生效。此方法代码改动小，但依赖系统配置。

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