好吧问答库 > 用vba，读一个txt文件，将读到的内容逐条写入到另一个文件中（后面这个文件要新建）求高手帮忙

用vba，读一个txt文件，将读到的内容逐条写入到另一个文件中（后面这个文件要新建）求高手帮忙

2024年11月15日 22:28

有1个网友回答

网友（1）：

Sub 宏1()
Dim a As String
Dim fname As String
Dim fname2 As String
fname = "d:\123\123.txt"
fname2 = "d:\123\124.txt"
Open fname For Input As #1
Open fname2 For Output As #2
On Error Resume Next
Do
Input #1, a
Print #2, a
Loop While EOF(1) = False
Close #1
Close #2
End Sub

fname 你要读的文件
fname2 你要新建的文件名

用vba，读一个txt文件，将读到的内容逐条写入到另一个文件中（后面这个文件要新建） 求高手帮忙

用vba，读一个txt文件，将读到的内容逐条写入到另一个文件中（后面这个文件要新建）求高手帮忙