VBA打开CSV强制纯文本失败问题（德语系统环境）

背景 #

• 原需求：打开CSV时禁止自动格式化日期/数字，所有单元格保留原始文本格式，用于和已设为文本格式的表格对比（无需编辑目标表格）
• 当前异常：采用推荐的VBA代码打开测试CSV时出现单元格异常拆分，系统区域设置为德语（德国）

测试CSV内容：

"Value1";"Value2";"Value3"
"1,0";"2,0";"3,0"

异常原因 #

核心问题是VBA代码中Workbooks.OpenText未启用区域适配：

1. 德语区域默认用分号作为CSV分隔符，逗号作为小数分隔符；但OpenText默认Local:=False，会强制使用美国英语规则（逗号为分隔符、点为小数分隔符）
2. 尽管代码明确设置了Semicolon:=True和Comma:=False，但Local:=False时，Excel仍会错误解析双引号包裹的"1,0"，将其中的逗号误判为分隔符，导致单元格拆分异常
3. 原代码的列数计算逻辑未考虑双引号包裹字段内的分号（虽测试CSV无此情况，但属于潜在缺陷）

修复方案 #

修改OpenCsvAsText过程，添加区域适配参数，并优化列数计算逻辑：

修复后的完整代码 #

Sub OpenCSV()
    Dim sourceFile As Variant
    sourceFile = Application.GetOpenFilename( _
        FileFilter:="CSV-Dateien (*.csv),*.csv", _
        MultiSelect:=False _
    )
    If sourceFile <> False Then
        OpenCsvAsText CStr(sourceFile)
    End If
End Sub

Sub OpenCsvAsText(ByVal strFilepath As String)
    Dim intFileNo As Integer
    Dim iCol As Long
    Dim nCol As Long
    Dim strLine As String
    Dim varColumnFormat As Variant
    Dim inQuotes As Boolean
    Dim charPos As Integer
    Dim colCount As Integer
    
    ' 正确统计列数：忽略双引号内的分号
    intFileNo = FreeFile()
    Open strFilepath For Input As #intFileNo
    Line Input #intFileNo, strLine
    Close #intFileNo
    
    inQuotes = False
    colCount = 1
    For charPos = 1 To Len(strLine)
        Select Case Mid(strLine, charPos, 1)
            Case """": inQuotes = Not inQuotes
            Case ";": If Not inQuotes Then colCount = colCount + 1
        End Select
    Next charPos
    nCol = colCount
    
    ' 配置所有列为文本格式
    ReDim varColumnFormat(0 To nCol - 1)
    For iCol = 1 To nCol
        varColumnFormat(iCol - 1) = Array(iCol, xlTextFormat)
    Next iCol
    
    ' 启用区域适配打开CSV
    Workbooks.OpenText _
            Filename:=strFilepath, _
            DataType:=xlDelimited, _
            ConsecutiveDelimiter:=False, _
            Comma:=False, _
            Semicolon:=True, _
            FieldInfo:=varColumnFormat, _
            TextQualifier:=xlTextQualifierDoubleQuote, _
            Local:=True ' 关键：使用当前系统区域规则解析文件
End Sub

关键修改点 #

1. 添加Local:=True：强制Excel遵循德语区域规则解析CSV，确保分号分隔符、逗号小数分隔符被正确识别，避免误拆分
2. 优化列数统计：遍历第一行文本，忽略双引号包裹字段内的分号，确保列数统计准确
3. 增加有效性判断：避免用户取消文件选择时触发错误

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