2024年3月18日发(作者：)
VBA比较常用共通方法写文本文件续
在VBA中，我们可以使用FileSystemObject对象来读写文本文件。
下面是一些比较常用的VBA方法来写文本文件的续：
1. 使用Open语句打开文件并写入内容：
```vba
Sub WriteToFile(filePath As String, content As String)
Dim fileNumber As Integer
fileNumber = FreeFile
Open filePath For Append As fileNumber
Print #fileNumber, content
Close fileNumber
End Sub
```
上述代码中，我们使用Open语句来打开指定路径的文件，并使用
Print语句将内容写入文件。然后使用Close语句关闭文件。
2. 使用FileSystemObject对象来写入内容：
```vba
Sub WriteToFile(filePath As String, content As String)
Dim fso As Object ' FileSystemObject
Set fso = CreateObject("stemObject")
Dim file As Object ' TextStream
Set file = xtFile(filePath, 8) ' 8 represents
"ForAppending" mode
ine content
End Sub
```
上述代码中，我们首先创建了一个FileSystemObject对象，然后使
用OpenTextFile方法打开指定路径的文件，并传入参数8代表以“追加”
模式打开文件。接下来，我们使用WriteLine方法将内容写入文件，并使
用Close方法关闭文件。
3. 使用FreeFile函数来获取文件句柄：
```vba
Sub WriteToFile(filePath As String, content As String)
Dim fileNumber As Integer
fileNumber = FreeFile
Open filePath For Append As fileNumber
Print #fileNumber, content
Close fileNumber
End Sub
```
上述代码中，我们使用FreeFile函数来获取一个未使用的文件句柄
（文件号），然后使用Open语句打开指定路径的文件，并传入文件句柄。
接下来，使用Print语句将内容写入文件，并使用Close语句关闭文件。
4. 使用TextStream对象来写入内容：
```vba
Sub WriteToFile(filePath As String, content As String)
Dim fso As Object ' FileSystemObject
Set fso = CreateObject("stemObject")
Dim file As Object ' TextStream
Set file = xtFile(filePath, 8) ' 8 represents
"ForAppending" mode
ine content
End Sub
```
上述代码中，我们依然使用了FileSystemObject对象来打开文件，
然后使用OpenTextFile方法打开指定路径的文件，并传入参数8代表以
“追加”模式打开文件。接下来，我们使用WriteLine方法将内容写入文
件，并使用Close方法关闭文件。
发布评论