如何使用VBA打开CSV文件并指定分隔符且不受本地设置影响

失效原因说明 #

1. Workbooks.Open方法的Delimiter参数仅当Format参数设置为xlTextWindows（值为2）时才会生效，你之前使用Format:=6、Format:=xlCSV时该参数直接被忽略，Excel会优先调用系统区域设置的默认CSV分隔符拆分文件。
2. 之前的OpenText代码没有显式禁用逗号分隔、也没有设置Local:=False，系统本地默认的逗号分隔符优先级高于你设置的分号，所以会出现按逗号拆分的问题。

解决方案 #

方案1：全环境通用手动读取方案（最稳妥）

完全绕过Excel本地区域设置，严格按分号拆分，所有地区运行结果完全一致，不会出现数值误拆分问题：

Sub 通用打开分号CSV()
    Dim str_Path As String, fileNum As Integer
    Dim fileContent As String, lineArr As Variant, allData As Variant
    Dim i As Long, j As Long, rowCount As Long, colCount As Long
    Dim wb As Workbook, ws As Worksheet
    
    ' 替换为你的CSV文件实际路径
    str_Path = "C:\示例路径\数据.csv"
    
    ' 一次性读取整个文件内容，效率高于逐行读取
    fileNum = FreeFile()
    Open str_Path For Binary As #fileNum
    fileContent = Space$(LOF(fileNum))
    Get #fileNum, , fileContent
    Close #fileNum
    
    ' 按换行符拆分所有行
    lineArr = Split(fileContent, vbCrLf)
    rowCount = UBound(lineArr) + 1
    If rowCount = 0 Then Exit Sub
    
    ' 统计最大列数
    colCount = UBound(Split(lineArr(0), ";")) + 1
    ReDim allData(1 To rowCount, 1 To colCount)
    
    ' 逐行按分号拆分写入数组
    For i = 0 To UBound(lineArr)
        If Trim(lineArr(i)) <> "" Then
            Dim colArr As Variant
            colArr = Split(lineArr(i), ";")
            For j = 0 To UBound(colArr)
                allData(i + 1, j + 1) = colArr(j)
            Next j
        End If
    Next i
    
    ' 写入新工作簿
    Set wb = Workbooks.Add(xlWBATWorksheet)
    Set ws = wb.Sheets(1)
    ws.Range("A1").Resize(rowCount, colCount).Value = allData
    
    ' 可选：自动调整列宽
    ws.UsedRange.EntireColumn.AutoFit
End Sub

方案2：内置OpenText显式配置方案

如果要使用Excel内置的打开方法，需要把所有分隔符相关参数显式配置，覆盖本地默认设置：

Sub OpenText打开分号CSV()
    Dim str_Path As String
    str_Path = "C:\示例路径\数据.csv"
    
    Workbooks.OpenText _
        Filename:=str_Path, _
        DataType:=xlDelimited, _
        Local:=False, ' 关键：禁用本地区域设置，强制使用后续指定的分隔符规则
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Tab:=False, ' 禁用制表符分隔
        Semicolon:=True, ' 仅启用分号作为分隔符
        Comma:=False, ' 关键：禁用逗号分隔，避免系统默认逗号生效
        Space:=False, ' 禁用空格分隔
        Other:=False, ' 禁用其他自定义分隔符
        DecimalSeparator:=".", ' 按你文件实际的小数点符号设置
        ThousandsSeparator:="," ' 按你文件实际的千分位符号设置
End Sub

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