Excel自动将多个Sheet拆分成多个txt文件

百度经验里，https://jingyan.baidu.com/article/5d368d1e2bd0667f60c057ba.html
👇是拆分为xls格式，变成txt格式简单修改一下就行。

输入下列代码拆分为txt文件

Private Sub 分拆工作表()

    Dim sht As Worksheet

    Dim MyBook As Workbook

    Set MyBook = ActiveWorkbook

    For Each sht In MyBook.Sheets

    sht.Copy

    ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlText

    ActiveWorkbook.Close

    Next

    MsgBox "文件已经被分拆完毕!"

    End Sub

仅是为了防止自己忘记如何拆分为TXT格式，如何将文件名不是按照sheet名称而是按照1，2，3，4……的顺序命名还有待研究，欢迎大佬指正，谢谢