VBA 读取顺随机文件

您可以使用VBA的FileSystemObject对象来读取顺序随机文件。以下是一个示例代码：

Sub ReadSequentialRandomFile()
    Dim filePath As String
    Dim fileNumber As Integer
    Dim fileContent As String
    
    ' 设置文件路径
    filePath = "C:\path\to\file.txt"
    
    ' 打开文件
    fileNumber = FreeFile
    Open filePath For Input As #fileNumber
    
    ' 逐行读取文件内容
    Do Until EOF(fileNumber)
        Line Input #fileNumber, fileContent
        ' 在这里处理文件内容，可以将其输出到调试窗口或处理其他操作
        Debug.Print fileContent
    Loop
    
    ' 关闭文件
    Close #fileNumber
End Sub

请注意，在示例代码中，您需要将`filePath`变量设置为要读取的文件的路径。然后，您可以使用`Open`语句打开文件，并使用`Line Input`语句逐行读取文件内容。在示例代码中，我们使用`Debug.Print`语句将每行内容输出到调试窗口。您可以根据需要修改代码来处理文件内容。最后，使用`Close`语句关闭文件。

请确保目标文件存在，并替换示例代码中的文件路径为实际文件路径。