Excel 在现有文件的文本文件末尾追加字符串

我是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

---

这是因为您正在使用

CreateTextFile

，它会创建一个新的文本文件，覆盖同一路径上的任何文件

改用

OpenTextFile