将excel用VBA生成指定格式的TXT文件

Sub 另存本表为TXT文件()

    Dim s As String

    Dim FullName As String, rng As Range

    Application.ScreenUpdating = False

     FullName = (ActiveSheet.Name & ".txt")   \'以当前表名为TXT文件名

 \'   FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt")  \'以当前文件名为TXT文件名

 \'   FullName = Replace(ThisWorkbook.FullName, ".xls", ActiveSheet.Name & ".txt")  \'以文件名&表名为TXT文件名

    Open FullName For Output As #1    \'以读写方式打开文件，每次写内容都会覆盖原先的内容

    \'参考帮助，fullname为文件全名

    For Each rng In Range("a1").CurrentRegion

        s = s & IIf(s = "", "", "|") & rng.Value

        If rng.Column = Range("a1").CurrentRegion.Columns.Count Then

            Print #1, s & "|"   \'把数据写到文本文件里

            s = ""

        End If

    Next

    Close #1    \'关闭文件

    Application.ScreenUpdating = True

    MsgBox "数据已导入文本"

End Sub