VBA添加数据到文本

Sub 添加数据到文本文件()
Dim fso As New Scripting.FileSystemObject
Dim ostream As Scripting.TextStream
Dim sfname As String
sfname = Application.InputBox(prompt:="请输入文本文件的名称", _
Title:="请输入文件名称", Type:=2)
If sfname = "False" Or sfname = "" Then Exit Sub
sfname = ThisWorkbook.Path & "\" & sfname & ".txt"
If Not fso.FileExists(sfname) Then
    MsgBox "该文件不存在!", vbInformation + vbOKOnly
    Exit Sub
End If
Set ostream = fso.OpenTextFile(Filename:=sfname, IOMode:=ForAppending)
With ostream
    .WriteLine "追加第1行数据!"
    .WriteLine "追加第2行数据!"
    .WriteLine "追加第3行数据!"
End With
ostream.Close
MsgBox "文本文件追加数据成功!"
Set ostream = Nothing
Set fso = Nothing
End Sub