在excel中，如何用VBA将每列数据的输出为一个独立的文本文件txt

在excel中，如何用VBA将每列数据的输出为一个独立的文本文件txt

答：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

end(3) 和下面那个 end(1) 对调一下追问对调了，还是报相同的错误。