Input #2,.Фамилия,.Оценка
Cells(i, 1).Value =.Фамилия
Cells(i, 2).Value =.Оценка
End With
i = i + 1 Loop
Close #2
End Sub
Приведем пример использования инструкции Line input # для считывания данных из файла группаЭкономистов, имеющего ту же структуру, что и в предыдущем примере, но созданного с помощью инструкции Print #. Инструкция Line input # считывает всю строку из файла в строковую переменную. Поэтому в этом случае уже нет необходимости использовать введенный пользовательский тип, а достаточно ограничиться только обычной строковой переменной. Вся считываемая информация строка за строкой вводится в список диалогового.окна.
Private Sub UserForm_Initialize()
Dim Студент As String
Open "ГруппаЭкономистов"
For Input As #1
i = 1
With ListBoxl
Clear Do While Not EOF(l)
Line Input 11, Студент
Addltem Студент
i = i + 1 Loop
Close #l
End With
End Sub