如何把Excel每20行另存为逗号分隔的txt文件

作者：绿色风分类：时间：2022-08-18 浏览：375

楼主芐雨	Q：如何把Excel每20行另存为逗号分隔的txt文件 A： Sub 每20行转逗号分隔的文本() Dim m, x, y As Integer m =cells(rows.count,4).End(xlUp).Row For y = 1 To m If y Mod 20 = 1 Then ipath = ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & "-" & y & ".txt" '所在路径去后辍的文件名-y Open ipath For Output As #1 '打开指定的文件名 End If Write #1, Cells(y, 1).Value, Cells(y, 2).Value, Cells(y, 3).Value, Cells(y, 4).Value '以逗号分隔写入1-4列的单元格 If y Mod 20 = 0 Then Close #1 '每隔20行关闭文件 Next Close #1 End Sub 每20行转文本.rar
2楼 LOGO	,学习。谢谢分享！这里改用 m =cells(rows.count,4).End(xlUp).Row 更优。
3楼芐雨	好的，谢谢修正啊
4楼 LOGO	再提一个建议：楼主要是能把语句用代码的形式来表现的话就再好不过了，这样可以方便有需要的人复制相关代码。像这样: 楼主应该是在编辑帖子时不小心把后面的那个[code]去掉了。

免责声明

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

评论列表