ник: час
Нужно построчно почтать и обработать текстовый файл.
Начал я резво:
Dim FSO As FileSystemObject
Dim TS As File
Set FSO = New Scripting.FileSystemObject
Set TS = FSO.OpenAsTextStream(GLB_PATH_SC1, ForReading)
Как теперь создать цикл
Do While Not EOF(TS)???? ругается access - не верная строка
............
Loop
похоже нашёл - Do While TS.AtEndOfLine <> True ' пока не достигнут курсором конец... 