在excel中,如何用VBA将每列数据的输出为一个独立的文本文件txt
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了在excel中,如何用VBA将每列数据的输出为一个独立的文本文件txt相关的知识,希望对你有一定的参考价值。
我根据按每行数据的输出为一个独立的文本文件的代码稍微改了一下,如下
Private Sub export()
Application.ScreenUpdating = False '关闭屏幕刷新
Path = "E:\export"
Dim nro&, nco& '定义区域变量
nco = Cells(1, Columns.Count).End(3).Column
For i = 1 To nco '在行中进行循环
nro = Cells(Rows.Count, i).End(1).Row
Open Path & "\file" & i & ".txt" For Output As #1
Print #1, Join(Application.Transpose(Application.Transpose(Range(Cells(1, i), Cells(nro, i)))), ",")
Close #1 '关闭文本
Next '下次循环
Application.ScreenUpdating = True '开启屏幕刷新,与前对应
MsgBox "导出完成" '完成友好提示
End Sub
报错:运行时错误5 无效的过程调用参数
求问,应该怎么改呢?。
不太懂end()里面是什么意思,可以解释一下吗?
答:end()里面的数字是简写的,这样很不好辨认。强烈建议使用命名参数。
1、2、3、4代表xlToLeft、xlToRight、xlUp、xlDown。也就是点一个单元格,然后按“Ctrl+箭头”后指向的单元格。
我修改了这段代码,已验证了能正确导出。
Private Sub export()Application.ScreenUpdating = False
Path = "E:\\export"
Dim nro&, nco&
nco = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To nco
nro = Cells(Rows.Count, i).End(xlUp).Row
Open Path & "\\file" & i & ".txt" For Output As #1
For Each cell In Range(Cells(1, i), Cells(nro, i))
Print #1, cell
Next
Close #1
Next
Application.ScreenUpdating = True
MsgBox "导出完成"
End Sub
先非常感谢。我用你的调试了,能用。但是中间是以回车间隔的,我想以逗号相隔,不是每个都换行,可以吗?。。多谢
追答可以的,修改后的程序如下
Private Sub export()
Application.ScreenUpdating = False
Path = "E:\export"
Dim nro&, nco&
nco = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To nco
nro = Cells(Rows.Count, i).End(xlUp).Row
Open Path & "\file" & i & ".txt" For Output As #1
Print #1, Join(Application.Transpose(Range(Cells(1, i), Cells(nro, i))), ",")
Close #1
Next
Application.ScreenUpdating = True
MsgBox "导出完成"
End Sub
对调了,还是报相同的错误。
以上是关于在excel中,如何用VBA将每列数据的输出为一个独立的文本文件txt的主要内容,如果未能解决你的问题,请参考以下文章