VBA（非Excel）读取TXT文件内容并显示到标签的方法

方法1：直接读取拼接显示 #

适合快速将所有行内容展示到标签，需确保标签的MultiLine属性设为True（可在设计界面设置，或通过代码指定）：

Sub ReadTxtToLabel()
    Dim filePath As String
    Dim fileNum As Integer
    Dim lineText As String
    Dim allText As String
    
    ' 指定目标文件路径
    filePath = "C:\Users\Marc\Desktop\Unterlagen\Datei.txt"
    
    ' 检查文件是否存在，避免报错
    If Dir(filePath) = "" Then
        MsgBox "目标文件不存在！"
        Exit Sub
    End If
    
    ' 获取可用文件编号并打开文件
    fileNum = FreeFile()
    Open filePath For Input As #fileNum
    
    ' 逐行读取内容并拼接
    Do While Not EOF(fileNum)
        Line Input #fileNum, lineText
        allText = allText & lineText & vbCrLf ' 用换行符分隔每行
    Loop
    
    ' 关闭文件
    Close #fileNum
    
    ' 设置标签属性并赋值内容
    Label1.MultiLine = True
    Label1.Caption = allText
End Sub

方法2：每行存入字符串数组后显示 #

如果需要后续单独处理某一行内容，可先将每行数据存入数组：

Sub ReadTxtToArrayAndShow()
    Dim filePath As String
    Dim fileNum As Integer
    Dim lineText As String
    Dim textArray() As String
    Dim index As Integer
    
    filePath = "C:\Users\Marc\Desktop\Unterlagen\Datei.txt"
    
    If Dir(filePath) = "" Then
        MsgBox "目标文件不存在！"
        Exit Sub
    End If
    
    fileNum = FreeFile()
    Open filePath For Input As #fileNum
    
    index = 0
    Do While Not EOF(fileNum)
        Line Input #fileNum, lineText
        ReDim Preserve textArray(index)
        textArray(index) = lineText
        index = index + 1
    Loop
    
    Close #fileNum
    
    ' 将数组内容拼接后显示到标签
    Label1.MultiLine = True
    Label1.Caption = Join(textArray, vbCrLf)
    
    ' 示例：访问数组中第二行内容（数组下标从0开始）
    ' MsgBox textArray(1)
End Sub

注意事项 #

• 替换代码中的Label1为你实际使用的标签控件名称
• vbCrLf用于在标签中实现换行，确保每行内容单独显示
• 上述代码适用于所有非Excel VBA环境（如VB6、Access等）

内容的提问来源于stack exchange，提问作者HelloWorld