Excel VBA 将字符串写入文本文件

在 Excel VBA 中，我们可以使用 FileSystemObject 对象来读写文本文件。以下是一个简单的例子，演示了如何将字符串写入文本文件。

代码示例

Sub WriteToFile()

    Dim fso As Object
    Dim filePath As String
    Dim fileContent As String
    Dim fileObject As Object
    
    ' 文件路径
    filePath = "D:\TestFile.txt"
    
    ' 文件内容
    fileContent = "Hello world!"
    
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 打开文本文件
    Set fileObject = fso.CreateTextFile(filePath, True)
    
    ' 写入文件内容
    fileObject.Write(fileContent)
    
    ' 关闭文件
    fileObject.Close

End Sub

代码说明

以上代码演示了以下步骤：

1. 定义变量 fso， filePath， fileContent和 fileObject。
2. 确定文件路径和文件内容。
3. 创建 FileSystemObject 对象并分配给 fso 变量。
4. 使用 CreateTextFile 方法创建指定路径下的文本文件对象，并打开文件。
5. 使用 Write 方法向文件中写入文件内容。
6. 使用 Close 方法关闭文件。

需要注意，在使用 CreateTextFile 方法时，第二个参数可选。如果该参数为 True，则会创建一个新文件。如果该参数为 False，则会覆盖现有文件。如果文件不存在，则无论这个参数取何值，都会创建一个新文件。

参考链接

• VBA FileSystemObject
• VBA TextStream