VBA转换excel文件为txt

step1：打开exel文件，按下alt+F11,点击thisworkbook，插入模块

step2:复制以下代码进去：

Sub 导出数据() '导出数据

    Dim wjm   As String

    Dim wjh   As Integer

    Dim hh    As Long

    Dim I     As Long

    Dim lh    As Integer

    Dim j     As Integer

    Dim txtwd As String

'弹窗选择保存路径，并注明保存类型

    wjm = Application.GetSaveAsFilename(FileFilter:="文本文件(*.txt),*.txt", Title:="选择导出目录")

    wjh = FreeFile  'TXT文件号

    hh = [A100000].End(xlUp).Row '判断最后一行

    lh = [xfd4].End(xlToLeft).Column '判断最后一列

    Open wjm For Output As #wjh  '打开目标文件

    For I = 1 To hh  '循环每一行

        txtwd = ""  '清空文档

        For j = 1 To lh '循环每一列

            txtwd = txtwd & Cells(I, j).Value & "-"

        Next j  '开始列循环J

        Print #wjh, Left(txtwd, Len(txtwd) - 1) '逐行写入目标文件

    Next I  '开始行循环I

    Close #wjh '关闭TXT

    MsgBox "数据导出完成"

End Sub

step3：按下F5，选择文件输出目录，输入文件名称即可完成操作。