百度经验里,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……的顺序命名还有待研究,欢迎大佬指正,谢谢