Файловые функции VBA
7242
Функции VBA
- CurDir() - функция, которая возвращает путь к текущему каталогу, в котором будут сохраняться файлы нашего приложения по умолчанию.
- Dir() — позволяет искать файл или каталог по указанному пути на диске.
- EOF() — при операции записи в файл на диске эта функция вернет True, если вы находитесь в конце файла. Обычно используется при работе с текстовыми файлами — .txt. При сохранении книг Excel лучше использовать стандартные методы: Save и SaveAs.
- Error() - позволяет вернуть описание ошибки по ее номеру. Генерировать ошибку нужно при помощи метода RaiseError() специального объекта Er.
- FileAttr() — позволяет определить, как именно был открыт Вами файл в файловой системе: на чтение, запись, добавление, в двоичном или текстовом режиме и т.п.
- FileDateTime() — позволяет получить информацию о последнем времени обращения к указанному Вами файлу. Если к файлу после создания ни разу не обращались, то это будет время создания файла.
- FileLen() — позволяет определить длину указанного файла в байтах.
- FreeFile() — позволяет определить следующую свободную цифру, которую можно использовать как номер файла при его открытии.
- GetAttr() — возможность обратиться к файлу к файловой системе и получить информацию об его атрибутах (скрытый, доступен только для чтения, архивный и т.п.)
- Input() — позволяет считать информацию из открытого файла. Например, считать информацию из файла C:Text1.txt и вывести ее в окно Immediate можно так:
Dim MyChar Open "C:Text1.txt" For Input As #1 'Открываем файл функцией Open() на чтение Do While Not EOF(1) 'пока файл не кончился ' Получаем по одному символу и добавляем его к предыдущим MyChar = MyChar & Input(1, #1) Loop Close #1 ' Закрываем файл 'Выводим его содержание в окно Immediate '(отобразить Immediate: Ctrl+G в окне редактора VBA) Debug.Print MyChar
Dim MyChar Open "C:Text1.txt" For Input As #1 'Открываем файл функцией Open() на чтение Do While Not EOF(1) 'пока файл не кончился ' Получаем по одному символу и добавляем его к предыдущим MyChar = MyChar & Input(1, #1) Loop Close #1 ' Закрываем файл 'Выводим его содержание в окно Immediate '(отобразить Immediate: Ctrl+G в окне редактора VBA) Debug.Print MyChar - InputB() — позволяет указывать количество байт, которые надо скачать из файла.
- Loc() — от Location, то есть местонахождение — возвращает число, которое определяет текущее место вставки или чтения в открытом файле.
- Seek() — очень похожа на функцию Loc(), но Seek() возвращает информацию о позиции, с которой будет выполняться следующая операция чтения или вставки.
- LOF() — length of file — позволяет определить длину открытого файла в байтах.
