把excel每一行中的数据输出为一个txt文档的VBA函数

最新推荐文章于 2023-10-02 19:33:44 发布

weixin_30679823

最新推荐文章于 2023-10-02 19:33:44 发布

阅读量1.5k

点赞数

文章标签： python

原文链接：http://www.cnblogs.com/ginowang42/p/8066222.html

版权

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