在VBA中，文件读写是一项常见的任务，无论是读取文本文件中的数据，还是将数据写入文件，都是自动化流程中不可或缺的部分。下面将详细介绍VBA中读写文件的几种常用方法。

一、使用Open语句读写文本文件

Open语句是VBA中较为传统的文件操作方法，它允许你以不同的模式打开文件，并进行读写操作。

写文本文件

'' 写文件'Sub WriteTextFile()    Dim filePath As String    Dim fileNum As Integer    Dim writeText As String          ' 文件路径    filePath = ThisWorkbook.Path & "\file.txt"          ' 要写入的内容    writeText = "Hello World!" & vbCrLf & "One more line"          ' 打开文件，以写入模式    fileNum = FreeFile()    Open filePath For Output As #fileNum          ' 写入内容    Print #fileNum, writeText          ' 关闭文件    Close #fileNumEnd Sub

'' 读取文件'Sub ReadTextFile()    Dim filePath As String    Dim fileNum As Integer    Dim lineText As String          ' 文件路径    filePath = ThisWorkbook.Path & "\file.txt"          ' 打开文件，以只读模式    fileNum = FreeFile() ' 获取一个未使用的文件号    Open filePath For Input As #fileNum          ' 循环读取文件的每一行    Do While Not EOF(fileNum)        Line Input #fileNum, lineText        ' 处理读取到的行，例如输出到消息框        MsgBox lineText    Loop          ' 关闭文件    Close #fileNumEnd Sub

二、使用FileSystemObject对象读写文件

FileSystemObject对象提供了更灵活的文件操作功能，它不需要使用文件号，而是直接通过对象的方法来实现文件的创建、写入和读取。

1. 创建文件并写入内容

首先，你需要在VBA编辑器中通过“工具”->“引用”来勾选“Microsoft Scripting Runtime”，以便使用FileSystemObject。

Sub WriteToFileUsingFSO()    Dim fso As FileSystemObject    Dim fileStream As TextStream    Dim filePath As String          ' 创建FileSystemObject对象    Set fso = New FileSystemObject          ' 文件路径    filePath = ThisWorkbook.Path & "\file.txt"          ' 创建文本文件并打开文件流以写入内容    Set fileStream = fso.CreateTextFile(filePath, True) ' True表示如果文件已存在则覆盖          ' 写入内容    fileStream.WriteLine "FileSystemObject"    fileStream.WriteLine "更多内容"          ' 关闭文件流    fileStream.Close          ' 释放对象    Set fileStream = Nothing    Set fso = NothingEnd Sub

2. 读取文件内容

Sub ReadFromFileUsingFSO()    Dim fso As FileSystemObject    Dim fileStream As TextStream    Dim filePath As String    Dim lineText As String          ' 创建FileSystemObject对象    Set fso = New FileSystemObject          ' 文件路径    filePath = ThisWorkbook.Path & "\file.txt"          ' 打开文件流以读取内容    If fso.FileExists(filePath) Then        Set fileStream = fso.OpenTextFile(filePath, ForReading) ' 1表示只读模式                          ' 循环读取文件的每一行        Do While Not fileStream.AtEndOfStream            lineText = fileStream.ReadLine            ' 处理读取到的行，例如输出到消息框            MsgBox lineText        Loop                ' 也可以一次全部读完所有内容        Set fileStream = fso.OpenTextFile(filePath, 1)        MsgBox fileStream.ReadAll                          ' 关闭文件流        fileStream.Close    Else        MsgBox "文件不存在！"    End If          ' 释放对象    Set fileStream = Nothing    Set fso = NothingEnd Sub

以上两种方法都是VBA中常用的文件读写方式。在实际应用中，你可以根据具体需求选择适合的方法。