如何让VBA以分号为分隔符读取已加载至内存的CSV文件？

我太懂这个坑了！你遇到的问题本质是VBA默认把逗号当成了CSV的字段分隔符，完全忽略了你文件里用分号分隔的设定，还把小数里的逗号也拆成了字段，导致取数混乱。下面给你几个实用的解决办法，对应不同的加载场景：

场景1：已经把CSV内容加载到内存字符串中 #

如果是把整个CSV读成了一个大字符串，或者按行拆成了字符串数组，那关键是用分号作为Split函数的分隔符，而不是用默认的逗号。

错误的写法（导致你现在的问题）： #

'按行拆分后，每行默认用逗号拆分
Dim rowData() As String
rowData = Split(MyData(9), ",") 'VBA数组是0基，第10行对应索引9

正确的写法： #

'先按行拆分整个CSV内容（假设已经读入fileContent）
Dim MyDataRows() As String
MyDataRows = Split(fileContent, vbCrLf)

'处理第10行（注意索引是9，因为VBA数组默认0基）
If UBound(MyDataRows) >= 9 Then
    Dim targetRow() As String
    targetRow = Split(MyDataRows(9), ";") '指定分号作为字段分隔符
    Debug.Print targetRow(1) '这里就能拿到你要的"12,34"（第2列对应索引1）
End If

如果需要把整个CSV转成二维数组方便调用（比如像MyData(10,2)这样1基的索引），可以写个小工具函数：

Function GetCSVAs2DArray(csvContent As String) As Variant
    Dim rows() As String
    rows = Split(csvContent, vbCrLf)
    Dim maxColCount As Integer
    maxColCount = 0
    
    '先统计最大列数
    Dim i As Integer
    For i = LBound(rows) To UBound(rows)
        If Trim(rows(i)) <> "" Then
            Dim tempCols() As String
            tempCols = Split(rows(i), ";")
            If UBound(tempCols) > maxColCount Then
                maxColCount = UBound(tempCols)
            End If
        End If
    Next i
    
    '创建1基的二维数组（符合你习惯的MyData(10,2)调用方式）
    Dim resultArr() As String
    ReDim resultArr(1 To UBound(rows) - LBound(rows) + 1, 1 To maxColCount + 1)
    
    '填充数据
    For i = LBound(rows) To UBound(rows)
        If Trim(rows(i)) <> "" Then
            Dim cols() As String
            cols = Split(rows(i), ";")
            Dim j As Integer
            For j = LBound(cols) To UBound(cols)
                resultArr(i + 1, j + 1) = cols(j) '转成1基索引
            Next j
        End If
    Next i
    
    GetCSVAs2DArray = resultArr
End Function

'使用示例
Dim fileContent As String
Open "C:\你的文件路径.csv" For Input As #1
fileContent = Input$(LOF(1), 1)
Close #1

Dim MyData As Variant
MyData = GetCSVAs2DArray(fileContent)
Debug.Print MyData(10, 2) '直接拿到第10行第2列的"12,34"

场景2：直接从文件加载CSV到工作表 #

如果是要把CSV直接导入Excel工作表，用Workbooks.OpenText的时候一定要指定分号分隔，并且加上Local:=True来尊重系统的小数分隔符（避免把逗号当成字段分隔符）：

Workbooks.OpenText Filename:="C:\你的文件路径.csv", _
    DataType:=xlDelimited, _
    Semicolon:=True, _
    Local:=True '这个参数非常关键！

关键注意点 #

• 始终明确指定CSV的字段分隔符为;，不要依赖VBA的默认设置
• 如果涉及小数分隔符是逗号的情况，一定要加上Local:=True（导入文件时）或者确保拆分逻辑只识别分号作为字段分隔符
• VBA数组默认是0基的，如果你习惯用1基的索引（比如MyData(10,2)），记得在数组初始化时调整维度

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