VBA:从数据表创建包含数组数组的.txt文件

Sub ExportArrayToTxt()
    Dim arrData() As Variant
    Dim filePath As String
    Dim fileNum As Integer
    Dim i As Long, j As Long
    
    ' 1. 从数据表读取数据到数组
    arrData = Sheet1.Range("A1:D10").Value ' 将数据表的A1:D10范围的数据读取到数组
    
    ' 2. 指定保存文件的路径和文件名
    filePath = "C:\path\to\file.txt" ' 替换为实际的文件路径
    
    ' 3. 打开文件
    fileNum = FreeFile
    Open filePath For Output As fileNum
    
    ' 4. 将数组数据写入文件
    For i = LBound(arrData, 1) To UBound(arrData, 1)
        For j = LBound(arrData, 2) To UBound(arrData, 2)
            Print #fileNum, arrData(i, j);
        Next j
        Print #fileNum, "" ' 换行
    Next i
    
    ' 5. 关闭文件
    Close fileNum
    
    MsgBox "文件已成功导出为.txt格式。"
End Sub