Самоучитель VBA


         

с информацией введен пользовательский тип


Для удобства работы с информацией введен пользовательский тип Студенты. Процедура примериспользованияInput последовательно считывает фамилии и оценки из файла и выводит их в ячейки первого и второго столбца рабочего листа.

Туре Студенты

' Фамилия As String * 20

Оценка As String * 3
End Type

Sub ПримерИспользованияInput()
Dim Студент As Студенты

Open "ГруппаЭкономистов"
For Input As 12 i = 1

Do While Not EOF(2) With Студент

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



Содержание  Назад  Вперед