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

在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

上述代码中，首先将要保存为文本文件的数组赋值给 arrData。然后，设置保存的文件路径和名称，并打开文件。接下来，使用嵌套的循环遍历数组，并将每个元素写入文本文件，每个元素之间用制表符分隔。最后，关闭文件并显示保存成功的消息框。

这个方法适用于任何需要将数组保存为制表符分隔的文本文件的情况。