VBA怎么把某个Sheet所有单元格的内容Print到文本

Dim Filename As String, i As Integer, x As Integer Filename = Application.ActiveWorkbook.Path & "尀Test.TXT" Open Filename For Append As #1 Print #1, xxxx CloseXXXX这里要怎么写，不要用SaveAs方法

2026年09月24日 12:19

有2个网友回答

网友（1）：

Sub PRINTSheet1()

    Dim Filename As String, x As Integer, y As Integer, Arr

    Arr = Sheet1.UsedRange
    
    Filename = Application.ActiveWorkbook.Path & "\Test.TXT"
    Open Filename For Append As #1
     
        For x = 1 To UBound(Arr, 1)
            For y = 1 To UBound(Arr, 2)
        
                Print #1, Arr(x, y);
                
            Next
            Print #1,
        Next
        
    Close

End Sub

网友（2）：

用workbook的saveas 方法吧。

Dim Filename As String, i As Integer, x As Integer
Filename = Application.ActiveWorkbook.Path & "\Test.TXT"
ThisWorkbook.SaveAs Filename:=Filename, FileFormat:=xlText, CreateBackup:=False