VBA copy 数据到txt档案中

您可以使用以下的VBA代码将数据复制到文本文件中：

Sub ExportToTextFile()

    Dim myFile As String
    Dim myPath As String
    Dim myData As String
    Dim cellValue As Variant
    Dim i As Integer, j As Integer
     
    '获取文件路径和文件名
    myPath = "C:\Users\UserName\Desktop\"
    myFile = "MyFile.txt"
     
    '打开文件
    Open myPath & myFile For Output As #1
     
    '循环遍历工作表中的单元格，将数据存储在字符串变量中
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
        For j = 1 To Range("A1").CurrentRegion.Columns.Count
            cellValue = Cells(i, j).Value
            myData = myData & cellValue & vbTab '使用制表符分隔数据
        Next j
        myData = myData & vbCrLf '使用换行符分隔每一行数据
    Next i
     
    '将字符串变量写入文件中
    Print #1, myData
     
    '关闭文件
    Close #1
     
    '提示导出完成
    MsgBox "数据已成功导出到文本文件中！"
 
End Sub

请注意，上述代码中的文件路径和文件名需要根据您的实际情况进行更改。此外，此代码仅适用于当前活动工作表中的数据。如果您需要将其他工作表中的数据复制到文本文件中，请将代码中的“Range（”A1“）”更改为其他范围。