如何在VBA中通过函数或sub将CSV数据导入多个数组并返回多个数组？

Function ImportCSVData(filePath As String) As Variant()
    Dim dataArray() As Variant
    Dim fileContent As String
    Dim rows() As String
    Dim columns() As String
    Dim i As Long, j As Long
    
    ' 读取CSV文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 按行分割数据
    rows = Split(fileContent, vbCrLf)
    
    ' 获取列数
    columns = Split(rows(0), ",")
    ReDim dataArray(1 To UBound(rows), 1 To UBound(columns) + 1)
    
    ' 将数据填充到数组中
    For i = 1 To UBound(rows)
        columns = Split(rows(i), ",")
        For j = 1 To UBound(columns) + 1
            dataArray(i, j) = columns(j - 1)
        Next j
    Next i
    
    ImportCSVData = dataArray
End Function

Sub TestImportCSVData()
    Dim data() As Variant
    Dim i As Long, j As Long
    
    data = ImportCSVData("C:\path\to\file.csv")
    
    ' 输出数组内容
    For i = 1 To UBound(data)
        For j = 1 To UBound(data, 2)
            Debug.Print data(i, j)
        Next j
    Next i
End Sub