将字符串附加到现有文件的文本文件的末尾

Question

我是vba脚本的新手，我试图在现有文件中追加一个字符串。 但它取代了旧文件的代码，网上有很多方法，但无法成功实现。

提前感谢您对此代码的任何帮助

代码是：

Sub AddData()
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Dim stream As TextStream
    Set stream = fso.CreateTextFile("C:\itscodes.txt", ForAppending)
    stream.Write ",sdfThis line uses the Write method53535."
    stream.Close
End Sub

Answer 1

这是因为你正在使用CreateTextFile，它会创建一个新的文本文件，覆盖同一路径上的任何文件。

改为使用OpenTextFile。