VBA，将CSV按";“拆分导入到工作表

Sub ImportCSV()
    Dim filePath As String
    Dim delimiter As String
    Dim textData As String
    Dim dataArray() As String
    Dim rowIndex As Long
    Dim columnIndex As Long
    
    ' 设置CSV文件路径
    filePath = "C:\path\to\your\file.csv"
    
    ' 设置CSV文件的分隔符
    delimiter = ";"
    
    ' 读取CSV文件内容
    Open filePath For Input As #1
    textData = Input$(LOF(1), 1)
    Close #1
    
    ' 拆分CSV文件内容
    dataArray = Split(textData, delimiter)
    
    ' 将拆分后的数据导入到工作表
    rowIndex = 1
    columnIndex = 1
    For Each dataItem In dataArray
        Cells(rowIndex, columnIndex).Value = dataItem
        columnIndex = columnIndex + 1
        If columnIndex > UBound(dataArray) + 1 Then
            rowIndex = rowIndex + 1
            columnIndex = 1
        End If
    Next dataItem
End Sub