在VBA中将数组另存为制表符分隔的文本文件

Sub SaveArrayAsText()
    Dim arrData() As Variant
    Dim filePath As String
    Dim fileNumber As Integer
    Dim i As Long, j As Long
    
    ' 将要保存为文本文件的数组赋值给 arrData
    arrData = Array(Array("Name", "Age", "City"), Array("John", 25, "New York"), Array("Emily", 30, "London"))
    
    ' 设置保存的文件路径和名称
    filePath = "C:\path\to\save\file.txt"
    
    ' 打开文件
    fileNumber = FreeFile
    Open filePath For Output As #fileNumber
    
    ' 遍历数组，并将元素写入文本文件
    For i = LBound(arrData) To UBound(arrData)
        For j = LBound(arrData(i)) To UBound(arrData(i))
            ' 每个元素之间用制表符分隔
            Write #fileNumber, arrData(i)(j),
        Next j
        ' 换行
        Write #fileNumber, ""
    Next i
    
    ' 关闭文件
    Close #fileNumber
    
    MsgBox "数组已保存为文本文件。"
End Sub