如何将excel单元格的内容复制到文本文件中

没那么复杂吧？
Sub savetxtfile()
Application.DisplayAlerts = False
    With ThisWorkbook
        .Sheets(1).Range("b2:c8").Copy 'Range("b2:c8")是要复制的地方，可以修改。
        With .Sheets.Add
            .Activate
            .[a1].PasteSpecial
            .Copy
            .Delete
        End With
    ActiveWorkbook.SaveAs .Path & "\123.txt", xlUnicodeText '123.txt是要保存的txt文件名称
    ActiveWorkbook.Close True
    End With
Application.DisplayAlerts = True
End Sub