Файлы
Операции с файлами производятся с помощью инструкции Open. Синтаксис данной инструкции включает множество настроек. Напоминаем, что в квадратных скобках содержатся необязательные команды.
Open pathname For mode [Accessaccess] [lock] As [#]filenumber [Len=reclength],
Где pathname – полное имя файла, например “P:\1kurs\m72\dann.txt”,
Mode – для чего открывается файл (Input-считывание из файла, Output-запись в файл, Append-добавление в файл)
As #1 – под каким номером будет использован файл. Одновременно может быть открыто 255 файлов.
Например подпрограмма записывающая произвольное количество случайных чисел в текстовый файл по указанному Вами пути, например «P:\1kurs\m72\dann.txt»:
Public Sub file_write()
Dim N%
N=InputBox(“Сколько значений поместить в файл?”,,90)
Open “P:\1kurs\m72\dann.txt” For Output As #1
For I=1 to N
Print #1, Int(RND*100)
Next I
Close #1
End Sub
Аналогично можно считывать значения из файла. Предположим, заранее неизвестно число значений в файле. Используем метод NOT EOF(), что означает «не конец файла».
Public Sub file_read()
Open “P:\1kurs\m72\dann.txt” For Input As #1
I=1
While NOT EOF()
Input #1, Cells(I,1)
I=I+1
Wend
Close #1
End Sub
Данная программа будет брать значения из файла по указанному пути и помещать в ячейки таблицы активного листа в первую колонку.
