如何把工作表中每100组数据生成一个TXT文件？

作者：绿色风分类：时间：2022-08-17 浏览：111

楼主
wise

Q:如何把工作表中每100组数据生成一个TXT文件？
A：ATL+F11→插入模块→输入以下代码：

Sub ExportTxt()
Dim Arr, k&, Str$, j%
Dim MyArr(1 To 100, 1 To 1), i%
On Error Resume Next '防错语句
Arr = Range("A1").CurrentRegion
j = 0
For k = 1 To UBound(Arr) Step 100 '提取100行
For i = 1 To 100
MyArr(i, 1) = Arr(k + i - 1, 1)
Next
Str = Join(Application.Transpose(MyArr), vbCrLf) '将MyArr数组转置后用换行符连接形成一个字串
j = j + 1
Open ThisWorkbook.Path & "\" & j & ".txt" For Output As #1 '打开当前路径并输出txt文件，即将限定内容写入txt文件
Print #1, Str '将Str写入外部指定（打开的）文件。
Reset '将外部打开文件关闭
Next
End Sub

mytest1.rar

2楼
eliane_lei

进来学习！谢谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表