学习日志
全民一起VBA提高篇
第十一回 文本文件逐行读取,输入输出操作自如
相关知识点
open fullfilename for input as #代号
do while not eof(代号)
line input #代号,字符串变量
loop
close #代号
open fullfilename for output as #代号
print #代号,内容
close #代号
从txt写入excel
Sub readtext()
Dim s As String, i&
Open "C:\10.txt" For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, s
If Left(s, 2) = "天龙" Then
Cells(i, 1) = s
i = i + 1
End If
Loop
Close #1
End Sub
从excel写入txt(覆盖)
Sub writetxt()
Dim i&
Open "C:\10-天龙八部.txt" For Output As #1
For i = 1 To 3
Print #1, Trim(Cells(i, 1)); " "; Trim(Cells(i, 2))
Next i
Close #1
End Sub
从excel写入txt(追加)
Sub addtxt()
Dim i&
Open "C:\10-天龙八部.txt" For Append As #1
For i = 1 To 3
Print #1, Trim(Cells(i, 1)); "---"; Trim(Cells(i, 2))
Next i
Close #1
End Sub