正文

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

IP云
IP云V管理员/8 阅读
08/08
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

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