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

VBA比较常用共通方法（一）写文本文件续

VBA（Visual Basic for Applications）是一种常用的微软开发工具，

用于在Office应用程序（如Excel，Word等）中编写宏和自定义功能。

在VBA中，可以使用各种方法来处理文本文件，包括读取、写入、追加和

修改文本。下面是一些常用的VBA方法来继续写文本文件的示例。

1. 使用FileSystemObject（FSO）对象：

FSO对象是VBA中处理文件和文件夹的常用工具之一、使用FSO对象

的CreateTextFile方法可以创建一个新的文本文件，并使用WriteLine

方法写入文本内容。如果想追加内容到已存在的文本文件中，可以将

OpenTextFile方法的第二个参数设置为True。

下面是使用FSO对象继续写文本文件的示例代码：

```vba

Sub WriteToFileUsingFSO

Dim fso As Object

Dim file As Object

Dim filePath As String

Dim text As String

'文件路径

filePath = "C:"

'要追加的文本内容

text = "This is some additional text."

'创建FSO对象

Set fso = CreateObject("stemObject")

'打开文本文件，并设定追加模式

Set file = xtFile(filePath, 8, True)

'写入文本内容

ine text

'关闭文件

'释放对象

Set file = Nothing

Set fso = Nothing

End Sub

```

2. 使用FileNum和Print命令：

VBA中另一种常用的方法是使用FileNum与Print命令。FileNum用

于指定文件号，Print命令用于将文本写入指定的文件号。通过指定文件

号为-1，可以将文本写入默认的输出文件，通常是屏幕上的Immediate窗

口。

下面是使用FileNum和Print命令继续写文本文件的示例代码：

```vba

Sub WriteToFileUsingPrint

Dim filePath As String

Dim text As String

Dim fileNum As Integer

'文件路径

filePath = "C:"

'要追加的文本内容

text = "This is some additional text."

'打开文本文件，并设定追加模式

fileNum = FreeFile

Open filePath For Append As fileNum

'写入文本内容

Print #fileNum, text

'关闭文件

Close fileNum

End Sub

```

这两种方法都很常见，具体使用哪种方法取决于个人偏好和项目需求。

无论使用哪种方法，都要确保在写入文本后关闭文件，并释放相关的对象。

此外，还可以使用其他方法来处理文本文件，例如使用StreamWriter或

使用Excel的Worksheet对象来处理CSV文件等。根据需求选择合适的方

法，并注意妥善处理错误和异常情况。