Вот тут по шагам пытаюсь разобраться, т.к. скрипт просто в интернете нашел:
Dim f As Long
Dim FileTxt As String
Dim FileName As String
Объявляем переменные.
FileName = "C:\1\1.txt"
Задаём имя файла с директорией
f = FreeFile
Не знаю что это
Open FileName For Input As f
Открываем файл
Do While Not EOF(f)
Пока файл не кончится делаем цикл
FileTxt = Input(1, #f)
Не понятно как это работает, т.к. если вместо 1 ставлю 5 - какие-то ошибки и аксесс закрывается
Debug.Print UsefulTxt
Не понятно что это
Loop
Конец цикла
Close #f
Закрываем канал
Вощем не понятны вот эти строки
f = FreeFile
FileTxt = Input(1, #f)
Debug.Print UsefulTxt