如何使用VBA将Excel表格的单元格值写入Txt文件？

Sub ExportToTxt()
    Dim filePath As String
    Dim fileNum As Integer
    Dim rowNum As Long
    Dim colNum As Long
    
    ' 设置要保存的Txt文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 打开Txt文件
    fileNum = FreeFile()
    Open filePath For Output As fileNum
    
    ' 循环遍历Excel表格的单元格
    For rowNum = 1 To ActiveSheet.UsedRange.Rows.Count
        For colNum = 1 To ActiveSheet.UsedRange.Columns.Count
            ' 将单元格值写入Txt文件
            Print #fileNum, Cells(rowNum, colNum).Value
        Next colNum
        ' 换行
        Print #fileNum, ""
    Next rowNum
    
    ' 关闭Txt文件
    Close fileNum
End Sub