Import danych z pliku tekstowego

Często się zdarza, że potrzebujemy wczytać dane z pliku tekstowego do arkusza. Poniższy przykład kodu importuje dane zawarte w pliku tekstowym (zlokalizowanym w tym samym folderze co arkusz) do aktywnego arkusza excela. Każda kolejna linia pliku tekstowego jest umieszczana w nowym wierszu arkusza:

Sub czytajtxt()

    Open ThisWorkbook.Path & "/tekst.txt" For Input As #1
    wiersz = 0

    Do While Not EOF(1)
        Line Input #1, data
        ActiveCell.Offset(wiersz, 0) = data
        wiersz = wiersz + 1
    Loop

    Close #1

End Sub

---