vbaSub ReadWriteFile() Dim filePath As String Dim fileNumber As Integer Dim fileContent As String ' 设置文件路径 filePath = "C:\Test.txt" ' 打开文件以进行读取 fileNumber = FreeFile Open filePath For Input As #fileNumber ' 读取文件内容 fileContent = Input$(LOF(fileNumber), fileNumber) ' 关闭文件 Close #fileNumber ' 输出文件内容 MsgBox fileContent ' 打开文件以进行写入 fileNumber = FreeFile Open filePath For Output As #fileNumber ' 写入内容到文件 Print #fileNumber, "Hello, World!" ' 关闭文件 Close #fileNumberEnd Sub
上述代码中,我们首先定义了一个文件路径变量,然后使用 Open 函数打开文件以进行读取。接着,使用 Input$ 函数读取整个文件的内容,并将其存储在一个字符串变量中。最后,我们使用 Close 函数关闭文件,并通过 MsgBox 输出文件的内容。接下来,我们再次打开文件以进行写入。使用 Print 函数将字符串 "Hello, World!" 写入文件中。最后,我们再次使用 Close 函数关闭文件。这个简单的案例代码展示了如何使用 VBA 的内置文件操作函数来读取和写入文件。无论是读取文件内容还是写入文件内容,VBA 都使用 ANSI 编码的字符串来处理。