将所选数据从Excel提取到.txt文件的VBA代码

Sub ExportDataToTxt()
    Dim filePath As String
    Dim fileNumber As Integer
    Dim i As Long, j As Long
    Dim data As Variant
    
    ' 获取保存文件的路径
    filePath = Application.GetSaveAsFilename(FileFilter:="Text Files (*.txt), *.txt")
    
    ' 检查用户是否选择了文件路径
    If filePath = "False" Then
        Exit Sub
    End If
    
    ' 打开文件
    fileNumber = FreeFile
    Open filePath For Output As fileNumber
    
    ' 获取所选数据的范围
    data = Selection.Value
    
    ' 将数据写入文件
    For i = 1 To UBound(data, 1)
        For j = 1 To UBound(data, 2)
            Print #fileNumber, data(i, j);
        Next j
        Print #fileNumber, ""
    Next i
    
    ' 关闭文件
    Close fileNumber
    
    MsgBox "数据已成功导出到 " & filePath
End Sub