如何从excel中取数，批量生成txt文件？

例如我有1000行数，只有1列，按照顺序每100行输出一个txt文件，并自动生成1A, 2B, 3C, 4D, …… 我想用简单的办法生成100个txt文件，请问如何操作？

插入以下宏，并执行
sub bod()
dim nm$
for i = 1 to range("a65500").end(xlup).row
n = n + 1
nm = thisworkbook.path & "\" & application.trim(cells(i, 1)) & ".txt"
open nm for output as #i
print #i, cells(1, 2) 'cells(i, 2)为每个txt里面要放的内容，可替换，内容为空则删除
close #i
next
end sub

写个宏就解决了

有整宏的这会儿工夫我复制粘贴都搞定了，呵呵

按Alt+F11打开VBA宏代码编辑器，将里面的内容全部清空，然后将如下代码复制粘贴进来后，修改相应的设置，按F5运行即可,此代码以后可以重复使用。 '----代码的开始--- Sub split() Dim MyRowNo As Long, MySplitNum As Long, MyStartNo As Long, MyI As Long, MyOutDir As String MySplitNum = 100 '截取每100行保存为txt文件，可自行修改该数字 If MySplitNum < 1 Then MySplitNum = 100 MyI = 1 MyCh = 65 MyOutDir = "D:\" '截取的内容保存为txt时的输出目录，可自行修改 If Dir(MyOutDir, vbDirectory) = "" Then MsgBox "输出目录不存在，请重新指定或者新建该目录后重试！", vbCritical, "警告" Exit Sub End If ActiveSheet.UsedRange.Select MyRows = ActiveSheet.UsedRange.Rows.Count MyCols = ActiveSheet.UsedRange.Columns.Count If MyRows = 1 And MyCols = 1 Then MsgBox "目标表为空表，操作被取消！", vbInformation, "消息" Exit Sub elseif MyRows<=MySplitNum then MsgBox "目标表行数过少，无须分切，操作被取消！", vbInformation, "消息" exit sub End If Open MyOutDir & "1A.txt" For Output As #11 For i = 1 To ActiveSheet.UsedRange.Rows.Count Print #11, ActiveSheet.UsedRange.Cells(i, 1) If i Mod MySplitNum = 0 Then Close #11 MyI = MyI + 1 MyCh = MyCh + 1 Open MyOutDir & Trim(Str(MyI)) & Chr(MyCh) & ".txt" For Output As #11 If MyCh = 90 Then MyCh = 64 End If Next On Error Resume Next Close #11 MsgBox "数据截取保存完毕！", vbInformation, "消息" End Sub '----代码结束--- 还可推荐你使用我开发的 文件批量处理百宝箱V8.0 主界面中的批替换功能。将你的电子表格另存为txt文件，然后将此文件加入入列表中，单击设置，在新界面中选择行处理-统计/分割功能，选择按多少行分切大文件，指定为100行或者你需要的行数，然后指定输出目录，单击执行即可。