Двоичный доступ для чтения найти определенную строку

Вот два примера. Первый считывает каждую строку в файле и печатает на листе, начиная с ячейки A1, а затем вниз до A2, A3 и т. д., по одной на каждую строку:

Option Explicit
Sub testReadLine()
    Dim filename As String
    Dim FF As Integer
    Dim line As String
    Dim i as Long

    filename = "C:\yourfilename.txt" '### MODIFY AS NEEDED

    FF = FreeFile
    Open filename For Input As FF
    Do While Not EOF(FF)
        Line Input #FF, line

        Range("A1").Offset(i).Value = i
        i = i + 1
    Loop
    Close FF

End Sub

Во втором примере весь файл считывается в строковую переменную, а затем используется функция Split для преобразования этой строки в массив строк на основе разделителя строк (предполагается, что это vbCRLF).

Это должно быть быстрее, и, конечно, когда у вас есть данные в Excel, вы можете использовать свои обычные функции Excel, такие как «Найти» и т. Д.

Option Explicit
Option Base 0
Sub testReadAll()

    Dim filename As String
    Dim FF As Integer
    Dim text As String
    Dim buffer As Long
    Dim txtArray() As String

    filename = "C:\yourfilename.txt"  '### MODIFY AS NEEDED

    FF = FreeFile
    Open filename For Input As FF
    buffer = LOF(FF)
    text = Input(buffer, FF)
    Close FF

    'Put the text into an array, split by the LineFeed character:
    txtArray = Split(text, vbCrLf)

    'Print to the worksheet:
    Range("A1").Resize(Ubound(txtArray)).Value = Application.Transpose(txtArray)

End Sub