VBA创建具有不同行长度的CSV

Sub CreateCSV()
    Dim data() As Variant
    Dim numRows As Integer
    Dim numColumns As Integer
    Dim filePath As String
    Dim fileNumber As Integer
    Dim rowValues As String
    Dim columnValues() As String
    Dim i As Integer
    Dim j As Integer
    
    ' 定义数据（这里使用示例数据）
    numRows = 3
    numColumns = 4
    ReDim data(1 To numRows, 1 To numColumns)
    data(1, 1) = "A1"
    data(1, 2) = "B1"
    data(1, 3) = "C1"
    data(1, 4) = "D1"
    data(2, 1) = "A2"
    data(2, 2) = "B2"
    data(2, 3) = "C2"
    data(3, 1) = "A3"
    
    ' 定义CSV文件路径
    filePath = "C:\path\to\output.csv"
    
    ' 创建并写入CSV文件
    fileNumber = FreeFile
    Open filePath For Output As #fileNumber
    For i = 1 To numRows
        ReDim columnValues(1 To numColumns)
        For j = 1 To numColumns
            columnValues(j) = CStr(data(i, j))
        Next j
        rowValues = Join(columnValues, ",")
        Print #fileNumber, rowValues
    Next i
    Close #fileNumber
    
    ' 提示创建成功
    MsgBox "CSV文件已成功创建！"
End Sub