Двоичен достъп за четене, намиране на конкретен низ

Ето два примера. Първият чете всеки ред във файла и отпечатва в работен лист, започващ в клетка 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