VBA 写入文本文件

在 VBA 中，我们可以使用 FileSystemObject 对象去操作文件系统。下面是一个示例程序，演示如何使用 FileSystemObject 在 VBA 中写入文本文件。

引入 Microsoft Scripting Runtime 库

在程序中我们需要引入 Microsoft Scripting Runtime 库来使用 FileSystemObject 对象。

Option Explicit

' 引入 Microsoft Scripting Runtime 库
Dim fs As New Scripting.FileSystemObject

写入文本文件

使用 CreateTextFile 方法创建一个新的文本文件，在使用 Write 方法向文件中写入内容。最后使用 Close 方法关闭文件。

Sub WriteToFile(filePath As String, content As String)
    Dim ts As Scripting.TextStream
    
    Set ts = fs.CreateTextFile(filePath, True)
    ts.Write content
    ts.Close
End Sub

完整代码：

Option Explicit

' 引入 Microsoft Scripting Runtime 库
Dim fs As New Scripting.FileSystemObject

Sub WriteToFile(filePath As String, content As String)
    Dim ts As Scripting.TextStream
    
    Set ts = fs.CreateTextFile(filePath, True)
    ts.Write content
    ts.Close
End Sub

Sub TestWriteToFile()
    Dim filePath As String, content As String
    
    ' 文件路径
    filePath = "C:\test.txt"
    
    ' 内容
    content = "hello, world!"
    
    ' 写入文件
    WriteToFile filePath, content
End Sub

参考

• Scripting.FileSystemObject Object