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