如何将EXCEL文件按条件拆分为若干个TXT文件3

发布网友发布时间：2024-01-21 18:10

共1个回答

热心网友时间：2024-02-12 21:22

两种方法：
1、手工：每次选200行，复制，新建文本文件，粘贴，保存。重复50次。
2、自动：使用VBA代码，但前提是你的数据表结构必须说清楚。
代码如下：
Sub 输出文本()
Sheets("sheet1").Select '选定要保存的工作表
k = 1
For i = 1 To 600 Step 6 '从第1行到600行,每6行为一个文件
Range("a" & i & ":h" & i + 5).Copy '复制A与H列的六行内容
Workbooks.Add
ActiveSheet.Paste

ActiveWorkbook.SaveAs Filename:=k, FileFormat:=xlText, CreateBackup:=False '以txt类型存储
ActiveWindow.Close (True) '关闭文件
k = k + 1
Next
MsgBox "保存完毕"
End Sub
生成的文本文件会保存在原EXCEL工作簿同一目录下追问批次号那里不一定是每6行，有可能是3、4、5、6、7、8行，比如图中批次号170921-076为一个TXT文件，然后保存的名字能以该批次号（170921-076）保存。