如何把EXCEL文件的每一行都保存为一个独立的TXT文件？

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

楼主 liuguansky	Q:如何把EXCEL文件的每一行都保存为一个独立的TXT文件？ A:用如下代码可以实现： Private Sub CommandButton1_Click() Application.ScreenUpdating = False '关闭屏幕刷新 Dim nRow&, ncolumn& '定义区域变量 nRow = Cells(Rows.Count, 1).End(3).Row '确定最后行行号 For i = 1 To nRow '在行中进行循环 ncolumn = Cells(i, Columns.Count).End(1).Column '确定每行最后列列号 Open ThisWorkbook.Path & "\文件" & i & ".txt" For Output As #1 '创建文本进行输入内容 Print #1, Join(Application.Transpose(Application.Transpose(Range(Cells(i, 1), Cells(i, ncolumn)))), ",") '输入此行内容，以","分隔内容 Close #1 '关闭文本 Next '下次循环 Application.ScreenUpdating = True '开启屏幕刷新，与前对应 MsgBox "导出完成" '完成友好提示 End Sub 示例文件如下桌面.rar
2楼 xyf2210	学习
3楼 0Mouse	通过两次Transpose将一行多列的区域转换成一维数组！学习！

免责声明

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

评论列表