Книга: VBA для чайников

Не идите на поводу у номеров

Не идите на поводу у номеров

Хотя в VBA рекомендуется обращаться к открытым файлам по номеру, запоминать то, с чем связаны какие-то числа, достаточно трудно и неудобно. Вместо номеров файлов можно использовать константы или переменные с понятным названием. Если наперед известен номер, который будет использоваться для отдельного файла, объявите для него константу. Данную константу затем можно использовать в операторе, воздействующем на файл. Вот пример:

Const PetsFile = 1, BdayFile = 2

Open "C:MiscDataPetsLog.txt" For Input As PetsFile

Open "C:MiscDataBirthdays.txt" For Random As BdayFile

Input #PetsFile, strPetlnfo ‘ чтение одного элемента из файла

Close PetsFile

Put BdayFile, 45, usrBDay ' запись одного элемента в файл

CloseBdayFile

Применяйте данный прием без опасения: вместо того чтобы собственноручно присваивать файлам номера, используйте функцию FreeFile, определяющую следующий доступный номер файла. Если значение, возвращаемое функцией, присвоить переменной, необходимость в запоминании номера просто отпадет. Вот пример применения данного приема: Dim DiaryFile As Integer DiaryFile = FreeFile () Open

"C:MySecretsDiary.txt" For Input As DiaryFile

Оглавление книги