ExcelVBA操作文本文档TXT文件的方法(一)

2024年3月18日发(作者：)

Dim fso As Object, sFile As Object

Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateFalse = 0

Set fso = CreateObject("stemObject")

Set sFile = xtFile("C:", ForAppending, TristateFalse)

"OpenTextFile Test"

Set fso = Nothing

Set sFile = Nothing

End Sub