使用Excel中的vba向记事本文件写入数据，同时要换行写入数据，可以使用下面的代码。 首先，如果记事本文件不存在，那么代码会自动创建之后再换行写入数据；否则将直接换行写入数据。
第一种代码
Dim x As Range
Open "C:\换行写入.txt" For Output As #1
For i = 1 To 50
Print #1, "再次增加" & i
Next i
Close #1
代码功能：先记事本文件“换行写入.txt”换行写入如下的内容：
再次增加1
再次增加2
再次增加3
……
再次增加50
第二种代码
Dim x As Range
Open "C:\换行写入.txt" For Output As #1
For Each x In [A1:A36]
Print #1, x
Next
Close #1
代码功能：把A1:A36这个范围的单元格内容，换行逐一写入文件中(换行写入.txt);