VBA 打开text文件并显示

在VBA（Visual Basic for Applications）中，你可以使用`FileSystemObject`对象来打开文本文件并读取内容，然后显示在窗体、消息框或者其他合适的区域。下面是一个简单的步骤示例：

Sub OpenTextFile()
    ' 创建 FileSystemObject 对象
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 指定文件路径
    Dim filePath As String
    filePath = "C:\YourFolder\YourFile.txt" ' 替换为你需要的文件路径
    
    ' 打开文件
    Dim file As Object
    Set file = fso.OpenTextFile(filePath, 1) ' 1 表示打开方式为读取

    ' 读取文件内容并显示
    Dim line As String
    Do Until file.AtEndOfStream
        line = file.ReadLine
        Debug.Print line ' 可以直接打印到立即窗口，如果需要在其他地方显示，则替换Debug.Print
    Loop
    
    ' 关闭文件
    file.Close
    Set file = Nothing
    Set fso = Nothing
End Sub