怎样把一个excel文件转成多个txt文件

来源：百度知道 编辑：UC知道 时间：2024/06/06 15:38:39
例如我有一个excel文件，有10000行，我要把它自动保存成50个txt文件，每200行自动生成一个txt文件，怎么样可以实现？
手工的我会，用VBA代码的不会。
数据表结构很简单就像下面那个图，只有一列有数据，其他列为空。
谁帮忙弄条VBA语句。谢谢

两种方法：
1、手工：每次选200行，复制，新建文本文件，粘贴，保存。重复50次。
2、自动：使用VBA代码，但前提是你的数据表结构必须说清楚。

补充：

总算替你弄出来了，试试吧。
选插入一个模块，把代码复制进去，打开你的表格，然后从“宏”中执行aa即可。
注意：一定要把你需要保存的表做为当前表。
Sub aa()
For i = 0 To 49
sj = ""
Open "c:\" & i + 1 & ".txt" For Append As #1
For j = 1 To 200
sj = Cells(i * 50 + j, 1).Value
Print #1, sj
Next
Close #1
Next
End Sub