如何将excel每行单独导出为单独txt文件?

发布网友

我来回答

1个回答

热心网友

1、在D盘建一文件夹D:\TXT
2、打开数据文件
3、Alt+F11打开VBA编辑器,插入-模块
4、复制以下代码过去
Sub test()
For i = 1 To Range("A65536").End(xlUp).Row
Open "D:\\txt\" & Cells(i, 1).Value & ".txt" For Output As #1data = ""
For j = 1 To 14
data = data & Cells(i, j).Value & vbTab
Next
Print #1, data
Close #1

Next
End Sub
5、运行宏test追问Open "D:\\txt\" & Cells(i, 1).Value & ".txt" For Output As #1data = ""

亲,这行运行时提示错误...

追答Open "D:\txt\" & Cells(i, 1).Value & ".txt" For Output As #1
data = ""

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com