Функции excel для работы с файлами

---

Статья помогла? Сделай твит, поделись ссылкой с друзьями!

• Надстройка FillDocuments для MS Excel: общие сведения

  Предназначение программы: заполнение множества документов данными из Excel нажатием одной кнопки.
  Для работы программы требуется таблица Excel с данными для подстановки, и папка с шаблоном (шаблонами) документов.
  В качестве шаблонов можно использовать файлы Word и Excel.
  На выходе получаются заполненные файлы исходного…

• 

  Надстройка Parser для Excel — простое и удобное решение для парсинга любых сайтов (интернет-магазинов, соцсетей, площадок объявлений) с выводом данных в таблицу Excel (формата XLS* или CSV), а также скачивания файлов.
  Особенность программы — очень гибкая настройка постобработки полученных данных (множество текстовых функций, всевозможные фильтры, перекодировки, работа с переменными,…

• Надстройка PastePictures для MS Excel: общие сведения

  Предназначение программы: вставка изображений в таблицу Excel, поиск картинок в папке или в Google, экспорт картинок из таблицы в папку.
  Основные функции программы:

  вставка фото из папки (поиск по имени файла)
  вставка картинок по ссылкам из таблицы
  поиск изображений в гугл по данным с листа Excel
  экспорт изображений с листа в файлы…

• 

  Функция FilenamesCollection предназначена для получения списка файлов из папки, с учётом выбранной глубины поиска в подпапках.
  Используется рекурсивный перебор папок, до заданного уровня вложенности.
  В процессе перебора папок, пути у найденным файлам помещаются в коллекцию (объект типа Collection) для последующего перебора.
  К статье прикреплено 2 примера файла с макросами на основе этой…

• Функции GetFileName и GetFilePath по сути аналогичны, и предназначены для вывода диалогового окна выбора файла
  (при этом можно указать стартовую папку для поиска файла, и тип/расширение выбираемого файла)
  Функция GetFilenamesCollection позволяет выборать сразу несколько файлов в одной папке.
  Функция GetFolderPath работает также, только служит для вывода диалогового окна выбора папки.
  Function…

• 

  
  Макрос предназначен для программного создания документов Word на основе шаблона
  (без использования функции слияния в Word)

  В прикреплённом к статье архиве находятся 2 файла:

  шаблон договора в формате Microsoft Word (расширение .dot)

  файл Excel с макросом

  Настройки макроса задаются в коде:
  Const ИмяФайлаШаблона = «шаблон.dot»
  Const КоличествоОбрабатываемыхСтолбцов = 8…

• Данные функции предназначены для работы с текстовыми файлами из VBA Excel.
  Используя эти функции, вы при помощи одной строки кода сможете записать текст из переменной в файл, или наоборот, загрузить содержимое текстового файла в переменную.
  Подразумевается, что текстовые файлы имеют формат ANSI (он же ASCII, он же windows-1251)

  ВНИМАНИЕ: См. также функции чтения и сохранения текста в файл в…

• 

  
  Программа предназначена для формирования (заполнения) договоров купли-продажи.
   
  Исходными данными выступает таблица сделок, и шаблон договора, в который при помощи формул подставляются значения из заданной строки таблицы сделок.
  Для запуска программы достаточно нажать зеленую кнопку — и сразу же начнётся формирование договоров (файлов Excel из одного листа) в автоматически созданной папке…

• 

  Надстройка позволяет экспортировать все изображения с листа Excel в графические файлы.
  Доступен выбор типа создаваемых файлов (поддерживаются форматы JPG, GIF и PNG)
  Кроме того, можно указать имя папки, в которую будут помещены созданные файлы
  (эта папка будет создана автоматически в том же каталоге, где расположен обрабатываемая книга Excel)

  Если нужно сохранять картинки под именами из…

• Как известно, VBA-функция MkDir может создать только папку в существующем каталоге (папке).
   
  Например, код MkDir «C:Папка» отработает корректно в любом случае (создаст указанную папку),
  а код MkDir «C:ПапкаПодпапкаКаталог» выдаст ошибку Run-time error ’76’: Path not found
  (потому что невозможно создать каталог Подпапка в несуществующем ещё каталоге Папка)…

• 
  Макрос предназначен для создания текстовых файлов в кодировке UTF-8.
  Исходными данными является таблица Excel из 12 столбцов.
  Сначала, макрос создаёт папку для будущих текстовых файлов.
  Папка создаётся в том же каталоге, где расположена книга Excel.
  Далее, для каждой строки таблицы, макрос формирует подпапку,
  используя в качестве её названия текст из 7-го столбца таблицы.
  И потом, когда папка…

• К примеру, есть у вас несколько десятков (или сотен) текстовых файлов с подобным содержимым:
  (количество файлов, и количество строк данных в каждом файле не ограничено)
  1c04;1J0-698-151-G;1 комплект тормозных накладок;1J0698151G;1J0698151G;5;1
  1c04;1H0698151A;Тормозные колодки;1H0698151A;1H0698151A;1;1
  1c04;1K0-698-151-B;Тормозные колодки;1K0698151B;1K0698151B;2;1
  А надо из всего этого…

• 

  
  Можно ли прикрепить (вложить) произвольные файлы в обычную книгу Excel?
  А потом извлечь эти файлы в заданную папку, и работать с ними?
  Казалось бы, Excel такого не позволяет. (а если и позволяет, то извлечь вложенные файлы без из запуска — весьма проблематично)
  Но, при помощи макросов, можно реализовать что угодно (и сохранениеизвлечение файлов в том числе)

  Теперь прикрепить к книге Excel…

• 

  
  Надстройка предназначена для облегчения импорта данных в Excel из текстовых файлов с разделителями (например, из CSV)

  Пока во вложении — обычный файл Excel с нужными макросами, надстройку выложу позже

  В надстройке применена функция получения ссылки на заданную пользователем ячейку.
  Основой для надстройки послужила функция загрузки CSV файла в двумерный массив

  Использовать функции…

• 

  Программа предназначена для автоматизации формирования договоров комиссии и купли автотранспортного средства.
  В качестве исходных данных выступают:

  таблица Excel с реквизитами создаваемых документов
  папка с шаблонами договоров (в формате dot)

  В исходной таблице Excel занесены все необходимые исходные данные для заполнения бланков договоров, а также, при помощи пользовательских формул (UDF),…

• 
  Представляю вашему вниманию инструментарий для работы с файлами по FTP

  Как известно, отправить файл на FTP сервер (или загрузить файл с FTP, создать папку на FTP сервере, и т.д.) можно при помощи таких API-функций из библиотеки wininet.dll, как FtpPutFile, FtpGetFile, FtpRenameFile, FtpDeleteFile, FtpRemoveDirectory, FtpCreateDirectory, FtpFindFirstFile и т.д…

• 

  
  Если вам нужно рассылать письма из Excel,
  воспользуйтесь готовым решением в виде надстройки FillDocuments
  Ознакомьтесь с возможностями и способами рассылки писем из Excel,
  а также с инструкцией по настройке рассылки через TheBAT

  Макроc предназначен для автоматизированной рассылки почты из Excel.
  Для рассылки используется почтовая программа TheBAT!
  (подразумевается, что эта программа на…

• 

  
  Программа предназначена для загрузки списка товаров из актов о приеме-передаче основных средств.
  Поддерживаются акты по формам № ОС-3.1 и № ОС-3.3, возможно добавить поддержку актов других форм (в формате Excel).
  При запуске макроса, выводится диалоговое окно выбора папки, после чего, в выбранной папке, производится поиск всех файлов Excel.
  Для каждого из найденных файлов Excel, программа…

• 
  Данный макрос позволяет быстро (одним нажатием кнопки) пересохранить текущий файл Excel в другом формате.

  Например, вы работаете с книгой Excel в формате Excel 97-2003 (расширение XLS), и вам понадобилось преобразовать этот файл в формат «двоичная книга Excel» (расширение XLSB)
  Для чего это нужно? К примеру, файлы в формате XLSB занимают намного меньше места на диске, и не…

• 

  
  Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании.

  Программа позволяет хранить и редактировать базу данных объектов (в виде файлов Excel), просматривать существующие трассы и формировать новые.

   

  Особенность программы — возможность учёта и администрирования узлов связи с нестандартными…

• Function PasteOLEobject(ByVal filename$, ByRef TopLeftCell As Range, _
  Optional ByVal Width%, Optional ByVal Height%) As ShapeRange
  ‘ вставляет на лист объект OLE (из файла filename$)
  ‘ и размещает его в нужном месте, совмещая левый верхний угол с ячейкой TopLeftCell
  ‘ если указаны размеры Width% или Height% — они задаются вствляемому объекту
  On Error…

• 
  Функция TextFile2Array предназначена для преобразования файла CSV в двумерный массив
  Очень часто при работе с текстовыми файлами (и, в частности, с файлами CSV) приходится их загружать на лист Excel, предварительно производя фильтрацию данных в этом файле.
  Чтобы упростить весь процесс — от выбора файла CSV в диалоговом окне, до разбиения загруженного из файла текста в двумерный массив, и была…

• 
  Функция предназначена для разбивки текстового файла на несколько файлов меньшего размера — в каждом из которых будет не более заданнного количества строк

  Разделитель строк (обычно это перевод строки — константа vbNewLine) задаётся в качестве параметра функции Delimiter$

  Создаваемые файлы получают имена вида filename(1).txt, filename(2).txt и т.д.

  Если задан параметр функции…

• При попытке сохранить файл под именем, заданным пользователем, вы можете получить ошибку — если в имени файла (папки) присутствуют запрещённые символы.
  Этого легко избежать, если в процессе формирования имени файла удалить из него недопустимые символы, заменив их символом подчёркивания:
  Function Replace_symbols(ByVal txt As String) As String
  St$ = «~!@/#$%^&*=|`»»…

• 
  Данный макрос позволяет получить список папок, расположенных в выбранной папке (каталоге)
  Если надо получить список папок, имена которых удовлетворяют определённому критерию, используйте маску поиска (параметр Mask$)
  Код функции и пример использования:
  Sub ПоискПодходящихПодпапок()
  ‘ считываем в колекцию coll подходящие полные пути папок
  ‘ (поиск папок с названием, начинающимся на 09…

• 

  
  Надстройка, позволяющая загрузить из выбранной папки список файлов на лист Excel.
  Автор: VictorM

  Особенности надстройки:

  задаваемая пользователем глубина поиска в подпапках

  простановка гиперссылок на листе Excel на найденные файлы

  вывод дополнительных характеристик файла

  (размер файла, дата создания файла, полный путь)

  изменяемая маска поиска (поиск по части имени файла, по…

• 

  Надстройка предназначена для переименования файлов в заданной папке.
  В качестве исходных данных (исходные и конечные имена файлов) выступает таблица Excel
  В настройках программы задаётся, в каких столбцах таблицы Excel брать имена файлов.
  При необходимости, можно указать префикс и суффикс для имен файлов.
  После запуска надстройки, на ленте Excel на вкладке НАДСТРОЙКИ появляется панель…

• Этот макрос выводит информацию о папке — например, её размер, и количество файлов в ней:
  Sub ПодсчётКоличестваФайловВПапке()
  ‘ задаём папку
  FolderPath = «C:Documents and SettingsAdminРабочий стол»
   
  ‘ получаем характеристики папки
  Set FSO = CreateObject(«Scripting.FileSystemObject»)
  КоличествоФайловВПапкеБезУчётаПодпапок = FSO.GetFolder(FolderPath…

• 

  
  Программа предназначена для простановки гиперссылок в ячейки на найденные фотографии, и для последующего просмотра изображений, ссылки на которые присутствуют в ячейках Excel

  Принцип работы программы:

  надстройка отслеживает изменение выделенной области на активном листе

  если выделена одна ячейка (или несколько ячеек одной строки), то

  производится поиск столбцов, в первой ячейке…

• 
  В некоторых случаях, при запуске файла Excel с макросами (к примеру, надстройки Excel), для обеспечения работы макросов требуется, чтобы был полный доступ к файлу (а не «только чтение»), или же файл был сохранён в заданной папке.

  Полный доступ к файлу необходим, например, для работы автоматического обновления надстройки,
  а постоянный путь может потребоваться, если вы хотите…

• 

  
  Программа предназначена для предпечатной подготовки, и последующего вывода на печать (на виртуальный ПДФ принтер) документов Excel.
   
  Программа позволяет:

  подгонять файлы, выгруженные из 1С, под печать на одной странице

  изменять ориентацию страницы для счетов-фактур

  вставлять реквизиты (фамилии, информацию о доверенностях) в специально выделенные для этого ячейки

  вставлять…

• 

  
  Узнать продолжительность (время) звучания аудиофайла (MP3, WAV и т.д.), или длительность видеофайла (видеоролика) из Excel совсем несложно.
  Используйте функцию ПродолжительностьМедиафайла:
  (функцию можно использовать как в макросах, так и на листе Excel)
  Sub Пример_Использования_Функции_ПродолжительностьМедиафайла()
  Путь = «E:MusicMODERN_TALKING With_a_little_love.mp3″…

• 
  Функция предназначена для получения файлов, извлечённых из архива ZIP.
  Разархивирование выполняется средствами Windows, файлы извлекаются в специально созданную папку в каталоге для временных файлов (C:WINDOWSTemp)
  При запуске макроса папка UNZIPPED FILES сначала удаляется, а потом создаётся заново.
  (таким образом, выполняется удаление файлов, которые могли оказаться в папке при предыдущем…

• Sub ПримерИспользования()
  ‘ задаём полный путь к обрабатываемому файлу
  ПутьКФайлу$ = ThisWorkbook.Path & «» & «Contract.XLS»
   
  Application.ScreenUpdating = False ‘ отключаем обновление экрана
  arr = LoadArrayFromWorkbook(ПутьКФайлу$, «a2», 30) ‘ загружаем данные

  ‘ выводим результаты в окно Immediate
  Debug.Print «…

• 
  Функция LastFile предназначена для поиска самого свежего файла в заданной папке

  (производится поиск файлов по маске, и из найденных файлов выбирается тот, дата последнего изменения которого максимальна)
   
  Пример использования функции:
  Sub ПримерИспользованияФункции_LastFile()
  ‘ Ищем на рабочем столе все файлы TXT, и выводим имя самого нового файла.
  ‘ Просматриваются папки с…

• 
  Функция FileToVBAFunction предназначена для сохранения произвольного файла в виде VBA кода.
  В любой момент вы можете вызвать сгенерированную функцию — она моментально создаст во временной папке необходимый файл, и вернет путь к созданному файлу.

  Основное применение функции — сохранение небольших файлов (в основном, графических — иконок и маленьких картинок) в книге Excel.

  Для того, чтобы…

• Данная функция формирует (создаёт) новую книгу Excel с одним листом (на основании шаблона — листа sh_template), после чего сохраняет новый файл по пути NewFilename$
  Если путь не указан, сохранения нового файла не происходит.
  Function NewWorksheet(ByRef sh_template As Worksheet, Optional ByVal NewFilename$) As Worksheet
  Application.ScreenUpdating = False: On Error Resume Next: Err.Clear…

• 

  
  Программа предназначена для автоматизации рабочего места сотрудника, отвечающего за регистрацию, прием на работу, и увольнение иностранных граждан.
  В качестве исходных данных используется таблица изображенная на скриншоте.
  В этой таблице содержится нужная информация, необходимая для заполнения шаблонов документов.
  Программа заполняет следующие документы:

  Доверенность (doc)

  Заявление на…

• Функции WIF и RIF являются обёртками для WinAPI функций WritePrivateProfileString и GetPrivateProfileString, и предназначены для записи и чтения параметров из файлов конфигурации INI.
  INI-файлы — это обычные текстовые файлы, предназначенные для хранения настроек программ.
  Примерный вид структуры INI -файла:

  ; комментарий
  [Section1]
  var1 = значение_1
  var2 = значение_2
  [access]
  changed=02.06…

• 

  
  Макрос предназначен для загрузки в Excel списка подпапок заданной папки
  Для каждой из найденных папок производится поиск всех подпапок, и для каждой подпапки из списка выводится необходимая информация (в частности, количество файлов и подпапок, а также размер папки в байтах)
  Для всех ячеек с названиями папок и подпапок макрос проставляет гиперссылки, позволяющие быстро получить доступ к нужному…

• 

  
  Программа предназначена для объединения однотипных отчётов, сформированных программой 1С
  Обрабатываемые отчёты (файлы Excel) хранятся в одной папке, и имеют структуру, изображенную на скриншоте:

  В итоговой таблице, загруженные строки группируются (объединяются) при совпадении значений в 2 полях — «модель» и «название»,
  при этом количество в объединяемых…

• 

  
  Программа предназначена для выборки данных из текстовых файлов, которые были сгенерированны инвентаризационной программой
  В качестве исходных данных для макроса используются текстовые файлы, в которых находится информация о конфигурации компьютеров
  (на каждый компьютер приходится по 3 файла).
  Работу макроса можно разделить на следующие этапы:

  Выбор папки с данными по всем компьютерам…

• 

  
  Программа предназначена для создания отчётов по детализации телефонных звонков (междугородная и международная связь), последующей упаковки созданных детализаций в ZIP архив, и автоматизированной рассылки сформированных писем абонентам.
  При запуске программа ищет в заданной папке исходные файлы с детализацией (упакованные в ZIP файлы DBF), и на основании из этих файлов формирует (по шаблону, с…

• 

  
  Программа предназначена для формирования коммерческих предложений по наружной рекламе.
  В качестве исходных данных выступает файл Excel со списком рекламных объектов.

  Список объектов должен содержать следующую информацию (в отдельных столбцах):

  адрес рекламной конструкции (щита)

  сторона рекламного щита или перетяжки (А, Б, В, и т.п.)

  ссылки на фото и карту рекламной конструкции
  (…

• 
  Вашему вниманию предлагается шестнадцатеричный редактор HexEdit.
  Для чего нужен шестнадцатеричный редактор?
  Для просмотра и корректировки любой информации, содержащейся в файлах.
  Кому это может быть нужно и при каких обстоятельствах?
  Например, тому, кто хочет заглянуть внутрь файла (любой структуры) и что-либо найти (и поправить). НехEdit будет особенно полезен в тех случаях, когда политика…

• Данный код выводит список полных путей файлов, выбранных пользователем в диалоговом окне, отсортированный по дате создания файла:
  Function GetFilenamesCollection(Optional ByVal Title As String = «Выберите файлы для обработки», _
  Optional ByVal InitialPath As String = «c:») As FileDialogSelectedItems
  ‘ функция выводит диалоговое окно выбора…

• 

  Макрос FolderStructure предназначен для вывода в таблице Excel списка файлов и папок (структуры вложенных файлов и подпапок в заданном каталоге).
  Пример результата работы макроса показан на скриншоте (щелкните по нему для увеличения)
   
  В настройках макроса задаются:

  путь к стартовой папке (обязательный параметр)
  Макрос начинает составлять список файлов и папок, начиная с заданной…

Чтение и запись в файл, открытый с помощью оператора Open. Операторы Input, Line Input, Write и функция EOF. Примеры использования в VBA Excel.

Операторы чтения и записи в файл

Оператор Input #

Оператор Input # считывает данные из открытого файла с последовательным доступом и присваивает эти данные переменным.

Оператор Input # используется только с файлами, открытыми в режиме Input или Binary. При прочтении стандартные строковые или числовые значения присваиваются переменным без изменения.

Синтаксис оператора Input #:

Input #Номер_файла, Переменные

Компоненты оператора Input #:

• Номер_файла – обязательный параметр, представляющий из себя номер, присвоенный файлу при открытии с помощью оператора Open.
• Переменные – обязательный параметр, представляющий из себя список переменных, разделенных запятой, которым присваиваются значения, считанные из файла.

Особенности применения оператора Input #:

• Элементы данных в файле должны быть указаны в том же порядке, что и переменные в списке Переменные, и соответствовать им по типу данных. Если переменная числовая, а данные текстовые, этой переменной будет присвоено нулевое значение.
• Если при чтении данных достигнут конец файла, чтение прерывается и возникает ошибка. Для ее предупреждения в коде VBA Excel используется функция EOF.
• Чтобы данные из файла могли быть правильно прочитаны и записаны в переменные с помощью оператора Input #, они должны быть записаны в файл с помощью оператора Write #. Он обеспечивает правильное разделение каждого из полей (элементов) данных.

Оператор Line Input #

Оператор Line Input # считывает одну строку из открытого файла с последовательным доступом и присваивает ее значение строковой переменной.

Оператор Line Input # считывает из файла по одному символу до тех пор, пока не встретится символ возврата каретки (Chr(13)) или последовательность символа возврата каретки и перевода строки (Chr (13) + Chr(10)).

Синтаксис оператора Line Input #:

Line Input #Номер_файла, Переменная

Компоненты оператора Line Input #:

• Номер_файла – обязательный параметр, представляющий из себя номер, присвоенный файлу при открытии с помощью оператора Open.
• Переменная – обязательный параметр, представляющий из себя имя переменной, объявленной как String или Variant, которой присваивается строка, считанная из файла.

Оператор Write #

Оператор Write # записывает данные в файл с последовательным доступом.

Синтаксис оператора Write #:

Write #Номер_файла, [Данные]

Компоненты оператора Write #:

• Номер_файла – обязательный параметр, представляющий из себя номер, присвоенный файлу при открытии с помощью оператора Open.
• Данные – необязательный параметр, представляющий из себя одно или несколько числовых или строковых выражений, разделенных запятой, которые нужно записать в файл.

Особенности применения оператора Write #:

• Данные, записанные с помощью оператора Write #, считываются из файла с помощью оператора Input #.
• Если опустить параметр Данные и добавить запятую после Номер_файла, в файл будет добавлена пустая строка.
• Несколько выражений в списке Данные могут быть разделены точкой с запятой или запятой.
• Числовые данные всегда записываются с точкой в качестве разделителя целой и дробной части.
• Оператор Write # вставляет запятые между элементами и прямые парные кавычки вокруг строк при их записи в файл.
• После записи в файл последнего символа из параметра Данные оператор Write # вставляет символы возврата каретки и перевода строки (Chr (13) + Chr(10)).

Функция EOF

Функция EOF возвращает логическое значение True, когда достигнут конец файла, открытого для последовательного (Input) или произвольного (Random) доступа.

Синтаксис функции EOF:

Номер_файла – это номер, присвоенный файлу при открытии с помощью оператора Open.

Функция EOF используется для предупреждения ошибок, вызываемых попытками выполнить чтение после конца файла. Она возвращает значение False, пока не будет достигнут конец файла.

Примеры чтения и записи в файл

Пример 1
Открытие (или создание, если он не существует) текстового файла для чтения и записи и запись в него одной строки, состоящей из двух текстовых и одного числового значений. Файл с именем myFile1.txt будет создан в той же папке, где расположен файл Excel с кодом VBA.

Sub Test1() Dim ff As Integer ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем (или создаем) файл для чтения и записи Open ThisWorkbook.Path & «myFile1.txt» For Output As ff ‘Записываем в файл одну строку Write #ff, «Дает корова молоко!», _ «Куда идет король?», 25.35847 ‘Закрываем файл Close ff ‘Открываем файл для просмотра ThisWorkbook.FollowHyperlink (ThisWorkbook.Path & «myFile1.txt») End Sub

Строки и число можно предварительно присвоить переменным, объявленным с соответствующими типами данных, и использовать их для записи данных в файл (в строках кода с оператором Write #, как в этом и следующем примерах).

Пример 2
Открытие (или создание, если он не существует) файла без расширения для чтения и записи и запись в него трех строк: двух текстовых и одной в числовом формате. Файл с именем myFile2 будет создан в той же папке, где расположен файл Excel с кодом VBA.

Так как у файла нет расширения, Windows выведет диалоговое окно для выбора открывающей его программы. Выберите любой текстовый редактор или интернет-браузер.

Sub Test2() Dim ff As Integer ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем (или создаем) файл для чтения и записи Open ThisWorkbook.Path & «myFile2» For Output As ff ‘Записываем в файл три строки Write #ff, «Дает корова молоко!» Write #ff, «Куда идет король?» Write #ff, 25.35847 ‘Закрываем файл Close ff ‘Открываем файл для просмотра ThisWorkbook.FollowHyperlink (ThisWorkbook.Path & «myFile2») End Sub

Пример 3
Считываем строку, разделенную на отдельные элементы, из файла myFile1.txt и записываем в три переменные, по типу данных соответствующие элементам.

Sub Test3() Dim ff As Integer, str1 As String, _ str2 As String, num1 As Single ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем файл myFile1.txt для чтения Open ThisWorkbook.Path & «myFile1.txt» For Input As ff ‘Считываем строку из файла и записываем в переменные Input #ff, str1, str2, num1 Close ff ‘Смотрим, что записалось в переменные MsgBox «str1 = « & str1 & vbNewLine _ & «str2 = « & str2 & vbNewLine _ & «num1 = « & num1 End Sub

Попробуйте заменить в этом примере строку Input #ff, str1, str2, num1 сначала на строку Input #ff, str1, затем на строку Line Input #ff, str1, чтобы наглядно увидеть разницу между операторами Input # и Line Input #.

В следующих примерах (4 и 5) замена оператора Input # на Line Input # не приведет ни к каким изменениям, так как данные в строках файла myFile2 не разделены на элементы (поля).

Пример 4
Считываем поочередно три строки из файла myFile2 и записываем в три элемента массива, объявленного как Variant, так как в этот файл ранее были записаны две строки с текстом и одна с числом.

Sub Test4() Dim ff As Integer, a(2) As Variant, i As Byte ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем файл myFile2 для чтения Open ThisWorkbook.Path & «myFile2» For Input As ff ‘Считываем строки из файла и записываем в элементы массива    For i = 0 To 2       Input #ff, a(i)    Next Close ff ‘Смотрим, что записалось в элементы массива MsgBox «a(0) = « & a(0) & vbNewLine _ & «a(1) = « & a(1) & vbNewLine _ & «a(2) = « & a(2) End Sub

Пример 5
Считываем с помощью цикла Do While… Loop все строки из файла myFile2 и записываем построчно в переменную, объявленную как String (число из третьей строки запишется как текст). Для остановки цикла при достижении конца файла используем функцию EOF.

Sub Test5() Dim ff As Integer, a As Variant, b As String ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем файл myFile2 для чтения Open ThisWorkbook.Path & «myFile2» For Input As ff ‘Считываем строки из файла и записываем в элементы массива    Do While Not EOF(ff)       Input #ff, a       b = b & a & vbNewLine    Loop Close ff ‘Смотрим, что записалось в переменную MsgBox b End Sub

---

Предыдущая часть темы об открытии файла для ввода и вывода информации опубликована в статье: Оператор Open (синтаксис, параметры). Смотрите также связанную статью: Функция FreeFile.

Смотрите, как создавать и открывать текстовые файлы с помощью методов CreateTextFile и OpenTextFile. Чтение файла, запись и добавление информации с помощью объекта TextStream.

---

Список файлов в папке

Иногда бывает необходимо заполучить на лист Excel список файлов в заданной папке и ее подпапках. В моей практике такое встречалось неоднократно, например:

• перечислить в приложении к договору на проведение тренинга список файлов из раздаточных материалов для особо щепетильных юристов в некоторых компаниях
• создать список файлов для ТЗ проекта
• сравнить содержимое папок (оригинал и бэкап, например)

Для реализации подобной задачи можно использовать несколько способов.

Способ 1. Скелет из шкафа — функция ФАЙЛЫ

Этот способ использует древнюю функцию ФАЙЛЫ (FILES), оставшуюся в Microsoft Excel с далеких девяностых. Вы не найдете эту функцию в общем списке функций, но для совместимости, она всё ещё остаётся внутри движка Excel, и мы вполне можем её использовать.

Механизм таков:

1. В любую ячейку листа (например, в А1) введём путь к папке, список файлов из которой мы хотим получить.

Обратите внимание, что путь должен оканчиваться шаблоном со звездочками:

• *.* — любые файлы
• *.xlsx — книги Excel (только с расширением xlsx)
• *.xl* — любые файлы Excel
• *отчет* — файлы, содержащие слово отчет в названии

и т.д.

2. Создадим именованный диапазон с помощью вкладки Формулы — далее кнопка Диспетчер имен — Создать (Formulas — Names Manger — Create). В открывшемся окне введем любое имя без пробелов (например Мои_файлы) и в поле диапазона выражение:

=ФАЙЛЫ(Лист1!$A$1)

После нажатия на ОК будет создан именованный диапазон с именем Мои_файлы, где хранится список всех файлов из указанной в А1 папки. Останется их оттуда только извлечь.

3. Чтобы извлечь имена отдельных файлов из созданной переменной, используем функцию ИНДЕКС (INDEX), которая в Excel вытаскивает данные из массива по их номеру:

Если лениво делать отдельный столбец с нумерацией, то можно воспользоваться костылем в виде функции СТРОКИ (ROWS), которая будет подсчитывать количество заполненных строк с начала списка автоматически:

=ИНДЕКС(Мои_файлы; ЧСТРОК($B$3:B3))

Ну, и скрыть ошибки #ССЫЛКА! в конце списка (если вы протягиваете формулу с запасом) можно стандартной функцией ЕСЛИОШИБКА (IFERROR):

=ЕСЛИОШИБКА(ИНДЕКС(Мои_файлы; ЧСТРОК($B$3:B3)); «»)

Важное примечание: формально функция ФАЙЛЫ относится к макро-функциям, поэтому необходимо будет сохранить ваш файл в формате с поддержкой макросов (xlsm или xlsb).

Способ 2. Готовый макрос для ленивых

Если вы знакомы с макросами (не в смысле их программирования, а в смысле копипастинга готовых кодов на VBA), то вам, возможно, отлично зайдёт небольшой макрос, добавляющий в текущую книгу новый пустой лист и выводящий на него список всех файлов с их параметрами из заданной пользователем папки.

Для добавления макроса в вашу книгу нажмите сочетание клавиш Alt+F11, или кнопку Visual Basic на вкладке Разработчик (Developer), в открывшемся окне редактора Visual Basic вставьте новый модуль через меню Insert — Module и скопируйте туда текст этого макроса:

Sub FileList()
    Dim V As String
    Dim BrowseFolder As String
    
    'открываем диалоговое окно выбора папки
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выберите папку или диск"
        .Show
        On Error Resume Next
        Err.Clear
        V = .SelectedItems(1)
        If Err.Number <> 0 Then
            MsgBox "Вы ничего не выбрали!"
            Exit Sub
        End If
    End With
    BrowseFolder = CStr(V)
    
    'добавляем лист и выводим на него шапку таблицы
    ActiveWorkbook.Sheets.Add
    With Range("A1:E1")
        .Font.Bold = True
        .Font.Size = 12
    End With
    Range("A1").Value = "Имя файла"
    Range("B1").Value = "Путь"
    Range("C1").Value = "Размер"
    Range("D1").Value = "Дата создания"
    Range("E1").Value = "Дата изменения"
    
    'вызываем процедуру вывода списка файлов
    'измените True на False, если не нужно выводить файлы из вложенных папок
    ListFilesInFolder BrowseFolder, True
End Sub


Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

    Dim FSO As Object
    Dim SourceFolder As Object
    Dim SubFolder As Object
    Dim FileItem As Object
    Dim r As Long

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.getfolder(SourceFolderName)

    r = Range("A65536").End(xlUp).Row + 1   'находим первую пустую строку
    'выводим данные по файлу
    For Each FileItem In SourceFolder.Files
        Cells(r, 1).Formula = FileItem.Name
        Cells(r, 2).Formula = FileItem.Path
        Cells(r, 3).Formula = FileItem.Size
        Cells(r, 4).Formula = FileItem.DateCreated
        Cells(r, 5).Formula = FileItem.DateLastModified
        r = r + 1
        X = SourceFolder.Path
    Next FileItem
    
    'вызываем процедуру повторно для каждой вложенной папки
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder.Path, True
        Next SubFolder
    End If

    Columns("A:E").AutoFit

    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing

End Sub

Для запуска макроса нажмите сочетание клавиш Alt+F8,или кнопку Макросы (Macros) на вкладке Разработчик (Developer), выберите наш макрос FileList и нажмите кнопку Выполнить (Run). В диалоговом окне выберите любую папку или диск и — вуаля!

Если захотите, чтобы вместо пути к файлу в столбце B выводилась живая гиперссылка, то замените 52-ю строку

Cells(r, 2).Formula = FileItem.Path

на

Cells(r, 2).Formula = «=HYPERLINK(«»» & FileItem.Path & «»»)»

Способ 3. Мощь и красота — надстройка Power Query

Power Query — это очень мощная и при этом бесплатная надстройка для Excel от Microsoft, упрощающая множество задач по загрузке и трансформации данных. В нашей ситуации она тоже может здорово помочь.

Если у вас Excel 2016 или новее, то Power Query уже встроена в Excel по умолчанию, поэтому просто на вкладке Данные выберите команду Создать запрос / Получить данные — Из файла — Из папки (Create Query / Get Data — From file — From folder). Если у вас Excel 2010-2013, то Power Query нужно будет скачать с сайта Microsoft и установить как отдельную надстройку и она появится у вас в Excel в виде отдельной вкладки Power Query. На ней будет аналогичная кнопка Из файла — Из папки (From file — From folder).

В открывшемся окне нужно будет указать папку, содержимое которой мы хотим получить. После нажатия на ОК Power Query обшарит указанную папку и все вложенные подпапки и выдаст на экран окно с предварительным просмотром результатов:

Если внешний вид списка вас устраивает, то можно смело жать внизу кнопку Загрузить (Load), чтобы залить эти данные на новый лист. Если же хочется дополнительно обработать список (удалить лишние столбцы, отобрать только нужные файлы и т.п.), то нужно выбрать команду Изменить / Преобразовать данные (Edit / Transform Data).

Поверх окна Excel откроется окно редактора Power Query, где мы увидим список всех наших файлов в виде таблицы:

Дальше возможны несколько вариантов:

• Если нужны только файлы определенного типа, то их можно легко отобрать с помощью фильтра по столбцу Extension:

  

• Аналогичным образом фильтрами по столбцам Date accessed, Date modified или Date created можно отобрать файлы за нужный период (например, созданные только за последний месяц и т.п.):

  

• Если нужно получить данные не из всех папок, то фильтруем по столбцу Folder Path, чтобы оставить только те строки, где путь содержит/не содержит нужные имена папок:

  

• Там же можно выполнить сортировку файлов по любому столбцу, если требуется.

После того, как необходимые файлы отобраны, можно смело удалить ненужные столбцы, щелкнув по заголовку столбца правой кнопкой мыши и выбрав команду Удалить (Remove column). Это, кстати, уже никак не повлияет на фильтрацию или сортировку нашего списка:

Если в будущем планируется подсчитывать количество файлов в каждой папке (например, для контроля поступивших заявок или подсчета статистики по заявкам), то имеет смысл дополнительно сделать ещё пару действий:

• Щелкните правой кнопкой мыши по столбцу Folder Path и выберите команду Дублировать столбец (Duplicate Column).
• Выделите скопированный столбец и на вкладке Преобразование (Transform) выберите Разделить столбец — По разделителю (Split Column — By delimiter)

Мы получим рядом с нашими данными еще несколько столбцов, где будут продублированы имена вложенных папок — это пригодится нам чуть позже для подсчета статистики с помощью сводной таблицы:

Получившиеся столбцы можно переименовать (Диск, Папка1, Папка2 и т.д.), просто щёлкнув дважды по заголовку каждого.

И, наконец, когда список готов, то его можно выгрузить на лист с помощью команды Главная — Закрыть и загрузить — Закрыть и загрузить в… (Home — Close & Load — Close & Load to…):

Дополнительным бонусом можно сделать еще один столбец с функцией ГИПЕРССЫЛКА (HYPERLINK), которая создаст красивые стрелочки-ссылки для моментального перехода к каждому файлу:

Мелочь, а приятно

И вдвойне приятно, что в будущем, при изменении содержимого исходной папки, достаточно будет просто щелкнуть мышью по нашей таблице и выбрать команду Обновить (Refresh) — и Power Query выполнит всю цепочку запрограммированных нами единожды действий уже автоматически, отобразив все изменения в составе папки.

Ссылки по теме

• Что такое макрос, куда вставлять код макроса на Visual Basic
• Создание резервных копий ценных файлов
• Что такое Power Query и что можно делать с её помощью

Чтение из файлов и запись в файлы

В VBA программисту предоставляется множество инструкций для чтения и записи данных при работе с файлами. Эти инструкции разделяются на три группы в соответствии с тем, при каком типе доступа к файлу они используются: последовательном, произвольном или бинарном.

Инструкции последовательного доступа

Описание инструкций последовательного доступа, используемых для работы с файлами, приведено в табл. 1.11.

Таблица 1.11. Инструкции последовательного доступа к файлу

Ниже приведен пример использования данной функции для считывания из файла первых 10 символов:

Sub WriteToFile()

Open «D:MyTextFile.txt» For Output As 1

‘ Запись данных в файл

Write #1, «Значение», «Value», 154.32

Print #1, «Слово1», «Слово2», 14.28464

Close 1

End Sub

Далее целесообразно привести пример процедуры, в которой осуществляется чтение записанных данных из файла:

Sub ReadFromFile()

Dim strVal1, strVal2, dblNumber

Dim strString

Open «D:MyTextFile.txt» For Input As 1

‘ Чтение данных из файла

Input #1, strVal1, strVal2, dblNumber

Line Input #1, strString

Close 1

End Sub

Кроме приведенных в табл. 1.11 инструкций, в VBA имеется встроенная функция Input, позволяющая считывать из файла заданное количество символов:

Input(Количество_символов, [#]Дескриптор)

Ниже приведен пример использования данной функции для считывания из файла первых 10 символов:

Sub TestInput()

Dim strText As String

Open «D:MyTextFile.txt» For Input As 1

» Чтение из файла первых 10 символов

strText = input(10, 1)

Close 1

End Sub

Инструкции произвольного доступа

При произвольном (Random) доступе файл представляется как совокупность записей, имеющих постоянную длину. Именно запись при данном типе доступа является элементарной единицей информации, которую можно считывать из файла или записывать в файл. Каждая запись имеет свой номер (нумерация начинается с единицы). Для работы с файлами при использовании произвольного доступа в VBA реализованы инструкции Put и Get для записи и чтения информации:

Put [#]Дескриптор, [Номер_записи], Переменная

Get [#]Дескриптор, [Номер_записи], Переменная

При выполнении инструкции Put значение переменной Переменная помещается в файл на место записи с номером Номерзаписи. Если номер записи не указывается, то данные помещаются в текущую запись файла.

Инструкция Get позволяет считать значение записи с номером Номерзаписи в переменную Переменная. Если номер записи не указан, то считывается текущая запись файла.

Рассмотрим пример, в котором две структуры сначала записываются в файл с помощью инструкции Put, а потом считываются из того же файла, но в обратном порядке:

Type Record

intVal As Integer

strName As String * 100

End Type

Sub TestRandomAccess()

Dim rec1 As Record, rec2 As Record

‘ Заполнение rec1 и rec2 значениями …

Open «D:MyRandomAccessFile.txt» For Random Access Read Write _

As 1 Len = Len(rec1)

‘ Запись данных в файл

Put 1, , rec1

Put 1, , rec2

‘ Теперь считывание данных из файла

Get 1, 2, rec2

Get 1, 1, rec1

Close 1

End Sub

Инструкции бинарного доступа

Бинарный (Binary) доступ к файлу по своей сути идентичен произвольному доступу с тем лишь различием, что запись в файле имеет длину 1 байт. При бинарном доступе к файлу используются те же инструкции Put и Get, что и при произвольном доступе. Также при бинарном доступе для чтения определенного количества байт может быть использована функция Input, о которой было рассказано выше.

Одной из важнейших составляющих любого языка программирования является способность считывать и записывать информацию из файлов.
Стандартно это называется функциями низкого уровня (Low Level) и в полном объеме представлено в VBA.
Кстати, именно эта особенность и является основой опасности макросов.

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

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

P.S.! Завершение переработки материалов разработчика приводит к совершенно неутешительным выводам.
Материала по этой теме всегда было очень мало, да и качество оставляло желать лучшего.
Теперь же он стал «обструганным» под непонятный стандарт, разорванным в несвязанное словоизвержение и напичканным примерами,
половина из которых только запутывает ситуацию, а вторая — ничего не иллюстрирует.
Ну, или почти так.

Работа с файлами, дисками и папками, путь

Логика изложения основана на том, что можно сделать с существующими объектами, а уже потом — как создать новый.
Поскольку многие команды распространяются не только на работу с каталогами, но и на файлы, полное изложение приводится именно здесь.

Все, перечисленное здесь, не имеет прямого отношения к низкоуровневым функциям, но без этой информации работать нельзя в принципе.

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

CurDir

Определение текущей папки.

Синтаксис

CurDir [(диск)]

Из синтаксиса можно понять (или нет) достаточно многое.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

Перечисленное не дает однозначного ответа на возникающие вопросы, но является основой для таковых.
Частичные решения есть в разделе Примеры.

ChDrive

Инструкция для смены текущего диска (ChDrive) работает довольно примитивно. Так, вариант

ChDrive «D»

определит текущим диском диск «D:». Из примера видно, что приводится только литерал, без двоеточия.

ChDir

Изменяет текущий каталог или текущую папку

Синтаксис

Chdir <путь>

Внимание! Изменяется текущая папка на указываемом диске, а не сам диск.
Для смены диска потребуется команда ChDrive.

В значении пути можно использовать обозначения относительного перемещения.
Например,

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

Dir

Функция возвращает строку (String) с именем обнаруженных на диске файла, папки или подпапки.
Если объект файловой системы обнаружен не будет, возвратится пустая строка.

Синтаксис

Dir [(<путь>, [<атрибуты>])]

В имени можно использовать знаки подстановки маски файла (* и ?).

Передача в качестве аргумента пустой строки возвращает список всех файлов и папок.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

Атрибуты (копия из справки)

Константа	Значение	Описание
vbNormal	0	Файлы без атрибутов (Значение по умолчанию.)
vbReadOnly	1	В дополнение к файлам без атрибутов определяет файлы, доступные только для чтения
vbHidden	2	В дополнение к файлам без атрибутов определяет скрытые файлы
vbSystem	4	В дополнение к файлам без атрибутов определяет системные файлы
vbVolume	8	Определяет метку тома, то есть имя логического диска (не букву!). Если указан какой-либо другой атрибут, параметр vbVolume игнорируется
vbDirectory	16	В дополнение к файлам без атрибутов определяет каталоги (папки)

Из контекста описания понятно, что атрибуты могут суммироваться.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

Name

Оператор Name переименовывает файл или папку и/или перемещает их в новое место.

Синтаксис

Name <oldpathname> As <newpathname>

При этом

• Обрабатываются только уже существующие объекты.
• Файл может быть перемещен на другой диск.
• Файлы, открытые низкоуровневыми процедурами, надо предварительно закрыть.
• Перемещение папок и подпапок возможно только в пределах логического диска.

MkDir

Создает новый каталог или папку.

Синтаксис

Mkdir <путь>

Если диск не указан, новые каталог или папка создаются на текущем диске.
Имя присваивается с учетом регистра символов.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

RmDir

Удаляет существующую директорию или папку.

Синтаксис

RmDir <путь>

Невозможно удалить папку, содержащую файлы, так что следует вначале удалить их, используя команду Kill.
Также этой командой нельзя удалить файл.

Kill

Удаляет файлы с диска.

Синтаксис

Kill <путь>

В качестве пути указывается строка, содержащая имя одного или нескольких файлов, предполагаемых к удалению.
Строка может содержать любой фрагмент пути, начиная от логического диска, то есть относительный или абсолютный.

В имени можно использовать знаки подстановки маски файла (* и ?).

Так как команда удаляет только файлы, для удаления папок следует воспользоваться командой RmDir.

SetAttr

Устанавливает атрибуты файла.

Синтаксис

SetAttr <имя файла>, <атрибуты>

Оба параметра являются обязательными. Имя файла может содержать путь.

Нельзя изменять атрибуты у открытых файлов!

Атрибуты:

Константа	Значение	Описание
vbNormal	0	Без атрибутов (по умолчанию)
vbReadOnly	1	Только для чтения (Read-only)
vbHidden	2	Скрытый файл (Hidden)
vbSystem	4	Системный файл (System)
vbArchive	32	Файл изменен после последнего резервного копирования

Атрибуты при указании могут суммироваться.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

Низкоуровневые функции

Рассуждая здраво, практически невозможно сформировать однозначную последовательность изложения, так как тогда мы упремся в проблему яйца и курицы.
Даже понимание того, что прежде чем считывать файл, он должен быть создан не очень помогает: чтение выполняется намного чаще.

Идентификатор файла

Основным моментом для работы с обсуждаемым функционалом является то, что каждому файлу, над которым производятся действия, обязан быть присвоен целочисленный идентификатор (FileNumber) типа Byte.
Таким образом, может быть открыто до 511 файлов (1–511). По умолчанию используется лишь 255.
Все обращения к файлам (чтение и запись) производятся только(!) через идентификатор, предваряемый знаком диеза, например, #1.

Его должен задать программист, но делать это вручную допустимо только для простых ситуаций. Лучше воспользоваться следующей функцией

FreeFile [(RangeNumber)]

где RangeNumber — 0 (1–255) или 2 (256–511).

Простейший вариант обращения (запроса) к функции выглядит так:

MyFileNum = FreeFile

Далее по тексту будет использоваться именно выделенная красным переменная, содержащая получаемый ID (для упрощения записи).
Если не будет заявлено другое или использовано явное указание.

И еще раз, для более четкого понимания. В небольших проектах и программах будет более чем оправдано непосредственное указание идентификатора в командах: #1, #2…

Команда Open #

Открывает файл для операций ввода/вывода (input/output, I/O).

Синтаксис

Open <имя файла> For <mode> [Access <вид доступа>] [<lock>] As [#]FileNumber [Len = <RecLength>]

Здесь имя файла определяет имя, которое может содержать путь;
mode указывает режим открытия файла: Append (добавление), Binary (двоичный), Input (чтение), Output (запись) либо Random (случайный) (см. ниже);
Access определяет вид доступа: Read (чтение), Write (запись), Read Write (чтение и запись);
lock ключевое слово, определяющее доступность файла для других процессов: Shared, Lock Read, Lock Write или Lock Read Write;
[#]FileNumber заменяется на числовой идентификатор файла, используемый для последующей работы функций.
Len определяет размер записи (≤32767 (байт)), необходимый для внесения информации в файл с помощью Put #.

Если указываемый на запись файл отсутствует, то он будет создан.
Естественно, попытка чтения несуществующего файла закончится ошибкой (см. Dir).

Описание команды упрощено!

Команда Close #

После завершения работы файл должен быть закрыт. Иначе какой-либо доступ к нему может быть заблокирован (в примитивном понимании и без дополнительного обсуждения).
Для этого используется следующая команда:

Close [FileNumberList]

В качестве параметра передается номер файла, номера файлов через запятую или ничего. В последнем случае закроются все открытые файлы.

Примеры

	Close ' Закрыть все открытые файлы
	Close #1 ' Закрыть файл с идентификатором #1
	Close #1, #7 ' Закрыть два файла (с идентификаторами #1 и #7)
	Close #ProjID ' Закрыть файл с идентификатором, сохраненным в переменной памяти ProjID

См. также Reset.

Reset

Закрывает все файлы, открытые с помощью оператора Open, записывая содержимое их буферов на диск.

По существу, дублирует команду Close без атрибутов.

Чтение и запись

Как уже сказано выше, команда Open # позволяет открыть файл для использования в разных режимах, которые можно разделить на три группы.

• Последовательный (Sequential) доступ (режимы Input, Output и Append) используется для записи в текстовые файлы, например, журналы ошибок и отчеты.
• Прямой или произвольный доступ (Random) используется для считывания и записи данных в файле без его закрытия.
  Файлы с прямым доступом сохраняются данные в записях, что ускоряет нахождение требуемой информации.
• Двоичный доступ (режим Binary) используется для считывания или записи любого байта в файле, например, при сохранении или отображении растрового рисунка.

Сводка стандартных операторов, используемых для чтения и записи в разных режимах.

Тип доступа	Запись данных	Чтение данных
Последовательный (Sequential)	Print #, Write #	Input #
Произвольный (Random)	Put	Get
Двоичный (Binary)	Put	Get

Write #

Записывает данные в последовательный файл в структурированном виде.

Синтаксис

Write #FileNumber, [OutputList]

Необязательный параметр OutputList представляет одно или несколько числовых, или строковых выражений через запятую, которые нужно записать в файл.
В переводе на обыденный язык, каждая строка подобного результирующего файла является перечнем значений с разделителем, каждое из которых записано по строгим правилам.
Фактически мы получаем известный большинству CSV-файл.
Чтобы не возникало неожиданностей при считывании, следует очень четко придерживаться правил.

Отсутствие OutputList (запятая в команде остается!) приводит к записи пустой строки.

Некоторые важные правила и особенности:

• В качестве разделителя в outputlist можно использовать пробел, точку с запятой или запятую.
  По очень многим соображениям настоятельно рекомендую использовать только точку с запятой.
• Числовые данные всегда записываются с помощью точки в качестве разделителя целой и дробной части.
• Вся информация записывается в особом виде, зависящем от типа данных и знание об этом создает довольно серьезную путаницу.
  Важно четко разделить информацию и понимать, что OutputList записывается в формате VBA.
  Никакие последующие «причуды форматирования» нас не касаются.
  Знать их нужно, чтобы находить и исправлять ошибки, либо для вывода информации, условно говоря, вручную.
  То есть без помощи, которую нам предоставляет функция Write #.
• Из предыдущего тезиса неизбежно вытекает, что некоторые данные проще выводить, предварительно записав их значение в переменную.
  Например, дату или код ошибки.
  Естественным образом это складывается для информации, получаемой посредством вычислений.
• Сохранение (запись) данных:
    Строка — заключается в кавычки
    Число — цифры без кавычек
    Логические — #FALSE# и #TRUE#
    Null — #FALSE# и #TRUE#
    Дата — в универсальном формате даты
    Ошибка — #ERROR ErrorCode#, где ErrorCode является соответствующим номером
• Нельзя использовать строки, уже содержащие в себе кавычки.
• В конец файла (после записи последнего символа) будет вставлен символ новой строки (Chr(13) + Chr(10)).

Примеры (все данные записываются в ранее открытый файл с идентификатором #1)

   Write #1, 'Запись пустой строки
   Write #1, False; True 'Запись истинного и ложного значений
   Write #1, Tr(1); Tr(2); Tr(3) 'Запись значений трех последовательных элементов массива
   Write #1, Now; 128; True; "Текст"; MyVar 'Запись разнородных значений

Данные, записанные с помощью Write #, обычно считываются из файла с помощью оператора Input #.
Именно во взаимодействии этой пары и заключен весь смысл.

В подобном файле крайне удобно хранить настройки для работы проекта, которые пользователь может изменить в соответствии со своими потребностями.
Для передачи подобных макросов на сторону следует предусматривать (встраивать) возможности восстановления файлов, если пользователь их удалит или отредактирует вручную.

С другой стороны, набор множества таких строк представляет собой своего рода таблицу базы данных.

Print #

Записывает отформатированные данные в последовательный файл.

Синтаксис

Print #FileNumber, [OutputList]

OutputList — выражение или список выражений, которые необходимо вывести.

Его синтаксис

[{Spc(n) | Tab [(n)]}] [выражение] [позиция]

См. Spc #, Tab #, а также Width #.
Выражение может быть числовым или строковым, «позиция» определяет столбец, где будет начало вывода.

С учетом специфического применения оператора, детали его действия опущены.

Spc

Функция используется с оператором Print # или методом Print для позиционирования выходных данных. Аналог Space().

Синтаксис

Spc(n)

Параметр n указывает, сколько пробелов будет возвращено. При переполнении строки, излишек переходит на следующую.

Если не умничать, то функция будет работать только с моноширинным шрифтом.

Пример

	Print #1, "Последующий текст начнется через 10 пробелов"; Spc(10); "вот он!"

Tab #

Используется с оператором Print # или методом Print для позиционирования выходных данных.

Синтаксис

Tab[(n)]

Вставляет табулятор. Если параметр не указан, печать смещается к следующей позиции (шаг равен 14 символам).
Наличие параметра перемещает к позиции с указанным номером. А если она уже была, то на эту позицию, но следующей строки.

Ширина (длина строки) определяется значением Width #.

Width #

Оператор Width # назначает ширину строки вывода для файла, открытого с помощью оператора Open #.

Синтаксис

Width #FileNumber, width

Если значение width равно 0, длина строки является неограниченной. Оно используется по умолчанию.

Input #

Читает строку со структурированными данными из открытого последовательного файла и сохраняет эти данные в переменных.

Синтаксис

Input #FileNumber, VarList

Обычно данная инструкция считывает файлы, созданные посредством Write #.
Использовать ее следует только с файлами, открытыми в режиме Input или Binary.

Параметр VarList представляет собой перечисленный список переменных, в которые сохраняются считываемые данные.

Примеры

	Input #2, Var1, Var2, Var3

Line Input #

Считывает одну строку из открытого последовательного файла и присваивает ее переменной типа String или Variant.

Синтаксис

Line Input #FileNumber, VarName

Оператор следует отнести к самому востребованному варианту считывания данных из файла.
Считанная строка может быть подвергнута любой обработке.

Get #

Считывает данные из открытого файла на диске в переменную.

Синтаксис

Get [#]FileNumber, [RecNumber], VarName

Необязательный параметр RecNumber типа Variant (Long) указывает на номер записи (для файлов, открытых в режиме Random)
или байтовое число (для файлов, открытых в режиме Binary), с которого начинается считывание. При его отсутствии, запятая сохраняется
Результат сохраняется в переменную VarName.

Длинное и глупое описание работы функции можно свести к следующему.

1. Читаем описание Put #.
2. Если вы не знаете длину записи (Len), то не сможете правильно открыть файл и, как следствие, правильно прочитать его.
   Единственным адекватным выходом будет анализ исходного файла «глазами».

Данные, для считывания с помощью Get, обычно записываются в файл с помощью Put #.

Примеры

	Get #4,,BufferVar

Put #

Записывает данные из переменной в файл на диске.

Синтаксис

Put [#]FileNumber, [RecNumber], VarName

Необязательный параметр RecNumber типа Variant (Long) указывает на номер записи (для файлов, открытых в режиме Random)
или байтовое число (для файлов, открытых в режиме Binary), с которого начинается запись.
Если его не использовать, то производится запись следующего номера, после последнего, определенного обращением к любому из операторов
Get #, Put или Seek #.

Особенности для файлов, открытых в режиме Random:

1. Параметр Len, задаваемый при открытии файла, играет ключевую роль.
   Во-первых, длина записи не может его превышать.
   Во-вторых, если запись меньше, то она дополняется пробелами до размера Len.
2. Если записываемая переменная является строкой переменной длины, оператор Put записывает 2-байтовый дескриптор c длиной строки, а затем переменную.
   То есть длина записи, указанная предложением Len в операторе Open, должна быть по крайней мере на 2 больше, чем фактическая длина строки записываемых данных.
3. Если записываемая переменная имеет числовой подтип Variant, оператор Put записывает дополнительно 2 байта, указывающие на тип. См. п.2.
4. Если записываемая переменная имеет строковый подтип Variant, оператор Put записывает дополнительно 2 байта, указывающие на тип и еще 2 — на длину.
   Соответственно, значение Len должно быть увеличено на 4.
5. Если записываемая переменная является динамическим массивом пользовательского типа, Put записывает дескриптор, длина которого равна 2 плюс в 8 раз больше числа измерений,
   то есть 2 + 8 * число измерений. То есть, для одномерного массива — 10 (2+8*1), для двумерного — 18 (2+8*2) и т.д.
   Плюс размер массива, описать который нормально сотрудники Microsoft не удосужились.
6. Если записываемая переменная является массивом фиксированного размера, оператор Put записывает только данные, без дескриптора.
7. При любом другом типе переменной все также, как и в п.6.

Особенности для файлов, открытых в режиме Binary (в дополнение к особенностям Random):

• Параметр Len, задаваемый при открытии, не действует. Значения переменных записываются последовательно, без заполнителя.
• Для любого другого массива, чем массив типа, определяемого пользователем, оператор Put записывает только данные, без дескриптора.
• Оператор Put записывает строки переменной длины, не являющиеся элементами типов, определяемых пользователем, с числом байтов равных числу знаков в строке.

Данные, записанные с помощью Put, обычно считываются из файла с помощью Get #.

Seek #

Задает положение следующей операции чтения/записи в файле, открытом с помощью оператора Open #.

Синтаксис

Seek [#]FileNumber, position

Параметр position указывает начальную точку чтения и должен располагаться в диапазоне 1—2 147 483 647.

Его работа тесно связана с использованием Get # и Put #.

По существу, оператор назван неудачно, так как ничего не ищет, а просто перемещается по команде.

Примеры

Содержание
Создание файла
Проверка существования файла
Запись информации в новый файл
Добавление информации в существующий файл
Построчное считывание файла
Назначение текущей папки

Здесь не стоит разговаривать о микроскопических программах, хотя из приводимых примеров можно извлекать блоки и использовать их в качестве заготовок.

Также не будет полноценных примеров для бездумного копирования.

Многие ситуации содержат схожие требования, но идеальное решение должно состоять из множества функций.
Сейчас их делать не очень хочется, но это запланировано в перспективе.

В любом случае, все примеры полностью работоспособны.

Принципиально важен факт документирования функции с точки зрения возвращаемых значений.
Равно как и описание передаваемых параметров.

Для большинства представляемых примеров используются следующие положения, если не указано иное.

• Путь должен содержать литерал диска (C:…).
• Путь не должен заканчиваться косой чертой: «C:ab».
• Если путь и файл передаются отдельно, то имя файла не должно содержать пути.
• Все параметры являются обязательными и не могут быть пустыми. Последнее обстоятельство не проверяется.

Создание файла

Данное действие специально вынесено в отдельный заголовок, так как будет базовым для примеров, когда файла ещё нет.
Оно имеет множество особенностей, включая фатальные для хранящейся информации.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

Ещё один момент. Добавим программу (фрагмент), которая будет запускать процесс.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

Проверка существования файла

Имеет прикладное назначение не только в случае использования низкоуровневых функций.
По существу, нужно в любом программном проекте в качестве условия его запуска.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

Запись информации в новый файл

Разумеется, что в этой ситуации файл нужно не открыть, а создать.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

….

Добавление информации в существующий файл

Казалось бы…
Но первым действием должна быть проверка его наличия, если это не было сделано в программе ранее.

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

….

Построчное считывание файла

---

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

---

….

Назначение текущей папки

Если работа с проектами так или иначе связана с файлами, хранящимися в одной папке, самым простым вариантом будет назначение ее текущей.

Представленный пример имеет формат глобальной функции (доступной для любого проекта), производящей множество проверок.

---

Доступ к размещенным в этом месте материалам ограничен и предоставляется следующим категориям:
1. Студент I/II курса ВХК РАН. 2. Бывший студент ВХК РАН. 3. Подготовка к ОГЭ. 4. Подготовка к ЕГЭ. 5. VIP-пользователь. 6. Благотворитель.

---

В принципе, возможна как оптимизация программы, так и ее модернизация или приспособление для других нужд.