VBA中rWrite = 1

抱歉，您的问题中提到的 "VBA中rWrite = 1" 是不正确的语法。在VBA（Visual Basic for Applications）中，`Write`通常用于文件操作，比如写入文本到文件，而不是简单的赋值语句。`rWrite`看起来像是拼写错误，可能应该是 `ReadWrite` 或者其他特定变量或函数的名称。

如果您想了解VBA的基本文件操作，如读取或写入文件，可以参考以下示例：
1. **打开文件并读取内容**[^1]:

Sub OpenAndRead()
    Dim filePath As String
    filePath = "C:\example.txt"
    Open filePath For Input As #1
    Dim line As String
    Do Until EOF(1)
        Line Input #1, line
        Debug.Print line ' 显示每一行的内容
    Loop
    Close #1
End Sub

2. **写入文件**:

Sub WriteToFile()
    Dim filePath As String
    filePath = "C:\example.txt"
    Open filePath For Output As #1
    Print #1, "This is a test line written using VBA."
    Close #1
End Sub

请注意，上述代码片段假设您正在处理文本文件。对于Excel中的数据操作，可能需要使用不同的方法，如工作簿对象或Range对象。