迭代文本文件以将行读取到excel VBA中的类模块中。

Public FilePath As String

Public Sub ReadTextFile()
    Dim FileNum As Integer
    Dim DataLine As String
    Dim RowNum As Integer
    
    ' 打开文本文件
    FileNum = FreeFile
    Open FilePath For Input As FileNum
    
    ' 逐行读取文本文件并将数据存储到Excel工作簿中
    RowNum = 1
    Do While Not EOF(FileNum)
        Line Input #FileNum, DataLine
        Cells(RowNum, 1).Value = DataLine
        RowNum = RowNum + 1
    Loop
    
    ' 关闭文本文件
    Close FileNum
End Sub

Sub Main()
    Dim MyClass As New ClassName
    
    ' 设置文本文件路径和名称
    MyClass.FilePath = "C:\path\to\textfile.txt"
    
    ' 调用类模块中的方法读取文本文件
    MyClass.ReadTextFile
End Sub