版权
excel vba代码:
Sub makeTxt() For i = 1 To 1088'从第1行到1088行(最后一行) On Error Resume Next'出现错误时继续运行脚本 Open "d:\" & Cells(i, 1) & ".txt" For Append As #1'新建文本文档到D盘下,并命名为句柄1,文本文档的文件为excel表格中的第一列中的内容 Print #1, Cells(i, 2)'写入excel表格中的第二列到文本文档中 Close #1 Next End Sub
转载于:https://www.cnblogs.com/ginowang42/p/8066222.html
收藏
一键三连
扫一扫,分享海报
当Excel中有多行数据时,恰巧我们也需要把每一行数据都存储成一个txt文档,那么我们要手工一个一个Ctrl+c——>Ctrl+v——>Ctrl+s吗?答案是肯定不行的哇,因为本人需要处理一个存储了6万多条数据的文档,为了珍爱生命,那么本人就利用office里的VBA来投机取巧了!