如何把excel里面一个单元格里的内容，自动导入到指定txt文件，txt原来内容自动清空。

如何把excel里面一个单元格里的内容，自动导入到指定txt文件，txt原来内容自动清空。

Sub CreateFile()
    Dim sFileAsObject, FSOAsObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set sFile = FSO.CreateTextFile("F:\测试\a.txt", True)
    sFile.WriteLine ("单元格内容")
    sFile.Close
    Set sFile = Nothing
    Set FSO = Nothing
End Sub

自动不可能 兄弟

用鼠标左键将内容点拉完，点复制，让后粘贴到txt

你好！ 你真够懒的！ 1、全选txt文档，按delete键，清空txt的内容； 2、复制excel的内容，黏贴到txt文档中。。。。。。。 仅代表个人观点，不喜勿喷，谢谢。