Vba excel создать файл: Создание текстовых файлов по таблице Excel

Создание текстовых файлов по таблице Excel

Макрос предназначен для создания текстовых файлов в кодировке UTF-8.

Исходными данными является таблица Excel из 12 столбцов.

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

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

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

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

Пример макроса смотрите в прикреплённом файле.

Код макроса, создающего папки, подпапки, и текстовые файлы по данным из таблицы Excel:

Sub СозданиеТекстовыхФайлов()
    On Error Resume Next
    Dim cell As Range, ra As Range
    Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp)).Resize(, 11)
    arr = ra.Value    ' считываем данные в массив

    Set FSO = CreateObject("scripting.filesystemobject")
    ' создаём главную папку
    BaseFolder$ = ThisWorkbook.Path & "\Товар по группам\": MkDir BaseFolder$
 
    ' перебираем все строки
    For i = LBound(arr) To UBound(arr)
        ' создаём папку для очередной строки (если папки ещё нет)
        Folder$ = BaseFolder$ & arr(i, 7) & "\"    ' имя папки - в столбце G
        MkDir Folder$
 
        ' формируем имя создаваемого текстового файла
        Filename$ = Folder$ & Trim(arr(i, 2)) & ".txt"
 
        ' создаём файл в кодировке Unicode
        Set ts = FSO.CreateTextFile(Filename$, True, True)
        ts.Write Trim(arr(i, 10))    ' данные в файл - из ячейки 10-го столбца
        ts.Close
 
        ' если текстовый файл нужен в другой кодировке
        ChangeFileCharset Filename$, "utf-8"
    Next i
 
    Set ts = Nothing: Set FSO = Nothing
    MsgBox "Файлы созданы, и помещены в папку" & vbNewLine & BaseFolder$, vbInformation, "Готово"
 
    ' открываем папку с файлами
    CreateObject("wscript.shell").Run "explorer.exe /e, """ & BaseFolder$ & """"
End Sub

VBA Excel. Создание и открытие документов Word

Создание нового документа Word или открытие существующего из кода VBA Excel. Методы Documents.Add и Documents.Open. Сохранение и закрытие документа.

Работа с Word из кода VBA Excel
Часть 2. Создание и открытие документов Word
[Часть 1] [Часть 2] [Часть 3] [Часть 4] [Часть 5]

Создание нового документа Word

Новый документ Word создается из кода VBA Excel с помощью метода Documents.Add:

Переменную myDocument можно объявить с типом Object, но тогда не будет ранней привязки к типу Word.Document и подсказок при написании кода (Auto List Members).

Открытие существующего документа

Существующий документ Word открывается из кода VBA Excel с помощью метода Documents.Open:

Замените в этой процедуре строку “C:\Документ1.docx” на адрес своего файла.

Сохранение и закрытие документа

Сохранение нового документа

Чтобы сохранить из кода VBA Excel новый документ Word, используйте метод SaveAs объекта Document:

Замените “C:\Документ2.docx” на путь к нужному каталогу с именем файла, под которым вы хотите сохранить новый документ.

Сохранение изменений в открытом документа

Сохраняйте изменения в существующем документе с помощью метода Document.Save или параметра SaveChanges метода Document.Close:

Закрытие любого сохраненного документа

Метод Document.Close закрывает документ, но не приложение. Если работа с приложением закончена, оно закрывается с помощью метода Application.Quit.

Программы и макросы Excel в категории Создание файлов

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

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

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

Оператор Input #

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

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

Синтаксис оператора 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 #:

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

Оператор 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.

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

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

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

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

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

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

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

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

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

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

VBA Excel. Создание, копирование, перемещение папок

Создание, копирование, перемещение и удаление папок в VBA Excel методами объекта FileSystemObject. Удаление папок с помощью оператора RmDir.

Создание папки (метод CreateFolder)

CreateFolder – это метод объекта FileSystemObject, предназначенный для создания новой папки.

Синтаксис

Параметр foldername можно в скобки не заключать.

Параметры

Если папка, указанная параметром foldername уже существует, произойдет ошибка.

Копирование папки (метод CopyFolder)

CopyFolder – это метод объекта FileSystemObject, предназначенный для копирования папки из одного расположения в другое.

Синтаксис

Параметры

Перемещение папки (метод MoveFolder)

MoveFolder – это метод объекта FileSystemObject, предназначенный для перемещения папки из одного расположения в другое.

Синтаксис

Параметры

Удаление папки (метод DeleteFolder)

DeleteFolder – это метод объекта FileSystemObject, предназначенный для удаления папки с диска со всем ее содержимым.

Синтаксис

Параметры

Метод DeleteFolder удаляет папки независимо от того, есть ли в них содержимое или нет.

Удаление папки (оператор RmDir)

RmDir – это оператор, предназначенный для удаления пустых папок и каталогов.

Синтаксис

• path – строковое выражение, определяющее каталог или папку, которую необходимо удалить.

Если удаляемый каталог или папка содержит файлы, произойдет ошибка.

Примеры

Пример 1
Создание папок в VBA Excel с помощью метода CreateFolder:

В результате работы этого кода на диске C будет создана Папка главная и в ней еще 5 папок, которые будем использовать для копирования, перемещения и удаления.

Пример 2
Копирование папок в VBA Excel с помощью метода CopyFolder:

Код этого примера копирует папки следующим образом: Папка 2 в Папка 1, а Папка 3 в расположение \Папка 1\Папка 2\.

Пример 3
Перемещение папок в VBA Excel с помощью метода MoveFolder:

Пример 4
Удаление папок в VBA Excel с помощью метода DeleteFolder:

Пример 5
Удаление пустой папки в VBA Excel с помощью оператора RmDir:

Создание документа Word из таблицы Excel

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

(без использования функции слияния в Word)

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

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

Настройки макроса задаются в коде:

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

При нажатии кнопки запуска макрос на основе шаблона dot создаёт очередной файл, и в этом документе производит замену текста («кода поля») из первой строки файла Excel на значение поля (из очередной строки с данными файла Excel)

Папка для сформированных документов создаётся автоматически, и содержит в имени текущую дату и время
(например, созданная папка будет называться Договоры, сформированные 01-05-2011 в 15-03-24)

Имена создаваемых файлов формируются объединением полей фамилия, имя и отчество, с добавлением расширения doc

PS: Макрос был написан достаточно давно, когда я только начинал изучать VBA, — так что код недостаточно универсален.

Но, в качестве примера, пожалуй, подойдёт (если вам нужен более функциональный макрос, воспользуйтесь универсальной надстройкой (см. ниже))

Ознакомьтесь также с универсальной надстройкой формирования документов по шаблонам,
которая может делать всё тоже самое, что и эта программа,
только в качестве шаблонов могут выступать, помимо документов Word, ещё текстовые файлы, и книги Excel.

В надстройке — много возможностей, и полезных дополнений: склонение ФИО в родительный и дательный падежи, автоматический вывод на печать (с заданным количеством копий), размещение созданных файлов в разных папках, создание и рассылка писем со вложениями, и множество других полезных функций.

По вышеприведённой ссылке программа заполнения документов Word из Excel доступна для бесплатного скачивания.

Внимание: просьбы о доработке макроса, описанного в этой статье, не принимаются.

Есть новая (универсальная) версия, — в которой уже есть практически всё, что может понадобиться.

Файловые функции VBA | Excel для всех

Главная » Функции VBA »

28 Апрель 2011       Дмитрий       75980 просмотров

• CurDir() — функция, которая возвращает путь к каталогу(для указанного диска), в котором по умолчанию будут сохраняться файлы:
  

  Dim sCurDir As String sCurDir = CurDir("D")

  Dim sCurDir As String
  sCurDir = CurDir(«D»)

• Dir() — позволяет искать файл или каталог по указанному пути на диске. Пример использования можно посмотреть в статье: Просмотреть все файлы в папке
• EOF() — при операции записи в файл на диске эта функция вернет True, если вы находитесь в конце файла. Обычно используется при работе с текстовыми файлами — .txt. При сохранении книг Excel лучше использовать стандартные методы: Save и SaveAs.
• Error() — позволяет вернуть описание ошибки по ее номеру. Генерировать ошибку нужно при помощи метода RaiseError() специального объекта Er.
• Print — записывает в открытый файл указанный текст. Далее будет приведен пример использования данной функции
• FreeFile() — позволяет определить номер следующего свободного файла, который можно использовать как номер файла при его открытии методом Open. Предпочтительно применять именно этот метод определения номера файла(вместо статичного #1), чтобы не было неоднозначности обращения к файлам. Ниже приведены примеры применения данной функции при обращении к файлам
• FileAttr() — позволяет определить, как именно был открыт файл в файловой системе: на чтение, запись, добавление, в двоичном или текстовом режиме и т.п. Применяется для работы с текстовыми файлами, открытыми при помощи Open "C:\Text1.txt" For [] As #1
  Открыть файл можно несколькими способами, приведу примеры наиболее распространенных вариантов:
  • Input() — открывает текстовый файл на чтение. Т.е. таким методом можно открыть файл и вытянуть из него данные. Например, чтобы считать информацию из файла C:Text1.txt и вывести ее в окно Immediate можно применить такой код:
    

    Dim MyChar Open "C:\Text1.txt" For Input As #1 'Открываем файл функцией Open() на чтение(Input) Do While Not EOF(1) 'пока файл не кончился ' Получаем по одному символу и добавляем его к предыдущим MyChar = MyChar & Input(1, #1) Loop Close #1 ' Закрываем файл 'Выводим его содержание в окно Immediate '(отобразить Immediate: Ctrl+G в окне редактора VBA) Debug.Print MyChar 'или в MsgBox MsgBox MyChar, vbInformation, "www.excel-vba.ru"

    Dim MyChar
    Open «C:\Text1.txt» For Input As #1 ‘Открываем файл функцией Open() на чтение(Input)
    Do While Not EOF(1) ‘пока файл не кончился
    ‘ Получаем по одному символу и добавляем его к предыдущим
    MyChar = MyChar & Input(1, #1)
    Loop
    Close #1 ‘ Закрываем файл
    ‘Выводим его содержание в окно Immediate
    ‘(отобразить Immediate: Ctrl+G в окне редактора VBA)
    Debug.Print MyChar
    ‘или в MsgBox
    MsgBox MyChar, vbInformation, «www.excel-vba.ru»

  • Ouput() — метод открывает файл для записи. Например, чтобы записать в файл строку, содержащую все ячейки в выделенном диапазоне, можно использовать такой код:
    

    Sub SelectionToTxt() Dim s As String, rc As Range Dim ff 'запоминаем все значения из выделенной строки в строку For Each rc In Selection If s = "" Then 'если пока ничего не записали - присваиваем только значение ячейки s = rc.Value Else 'если уже записано - добавляем через TAB s = s & vbTab & rc.Value End If Next ff = FreeFile 'Открываем текстовый файл 'если файла нет - он будет создан Open "C:\Text1.txt" For Output As #ff 'записываем значение строки в файл Print #ff, s Close #ff ' Закрываем файл End Sub

    Sub SelectionToTxt()
    Dim s As String, rc As Range
    Dim ff
    ‘запоминаем все значения из выделенной строки в строку
    For Each rc In Selection
    If s = «» Then ‘если пока ничего не записали — присваиваем только значение ячейки
    s = rc.Value
    Else ‘если уже записано — добавляем через TAB
    s = s & vbTab & rc.Value
    End If
    Next
    ff = FreeFile
    ‘Открываем текстовый файл
    ‘если файла нет — он будет создан
    Open «C:\Text1.txt» For Output As #ff
    ‘записываем значение строки в файл
    Print #ff, s
    Close #ff ‘ Закрываем файл
    End Sub

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

  • Append() — метод открывает файл для записи, но в отличии от Output записывает данные в конец файла, а не перезаписывает текущие данные. Например, код добавления выделенных ячеек как одной строки в имеющийся файл будет выглядеть так:
    

    Sub SelectionToTxt_Add() Dim s As String, rc As Range Dim ff 'запоминаем все значения из выделенной строки в строку For Each rc In Selection If s = "" Then 'если пока ничего не записали - присваиваем только значение ячейки s = rc.Value Else 'если уже записано - добавляем через TAB s = s & vbTab & rc.Value End If Next ff = FreeFile 'Открываем текстовый файл 'если файла нет - он будет создан Open "C:\Text1.txt" For Append As #ff 'записываем значение строки в файл Print #ff, s Close #ff ' Закрываем файл End Sub

    Sub SelectionToTxt_Add()
    Dim s As String, rc As Range
    Dim ff
    ‘запоминаем все значения из выделенной строки в строку
    For Each rc In Selection
    If s = «» Then ‘если пока ничего не записали — присваиваем только значение ячейки
    s = rc.Value
    Else ‘если уже записано — добавляем через TAB
    s = s & vbTab & rc.Value
    End If
    Next
    ff = FreeFile
    ‘Открываем текстовый файл
    ‘если файла нет — он будет создан
    Open «C:\Text1.txt» For Append As #ff
    ‘записываем значение строки в файл
    Print #ff, s
    Close #ff ‘ Закрываем файл
    End Sub

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

  sFileDateTime = FileDateTime("C:\Text1.txt")

  sFileDateTime = FileDateTime(«C:\Text1.txt»)

• FileLen() — позволяет определить длину указанного файла в байтах:
  

  MsgBox FileLen("C:\Text1.txt") & " bites", vbInformation, "www.excel-vba.ru"

  MsgBox FileLen(«C:\Text1.txt») & » bites», vbInformation, «www.excel-vba.ru»

• GetAttr() — возможность обратиться к файлу к файловой системе и получить информацию об его атрибутах (скрытый, доступен только для чтения, архивный и т.п.)
• InputB() — позволяет указывать количество байт, которые надо считать из файла. Альтернатива методу Open в случаях, когда необходимо считывать данные не по конкретным строкам, а именно побайтово.
• Loc() — от Location, то есть местонахождение — возвращает число, которое определяет текущее место вставки или чтения в открытом файле.
• Seek() — очень похожа на функцию Loc(), но Seek() возвращает информацию о позиции, с которой будет выполняться следующая операция чтения или вставки.
• LOF() — length of file — позволяет определить длину открытого файла в байтах.

VBA FileSystemObject (FSO) в Excel

Загрузка …

Объект VBA FileSystemObject (FSO) обеспечивает доступ к файловой системе компьютера, позволяя создавать, удалять, редактировать и копировать файлы / папки . Он также позволяет вам получать различные свойства файловой и папочной системы. Объект FileSystem доступен во всех приложениях MS Office, включая Excel VBA.

Помните, что объект VBA FileSystemObject (FSO) поддерживается только в системах Windows. Для Mac OS я рекомендую вам использовать встроенные собственные методы VBA для управления файлами и папками.

Методы объекта FileSystem VBA

Ниже перечислены функции, расширенные объектом VBA FileSystemObject (VBA FSO):

Создать объект файловой системы VBA

Объект FSO может быть создан с использованием двух разных подходов (аналогично большинству объектов в VBA). Первый рекомендуется, так как вам не нужно ссылаться на какие-либо библиотеки.

Поздняя привязка

Для создания FileSystemObject (FSO) в Excel VBA вы можете использовать функцию CreateObject. Преимущество заключается в отсутствии необходимости объявлять объект FSO и, следовательно, необходимости ссылки на библиотеку.

Dim fso как объект
Установите fso = CreateObject («Scripting.FileSystemObject»)

.

Раннее связывание

Для обучения лучше обратиться к библиотеке Microsoft.Scripting.Runtime . Перейдите в Инструменты -> Ссылки и выберите Microsoft.Время выполнения сценария . Это позволяет вам напрямую объявить FileSystemObject следующим образом:

Dim fso как FileSystemObject
Установите fso = New FileSystemObject

Этот подход называется Early Binding и требует ссылки на библиотеку. Я не рекомендую этот подход, поскольку он затрудняет совместное использование файла с другими пользователями без объяснения того, как ссылаться на библиотеку.

Создание файлов и папок

Объект VBA FSO может использоваться для создания текстовых файлов или папок в каталоге:

Для создания папки используйте метод VBA CreateFolder объекта FSO:

Установите fso = CreateObject («Scripting.FileSystemObject»)
‘Создать новую папку
fso.CreateFolder «C: \ NewFolder»

Текстовые файлы могут быть созданы с использованием метода VBA CreateTextFile :

Установите fso = CreateObject («Scripting.FileSystemObject»)
‘Создать TextStream
Установите ts = fso.CreateTextFile («C: \ hello.txt»)

.

Собственный подход VBA лучше подходит для создания двоичных файлов или записи в файлы.

Проверить наличие файлов, папок и дисков

Объект VBA FSO может использоваться для проверки наличия файла, папки или диска. Ниже приведены примеры, показывающие, как проверить, существует ли один из них или отсутствует. Вы также можете использовать собственную процедуру VBA FileCopy для копирования файлов.

Установите fso = CreateObject («Scripting.FileSystemObject»)

Отлаживать.Вывести fso.DriveExists («D») ‘Результат: True или False в зависимости от того, существует ли диск «D:»

Debug.Print fso.FileExists («D: \ Hello.txt») ‘Результат: True или False в зависимости от того, существует ли файл

Debug.Print fso.FileExists («D: \ SomeFolder») ‘Результат: True или False в зависимости от того, существует ли папка

Копирование файлов и папок

FileSystemObject позволяет копировать файлы и папки. Посмотрите CopyFile и CopyFolder по деталям:

Установите fso = CreateObject («Scripting.FileSystemObject»)

‘Скопируйте только файл Hello.xlsx
fso.CopyFile «c: \ Src \ Hello.xlsx», «c: \ Dest \»

‘Скопируйте только папку Hello
fso.CopyFolder «c: \ Src \ Hello», «c: \ Dest \»

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

Объект VBA FSO позволяет создавать только текстовые файлы.VBA изначально позволяет создавать и записывать файлы, я рекомендую вам прочитать мой пост о записи в файлы в VBA . Объект FSO не расширяет какие-либо методы для записи в двоичные файлы, поэтому вам нужно вернуться к собственному VBA Open , оператору .

Ниже показан пример создания текстовых файлов с помощью FSO и записи строки в файл.

Dim fso как Object, ts как Object

Установите fso = CreateObject («Scripting.FileSystemObject»)

‘Создать TextStream
Установите ts = fso.CreateTextFile («C: \ hello.txt»)

‘Записать в текстовый файл 2 строки, заканчивающиеся символом новой строки
ts.WriteLine «Hello World!»
ts.WriteLine «Привет, народ!»
‘Закройте файл
ts.Close

Dim fso как Object, ts как Object

Установите fso = CreateObject («Scripting.FileSystemObject»)

‘Открыть тот же файл для чтения
Установите ts = fso.OpenTextFile («C: \ hello.txt», ForReading, True, TristateFalse)

‘Читать до конца
До тех пор, пока ts.AtEndOfStream
Debug.Print «Линия печати» & ts.Line
Debug.Print ts.ReadLine ‘Распечатать строку из файла
Петля
ts.Закрыть

Получить файл, свойства папки

Объект FSO менее необходим для создания, чтения / записи файлов или папок, поскольку он копирует существующие встроенные функции VBA. Однако это полезно, когда вы хотите получить свойства файла или папки. Ниже приведен простой пример того, как получить различные свойства файла и папки. Дополнительные сведения см. В методах VBA GetFile и VBA GetFolder .

Установите fso = CreateObject («Scripting.FileSystemObject»)

‘Пример файла
Set f = fso.GetFile («C: \ Hello.txt») ‘Возвращает объект File
‘Теперь мы можем получить различные свойства файла
Debug.Print f.DateCreated ‘Дата создания файла
Debug.Print f.Size ‘Размер файла в байтах

‘Пример папки
Set f = fso.GetFolder («C: \ Src \») ‘Вернуть Folderobject

‘Теперь мы можем получить различные свойства файла
Debug.Print f.DateCreated ‘Дата создания папки
Отлаживать.Print f.Size ‘Размер папки в байтах

Вы также можете получить аналогичные свойства для дисков с помощью метода VBA GetDrive .

.

Использование VBA FileSystemObject (FSO) в Excel

Когда мы используем VBA в Excel, в основном это делается для автоматизации наших задач.

Это также означает, что большую часть времени мы работаем с ячейками и диапазонами, рабочими листами, книгами и другими объектами, которые являются частью приложения Excel.

Но VBA намного мощнее, и его также можно использовать для работы с вещами за пределами Excel.

В этом руководстве я покажу вам, как использовать VBA FileSystemObject (FSO) для работы с файлами и папками в вашей системе или на сетевых дисках.

Что такое VBA FileSystemObject (FSO)?

FileSystemObject (FSO) позволяет получить доступ к файловой системе вашего компьютера. Используя его, вы можете получить доступ и изменить файлы / папки / каталоги в вашей компьютерной системе.

Например, ниже приведены некоторые из вещей, которые вы можете делать с помощью FileSystemObject в Excel VBA:

• Проверьте, существует ли файл или папка.
• Создать или переименовать папки / файлы.
• Получить список всех имен файлов (или имен вложенных папок) в папке.
• Скопируйте файлы из одной папки в другую.

Надеюсь, вы уловили идею.

Я расскажу обо всех вышеперечисленных примерах (и других) позже в этом руководстве.

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

 Примечание. FSO можно использовать только в Excel 2000 и более поздних версиях.

К каким объектам можно получить доступ через FileSystemObject?

Как я упоминал выше, вы можете получать доступ к файлам и папкам и изменять их, используя FileSystemObject в VBA.

Ниже приведена таблица, в которой показаны наиболее важные объекты, к которым вы можете получить доступ и изменить с помощью FSO:

Объект

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

В качестве примера, если вы хотите удалить папку, вы будете использовать метод DeleteFolder объекта Folder. Точно так же, если вы хотите скопировать файл, вы будете использовать метод CopyFile объекта File.

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

Просто для справки я рассмотрел все методы FileSystemObject (для каждого объекта) в конце этого руководства.

Включение объекта FileSystemObject в Excel VBA

FileSystemObject по умолчанию недоступен в Excel VBA.

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

Теперь есть два способа начать использовать FileSystemObject в Excel VBA:

1. Установка ссылки на библиотеку времени выполнения сценариев Microsoft (Scrrun.dll)
2. Создание объекта для ссылки на библиотеку из самого кода

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

Примечание. Когда вы включаете FileSystemObject, вы можете получить доступ ко всем объектам в нем. Это включает в себя FileSystemObject, Drive, Files, Folders и т. Д. В этом руководстве я сосредоточусь в основном на FileSystemObject.

Установка ссылки на библиотеку времени выполнения сценариев Microsoft

Когда вы создаете ссылку на библиотеку времени выполнения сценариев, вы разрешаете Excel VBA доступ ко всем свойствам и методам файлов и папок.Как только это будет сделано, вы можете обратиться к объекту файлов / папок / дисков из Excel VBA (точно так же, как вы можете ссылаться на ячейки, рабочие листы или книги).

Ниже приведены шаги по созданию ссылки на библиотеку времени выполнения сценариев Microsoft:

1. В редакторе VB щелкните Инструменты.
2. Щелкните ссылку «Ссылки».
3. В открывшемся диалоговом окне «Ссылки» прокрутите доступные ссылки и установите флажок «Microsoft Scripting Runtime».
4. Нажмите ОК.

Вышеупомянутые шаги теперь позволят вам обращаться к объектам FSO из Excel VBA.

Создание экземпляра FileSystemObject в коде

После того, как вы установили ссылку на библиотеку Scripting FileSystemObject, вам необходимо создать экземпляр объекта FSO в вашем коде.

После его создания вы можете использовать его в VBA.

Ниже приведен код, который устанавливает объектную переменную MyFSO как объект FileSystemObject:

 Подложка СозданиеFSO ()
Dim MyFSO как объект FileSystemObject
Установите MyFSO = New FileSystemObject
Концевой переводник 

В этом коде сначала я объявил переменную MyFSO как объект типа FileSystemObject.Это возможно только потому, что я создал ссылку на библиотеку времени выполнения сценариев Microsoft. Если ссылка не создана, это приведет к ошибке (поскольку Excel не распознает, что означает FileSystemObject).

Во второй строке происходят две вещи:

1. Ключевое слово NEW создает экземпляр FileSystemObject. Это означает, что теперь я могу использовать все методы FileSystemObject для работы с файлами и папками. Если вы не создадите этот экземпляр, вы не сможете получить доступ к методам FSO.
2. Ключевое слово SET устанавливает объект MyFSO для этого нового экземпляра FileSystemObject. Это позволяет мне использовать этот объект для доступа к файлам и папкам. Например, если мне нужно создать папку, я могу использовать метод MyFSO.CreateFolder.

Если хотите, вы также можете объединить два вышеуказанных оператора в один, как показано ниже:

 Подложка СозданиеFSO ()
Dim MyFSO как новый объект FileSystemObject
Концевой переводник 

Большим преимуществом использования этого метода (который заключается в установке ссылки на библиотеку времени выполнения сценариев Microsoft) является то, что при использовании объектов FSO в своем коде вы сможете использовать функцию IntelliSense, которая показывает связанные методы и свойства. с объектом (как показано ниже).

Это невозможно, если вы создаете ссылку из кода (рассматривается далее).

Создание объекта из кода

Другой способ создать ссылку на FSO — это сделать это из кода. В этом методе вам не нужно создавать ссылку (как это было сделано в предыдущем методе).

Когда вы пишете код, вы можете создать объект внутри кода и обратиться к Scripting.FileSystemObject.

Приведенный ниже код создает объект FSO, а затем делает его типом FileSystemObject.

 Sub FSODemo ()
Dim FSO как объект
Установите FSO = CreateObject ("Scripting.FileSystemObject")
Концевой переводник 

Хотя это может показаться более удобным, большим недостатком использования этого метода является то, что он не отображает IntelliSense, когда вы работаете с объектами в FSO. Для меня это огромный минус, и я всегда рекомендую использовать предыдущий метод включения FSO (который заключается в установке ссылки на «Microsoft Scripting Runtime»)

Примеры объектов файловой системы VBA

Теперь давайте углубимся и рассмотрим несколько практических примеров использования FileSystemObject в Excel.

Пример 1. Проверьте, существует ли файл или папка

Следующий код проверит, существует ли папка с именем «Test» (в указанном месте).

Если папка существует, условие ЕСЛИ истинно, и в окне сообщения отображается сообщение «Папка существует». А если его не существует, отображается сообщение «Папка не существует».

 Подложка CheckFolderExist ()
Dim MyFSO как объект FileSystemObject
Установите MyFSO = New FileSystemObject
Если MyFSO.FolderExists ("C: \ Users \ sumit \ Desktop \ Test") Затем
    MsgBox «Папка существует»
Еще
    MsgBox «Папка не существует»
Конец, если
Концевой переводник 

Точно так же вы также можете проверить, существует файл или нет.

Приведенный ниже код проверяет, есть ли в указанной папке файл с именем Test.xlsx.

 Подложка CheckFileExist ()
Dim MyFSO как объект FileSystemObject
Установите MyFSO = New FileSystemObject
Если MyFSO.FileExists ("C: \ Users \ sumit \ Desktop \ Test \ Test.xlsx ") Тогда
    MsgBox «Файл существует»
Еще
    MsgBox «Файл не существует»
Конец, если
Концевой переводник 

Пример 2: Создание новой папки в указанном месте

Приведенный ниже код создаст папку с именем «Test» на диске C моей системы (вам нужно будет указать путь в вашей системе, в котором вы хотите создать папку).

 Подложка CreateFolder ()
Dim MyFSO как объект FileSystemObject
Установите MyFSO = New FileSystemObject
MyFSO.CreateFolder ("C: \ Users \ sumit \ Desktop \ Test")
Концевой переводник 

Хотя этот код работает нормально, он покажет ошибку, если папка уже существует.

Приведенный ниже код проверяет, существует ли уже папка, и создает папку, если это не так. Если папка уже существует, отображается сообщение. Чтобы проверить, существует ли папка, я использовал метод FolderExists FSO.

 Подложка CreateFolder ()
Dim MyFSO как объект FileSystemObject
Установите MyFSO = New FileSystemObject
Если MyFSO.FolderExists ("C: \ Users \ sumit \ Desktop \ Test"), то
    MsgBox «Папка уже существует»
Еще
    MyFSO.CreateFolder ("C: \ Users \ sumit \ Desktop \ Test")
Конец, если
Концевой переводник 

Пример 3: Получить список всех файлов в папке

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

 Подложка GetFileNames ()
Dim MyFSO как объект FileSystemObject
Dim MyFile As File
Dim MyFolder As Folder

Установите MyFSO = New Scripting.FileSystemObject
Установите MyFolder = MyFSO.GetFolder ("C: \ Users \ sumit \ Desktop \ Test")

Для каждого MyFile в MyFolder.Files
    Debug.Print MyFile.Name
Следующий MyFile

Концевой переводник 

Этот код немного сложнее тех, которые мы уже видели.

Как я упоминал выше в этом руководстве, когда вы ссылаетесь на «Microsoft Scripting Runtime Library», вы можете использовать FileSystemObject, а также все другие объекты (такие как файлы и папки).

В приведенном выше коде я использую три объекта — FileSystemObject, File и Folder. Это позволяет мне просматривать каждый файл в указанной папке. Затем я использую свойство name, чтобы получить список всех имен файлов.

Обратите внимание, что я использую Debug.Print для получения имен всех файлов. Эти имена будут перечислены в непосредственном окне редактора VB.

Пример 4: Получить список всех подпапок в папке

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

 Sub GetSubFolderNames ()
Dim MyFSO как объект FileSystemObject
Dim MyFile As File
Dim MyFolder As Folder
Dim MySubFolder As Folder

Установите MyFSO = New Scripting.FileSystemObject
Установите MyFolder = MyFSO.GetFolder ("C: \ Users \ sumit \ Desktop \ Test")

Для каждой MySubFolder в MyFolder.SubFolders
    Debug.Print MySubFolder.Name
Далее MySubFolder

Концевой переводник 

Пример 5: Копирование файла из одного места в другое

Приведенный ниже код скопирует файл из папки «Source» и скопирует его в папку «Destination».

 Дополнительный файл копирования ()
Dim MyFSO как объект FileSystemObject
Развернуть исходный файл как строку
Dim DestinationFolder As String
Установите MyFSO = New Scripting.FileSystemObject

SourceFile = "C: \ Users \ sumit \ Desktop \ Source \ SampleFile.xlsx"
DestinationFolder = "C: \ Users \ sumit \ Desktop \ Destination"

MyFSO.CopyFile Источник: = Исходный файл, Место назначения: = Папка назначения & "\ SampleFileCopy.xlsx"

Концевой переводник 

В приведенном выше коде я использовал две переменные — SourceFile и DestinationFolder.

Исходный файл содержит адрес файла, который я хочу скопировать, а переменная DestinationFolder содержит адрес папки, в которую я хочу скопировать файл.

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

.

Пример 6: Копирование всех файлов из одной папки в другую

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

 Sub CopyAllFiles ()
Dim MyFSO как объект FileSystemObject
Dim MyFile As File
Dim SourceFolder As String
Dim DestinationFolder As String
Dim MyFolder As Folder
Dim MySubFolder As Folder

SourceFolder = "C: \ Users \ sumit \ Desktop \ Source"
DestinationFolder = "C: \ Users \ sumit \ Desktop \ Destination"

Установите MyFSO = New Scripting.FileSystemObject
Установите MyFolder = MyFSO.GetFolder (SourceFolder)

Для каждого MyFile в MyFolder.Files
    MyFSO.Источник CopyFile: = MyFSO.GetFile (MyFile), _
    Назначение: = DestinationFolder & "\" & MyFile.Name, Overwritefiles: = False
Следующий MyFile

Концевой переводник 

Приведенный выше код скопирует все файлы из исходной папки в целевую папку.

Обратите внимание, что в методе MyFSO.CopyFile я указал для свойства «Overwritefiles» значение False (по умолчанию это True). Это гарантирует, что если у вас уже есть файл в папке, он не будет скопирован (и вы увидите ошибку).Если вы удалите «Overwritefiles» или установите для него значение True, если в целевой папке есть файлы с таким же именем, они будут перезаписаны.

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

Если вы хотите скопировать файлы только определенного расширения, вы можете сделать это с помощью оператора IF Then, чтобы проверить, является ли расширение xlsx или нет.

 Sub CopyExcelFilesOnly ()
Dim MyFSO как объект FileSystemObject
Dim MyFile As File
Dim SourceFolder As String
Dim DestinationFolder As String
Dim MyFolder As Folder
Dim MySubFolder As Folder

SourceFolder = "C: \ Users \ sumit \ Desktop \ Source"
DestinationFolder = "C: \ Users \ sumit \ Desktop \ Destination"

Установите MyFSO = New Scripting.FileSystemObject
Установите MyFolder = MyFSO.GetFolder (SourceFolder)

Для каждого MyFile в MyFolder.Files
    Если MyFSO.GetExtensionName (MyFile) = "xlsx" Тогда
        MyFSO.CopyFile Источник: = MyFSO.GetFile (MyFile), _
        Назначение: = DestinationFolder & "\" & MyFile.Name, Overwritefiles: = False
    Конец, если
Следующий MyFile

Концевой переводник 

Методы FileSystemObject (FSO)

Вот методы, которые вы можете использовать для каждого объекта. Это просто для справки, и не стоит особо об этом беспокоиться. Использование некоторых из них было показано в приведенных выше примерах.

.

Вам также могут понравиться следующие руководства по Excel:

.