Question

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

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

求高手帮忙

Answer 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 你要新建的文件名