Создание файлов Excel методами Workbooks.Add, Worksheet.Copy и текстовых файлов с помощью оператора Open и метода CreateTextFile из кода VBA Excel. Создание документов Word рассмотрено в отдельной статье.
Метод Workbooks.Add
Описание
Файлы Excel можно создавать из кода VBA с помощью метода Add объекта Workbooks.
Workbooks.Add – это метод, который создает и возвращает новую книгу Excel. Новая книга после создания становится активной.
Ссылку на новую книгу Excel, созданную методом Workbooks.Add, можно присвоить объектной переменной с помощью оператора Set или обращаться к ней, как к активной книге: ActiveWorkbook.
Синтаксис
Workbooks.Add (Template)
Template – параметр, который определяет, как создается новая книга.
| Значение Template | Параметры новой книги |
|---|---|
| Отсутствует | Новая книга с количеством листов по умолчанию. |
| Полное имя существующего файла Excel | Новая книга с указанным файлом в качестве шаблона. |
| xlWBATChart | Новый файл с одним листом диаграммы. |
| xlWBATWorksheet | Новый файл с одним рабочим листом. |
Примеры
Пример 1
Создание новой книги Excel с количеством листов по умолчанию и сохранение ее в папку, где расположен файл с кодом VBA:
|
Sub Primer1() ‘Создаем новую книгу Workbooks.Add ‘Сохраняем книгу в папку, где расположен файл с кодом ActiveWorkbook.SaveAs (ThisWorkbook.Path & «Моя новая книга.xlsx») ‘Закрываем файл ActiveWorkbook.Close End Sub |
Файл «Моя новая книга.xlsx» понадобится для следующего примера.
Пример 2
Создание новой книги по файлу «Моя новая книга.xlsx» в качестве шаблона с присвоением ссылки на нее объектной переменной, сохранение нового файла с новым именем и добавление в него нового рабочего листа:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub Primer2() ‘Объявляем объектную переменную с ранней привязкой Dim MyWorkbook As Workbook ‘Создаем новую книгу по шаблону файла «Моя новая книга.xlsx» Set MyWorkbook = Workbooks.Add(ThisWorkbook.Path & «Моя новая книга.xlsx») With MyWorkbook ‘Смотрим какое имя присвоено новому файлу по умолчанию MsgBox .Name ‘»Моя новая книга1″ ‘Сохраняем книгу с новым именем .SaveAs (ThisWorkbook.Path & «Моя самая новая книга.xlsx») ‘Смотрим новое имя файла MsgBox .Name ‘»Моя самая новая книга» ‘Добавляем в книгу новый лист с именем «Мой новый лист» .Sheets.Add.Name = «Мой новый лист» ‘Сохраняем файл .Save End With End Sub |
Метод Worksheet.Copy
Описание
Если в коде VBA Excel применить метод Worksheet.Copy без указания параметра Before или After, будет создана новая книга с копируемым листом (листами). Новая книга станет активной.
Примеры
Пример 3
Создание новой книги с помощью копирования одного листа (в этом примере используется книга, созданная в первом примере):
|
Sub Primer3() ‘Если книга источник не открыта, ее нужно открыть Workbooks.Open (ThisWorkbook.Path & «Моя новая книга.xlsx») ‘Создаем новую книгу копированием одного листа Workbooks(«Моя новая книга.xlsx»).Worksheets(«Лист1»).Copy ‘Сохраняем новую книгу с именем «Еще одна книжица.xlsx» в папку, ‘где расположен файл с кодом ActiveWorkbook.SaveAs (ThisWorkbook.Path & «Еще одна книжица.xlsx») End Sub |
Также, как и при создании нового файла Excel методом Workbooks.Add, при создании новой книги методом Worksheet.Copy, можно ссылку на нее присвоить объектной переменной.
Пример 4
Создание новой книги, в которую включены копии всех рабочих листов из файла с кодом VBA:
|
Sub Primer4() ThisWorkbook.Worksheets.Copy End Sub |
Пример 5
Создание новой книги, в которую включены копии выбранных рабочих листов из файла с кодом VBA:
|
Sub Primer5() ThisWorkbook.Sheets(Array(«Лист1», «Лист3», «Лист7»)).Copy End Sub |
Создание текстовых файлов
Оператор Open
При попытке открыть несуществующий текстовый файл с помощью оператора Open, такой файл будет создан. Новый файл будет создан при открытии его в любом режиме последовательного доступа, кроме Input (только для чтения).
Пример
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub Primer6() Dim ff As Integer, ws As Object ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Создаем новый текстовый файл путем открытия ‘несуществующего в режиме чтения и записи Open ThisWorkbook.Path & «Мой-новый-файл.txt» For Output As ff ‘Записываем в файл текст Write #ff, «Этот файл создан при его открытии оператором « & _ «Open по несуществующему адресу (полному имени).» ‘Закрываем файл Close ff ‘Открываем файл для просмотра Set ws = CreateObject(«WScript.Shell») ws.Run ThisWorkbook.Path & «Мой-новый-файл.txt» Set ws = Nothing End Sub |
В имени текстового файла пробелы заменены дефисами (знаками минус), так как метод Run объекта Wscript.Shell не способен открывать файлы с именами, содержащими пробелы.
Рекомендую открывать файлы для просмотра методом ThisWorkbook.FollowHyperlink. Пример и преимущества этого метода в статье VBA Excel. Открыть файл другой программы.
Метод FileSystemObject.CreateTextFile
Для создания нового текстового файла из кода VBA Excel по указанному имени, можно использовать метод CreateTextFile объекта FileSystemObject.
Пример
|
Sub Primer7() Dim fso, fl, ws ‘Создаем новый экземпляр объекта FileSystemObject Set fso = CreateObject(«Scripting.FileSystemObject») ‘Присваиваем переменной fl новый объект TextStream, ‘связанный с созданным и открытым для записи файлом Set fl = fso.CreateTextFile(ThisWorkbook.Path & «Еще-один-текстовый-файл.txt») ‘Записываем в файл текст fl.Write («Этот текстовый файл создан методом CreateTextFile объекта FileSystemObject.») ‘Закрываем файл fl.Close ‘Открываем файл для просмотра Set ws = CreateObject(«WScript.Shell») ws.Run ThisWorkbook.Path & «Еще-один-текстовый-файл.txt» End Sub |
Стоит отметить, что новый текстовый файл может быть создан и с помощью метода OpenTextFile объекта FileSystemObject при условии присвоения параметру create значения True.
Home / VBA / VBA Create New Workbook (Excel File)
To create a new workbook using VBA, you need to use the “Workbooks.Add” method. When you use this method, it inserts a new workbook (without saving it) and activates it after that. It works like when you press the keyboard shortcut CONTROL + N. You can also use a template to insert a new workbook.
Make sure to add the developer tab to the ribbon to enter this code into the VBE.
- Type the keyword “Workbooks” to refer to the workbook object.
- After that, type a dot.
- Here you’ll have a list of properties and methods to select.
- Select “Add” from that list or type it.
Sub vba_new_workbook()
Workbooks.Add
End Sub
Add a New Workbook using a Template
As I said, we are using the Workbooks.Add method. With this method, there’s an argument (optional) that you can use to refer to a file as a template.
Workbook.Add Template (Optional)Let’s say you have a workbook and want to have the new workbook exactly the same as it, you can refer to it as a template.
Workbooks.Add Template:="C:UsersDellDesktopbook1.xlsx"When you run the above code, it takes the reference from the “book1” which is saved on the desktop. The template workbook has 6 worksheets and the new workbook has exactly the same number of worksheets.
Apart from this, you can use the default arguments to decide what type of sheet you want to have in the new workbook.
- xlWBATChart: Chart Sheet
- xlWBATExcel4IntlMacroSheet: Macro Sheet Version 4
- xlWBATExcel4MacroSheet: Macro Sheet (International) Version 4
- xlWBATWorksheet: Worksheet
Create a New Excel Workbook and Save it
When you create a new workbook, Excel opens it but will not save it with the Add method. So for this, you need to use the SaveAs method.
Sub vba_create_workbook()
Workbooks.Add
ActiveWorkbook.SaveAs "C:usersdelldesktopmyBook.xlsx"
End Sub- First, use the workbook.add to create a new workbook.
- Next, refer to the active workbook and use the SaveAs method.
- In the SaveAs method, use the path where you want to save the workbook along with the name of the file.
- In the end, run the code.
More on VBA Workbooks
VBA Save Workbook | VBA Close Workbook | VBA Delete Workbook | VBA ThisWorkbook | VBA Rename Workbook | VBA Activate Workbook | VBA Combine Workbook | VBA Protect Workbook (Unprotect) | VBA Check IF a Workbook is Open | VBA Open Workbook | VBA Check IF an Excel Workbook Exists in a Folder
- VBA Workbook
На чтение 3 мин. Просмотров 11.1k.
Что делает макрос: Следующий макрос копирует диапазон ячеек из активного листа и вставляет данные в новую книгу.
Содержание
- Код макроса
- Как работает этот код
- Как использовать
Код макроса
Sub SozdatFajl()
'Шаг 1 - копируем данные с листа
Sheets("Продажи").Range("B4:C15").Copy
'Шаг 2 - создаем новую книгу
Workbooks.Add
'Шаг 3 - вставляем данные
ActiveSheet.Paste Destination:=Range("A1")
'Шаг 4 - отключаем системные сообщения
Application.DisplayAlerts = False
'Шаг 5 - сохраняем по нужному адресу
ActiveWorkbook.SaveAs _
Filename:="C:ОтчетыПродажиМесяц.xlsx"
'Шаг 6 - включаем системные сообщения
Application.DisplayAlerts = True
End Sub
Как работает этот код
- Копируем данные из ячеек B4:С15. Обратите внимание, что мы указываем полный адрес с именем листа и диапазона. Это позволит не допустить ошибки, если у Вас открыто несколько файлов Excel одновременно.
- Используем метод Add объекта Workbook, чтобы создать новую рабочую книгу. Это тоже самое, если бы мы вручную нажали Файл➜Создать➜Новый документ
- На этом этапе используется метод Paste, чтобы отправить данные, которые вы скопировали в ячейку А1 новой книги. Обратите внимание на то, что код ссылается на объект ActiveSheet. При создании новой книги она тут же становится активной. Если быть точнее, то становится активный лист в новой (только что созданной) книге.
- Далее используем метод DisplayAlerts. Используя свойство False — отключаем системные предупреждения Excel. Можно этого не делать, но мы можем запустить этот макрос несколько раз, и в этом случае Excel будет пытаться сохранить один и тот же файл несколько раз. Что происходит, когда вы пытаетесь сохранить книгу несколько раз? Правильно — Excel предупреждает, что в папке уже есть файл с таким же именем и спрашивает: «Хотите ли вы переписать ранее существующий файл?». Если мы не хотим, чтобы Excel при каждом сохранении спрашивал нас — подавляем это предупреждение.
- Сохраняем файл с помощью метода SaveAs. Обратите внимание, что мы пишем полный адрес, включая имя файла с расширением (при сохранении на рабочий стол
ActiveWorkbook.SaveAs CreateObject(«WScript.Shell»). SpecialFolders(«Desktop») & «Отчет на 2016.xlsx»). - Поскольку мы запретили показывать системные сообщения в пункте 4, мы должны включить их обратно. Если этого не сделать Excel будет подавлять все предупреждения, что не
допустимо.
Как использовать
Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:
- Активируйте редактор Visual Basic, нажав ALT + F11.
- Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
- Выберите Insert➜Module.
- Введите или вставьте код во вновь созданном модуле.
- Измените имя листа, диапазон ячеек, и место сохранения файла.
- Что делает макрос
- Код макроса
- Как работает макрос
- Как использовать
- Скачать файл
Ссылка на это место страницы:
#zadacha
Следующий макрос копирует диапазон ячеек из активного листа и вставляет данные в новую книгу.
Ссылка на это место страницы:
#formula
SubSozdatFajl()Sheets("Продажи").Range("B4:C15").CopyWorkbooks.AddActiveSheet.Paste Destination:=Range("A1")Application.DisplayAlerts =FalseActiveWorkbook.SaveAs _ Filename:="C:ОтчетыПродажиМесяц.xlsx"Application.DisplayAlerts =TrueEndSub
Ссылка на это место страницы:
#kak
1. Копируем данные из ячеек B4:С15. Обратите внимание, что мы указываем полный адрес с именем листа и диапазона. Это позволит не допустить ошибки, если у Вас открыто несколько файлов Excel одновременно.
2. Используем метод Add объекта Workbook, чтобы создать новую рабочую книгу. Это тоже самое, если бы мы вручную нажали Файл➜Создать➜Новый документ
3. На этом этапе используется метод Paste, чтобы отправить данные, которые вы скопировали в ячейку А1 новой книги. Обратите внимание на то, что код ссылается на объект ActiveSheet. При создании новой книги она тут же становится активной. Если быть точнее, то становится активный лист в новой (только что созданной) книге.
4. Далее используем метод DisplayAlerts. Используя свойство False — отключаем системные предупреждения Excel. Можно этого не делать, но мы можем запустить этот макрос несколько раз, и в этом случае Excel будет пытаться сохранить один и тот же файл несколько раз. Что происходит, когда вы пытаетесь сохранить книгу несколько раз? Правильно — Excel предупреждает, что в папке уже есть файл с таким же именем и спрашивает: «Хотите ли вы переписать ранее существующий файл?». Если мы не хотим, чтобы Excel при каждом сохранении спрашивал нас — подавляем это предупреждение.
5. Сохраняем файл с помощью метода SaveAs. Обратите внимание, что мы пишем полный адрес, включая имя файла с расширением (при сохранении на рабочий стол ActiveWorkbook.SaveAs CreateObject(«WScript.Shell»). SpecialFolders(«Desktop») & «Отчет на 2016.xlsx»).
6. Поскольку мы запретили показывать системные сообщения в пункте 4, мы должны включить их обратно. Если этого не сделать Excel будет подавлять все предупреждения, что не допустимо.
Ссылка на это место страницы:
#touse
Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:
1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. Выберите Insert➜Module.
3. Введите или вставьте код во вновь созданном модуле.
4. Измените имя листа, диапазон ячеек, и место сохранения файла.
Ссылка на это место страницы:
#file
Файлы статей доступны только зарегистрированным пользователям.
1. Введите свою почту
2. Нажмите Зарегистрироваться
3. Обновите страницу
Вместо этого блока появится ссылка для скачивания материалов.
Привет! Меня зовут Дмитрий. С 2014 года Microsoft Cretified Trainer. Вместе с командой управляем этим сайтом. Наша цель — помочь вам эффективнее работать в Excel.
Изучайте наши статьи с примерами формул, сводных таблиц, условного форматирования, диаграмм и макросов. Записывайтесь на наши курсы или заказывайте обучение в корпоративном формате.
Подписывайтесь на нас в соц.сетях:
Очень часто бывает такое, что нужно сформировать документы по определенному шаблону, на основе каких-то данных, например, по каждому сотруднику или по каждому лицевому счету. И делать это вручную бывает достаточно долго, когда этих самых сотрудников или лицевых счетов много, поэтому сегодня мы рассмотрим примеры реализации таких задач в Excel с помощью макроса написанного на VBA Excel.
Немного поясню задачу, допустим, нам необходимо сформировать какие-то специфические документы по шаблону массово, т.е. в итоге их получится очень много, как я уже сказал выше, например, по каждому сотруднику. И это нужно сделать непосредственно в Excel, если было бы можно это сделать в Word, то мы бы это сделали через «Слияние», но нам нужно именно в Excel, поэтому для этой задачи мы будем писать макрос.
Мы с Вами уже выгружали данные по шаблону через клиент Access из базы MSSql 2008 в Word и Excel вот в этой статье — Выгрузка данных из Access в шаблон Word и Excel. Но сейчас допустим, у нас данные располагаются в базе, в клиенте которой нельзя или слишком трудоемко реализовать такую задачу, поэтому мы просто выгрузим необходимые данные в Excel и на основе таких данных по шаблону сформируем наши документы.
В нашем примере мы, конечно, будем использовать простой шаблон, только для того чтобы это было просто наглядно и понятно (только в качестве примера), у Вас в свою очередь шаблон будет, как мне кажется намного сложней.
Напомню, что на данном сайте тема VBA Excel уже затрагивалась, например, в материале – Запрет доступа к листу Excel с помощью пароля
И так приступим!
Реализовывать нашу задачу будем на примере «Электронной карточке сотрудника» (я это просто придумал:), хотя может такие и на самом деле есть), т.е. документ в котором хранится личные данные сотрудника вашего предприятия, в определенном виде, именно в Excel.
Примечание! Программировать будем в Excel 2010.
И для начала приведем исходные данные, т.е. сами данные и шаблон
Данные.
Лист, на котором расположены эти данные так и назовем «Данные»
Шаблон.
Лист, на котором расположен шаблон, тоже так и назовем «Шаблон»
Далее, нам необходимо присвоить имена полей для вставки, так более удобней к ним обращаться чем, например, по номеру ячейки.
Это делается очень просто, выделяете необходимую ячейку или диапазон, и жмете правой кнопкой мыши и выбираете «Присвоить имя», пишите имя ячейки и жмете «ОК»
Свои поля я назвал следующим образом:
- ФИО – fio;
- № — number;
- Должность – dolgn;
- Адрес проживания – addres;
- Тел. № сотрудника – phone;
- Комментарий – comment.
Код макроса на VBA Excel
Для того чтобы написать код макроса, открывайте на ленте вкладку «Разработчик», далее макросы.
Примечание! По умолчанию данной вкладке в Excel 2010 может и не быть, чтобы ее отобразить нажмите правой кнопкой по ленте пункт меню «Настройка ленты»
затем, в правой области поставьте галочку напротив пункта «Разработчик»
После вкладка разработчик станет отображаться на ленте.
Далее, когда Вы откроете вкладку разработчик и нажмете кнопку «Макросы» у Вас отобразится окно создания макроса, Вы пишите название макросы и жмете «создать».
После у Вас откроется окно редактора кода, где собственно мы и будем писать свой код VBA. Ниже представлен код, я его как обычно подробно прокомментировал:
Sub Карточка()
'Книга
NewBook = ""
' Путь, где будут храниться наши карточки
' Т.е. в той папке, откуда запустился файл с макросом
Path = ThisWorkbook.Path
' Выбираем лист с данными
Sheets("Данные").Select
' Запускаем цикл, скажем на 100000 итераций
' Начиная со второй строки, не учитывая заголовок
For i = 2 To 100000
' Выйдем из него, когда фамилии закончатся, т.е. строки
If Cells(i, 1).Value = "" Then
i = 100000
Exit For
End If
' Имя файла карточки, назовем по фамилии
Name_file = Path & "" & Sheets("Данные").Cells(i, 1).Value & ".xls"
‘Выбираем лист с шаблоном
Sheets("Шаблон").Select
' Присваиваем значения нашим ячейкам, по именам которые мы задавали
Range("fio").Value = Sheets("Данные").Cells(i, 1).Value & " " & _
Sheets("Данные").Cells(i, 2).Value & " " & Sheets("Данные").Cells(i, 3).Value
Range("number").Value = Sheets("Данные").Cells(i, 4).Value
Range("addres").Value = Sheets("Данные").Cells(i, 5).Value
Range("dolgn").Value = Sheets("Данные").Cells(i, 6).Value
Range("phone").Value = Sheets("Данные").Cells(i, 7).Value
Range("comment").Value = Sheets("Данные").Cells(i, 8).Value
' Копируем все
Cells.Select
Selection.Copy
' Создаем новую книгу или делаем ее активной
If NewBook = "" Then
Workbooks.Add
NewBook = ActiveWorkbook.Name
Else
Workbooks(NewBook).Activate
Cells(1, 1).Select
End If
' Вставляем данные в эту книгу
Application.DisplayAlerts = False
ActiveSheet.Paste
Application.CutCopyMode = False
' Сохраняем с нашим новым названием
ActiveWorkbook.SaveAs Filename:= _
Name_file, FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
NewBook = ActiveWorkbook.Name
Application.DisplayAlerts = True
' Снова активируем файл с макросом и выбираем лист
Workbooks("Макрос.xls").Activate
Sheets("Данные").Select
' Переходим к следующей строке
Next i
' Закроем книгу
Workbooks(NewBook).Close
' Выведем сообщение об окончании
MsgBox ("Выполнено!")
End Sub
Теперь осталось выполнить этот макрос, для этого откройте вкладку разработчик->макросы->выполнить наш макрос:
и после выполнения у Вас в той же папке появится вот такие файлы
Вот с таким содержимым:
Для удобства можете на листе с данными создать кнопку и задать ей событие выполнить наш только что созданный макрос, и после чего простым нажатием выполнять этот макрос. Вот и все! Удачи!
- Документы Word
- Создание файлов
- Работа с файлами
Макрос предназначен для программного создания документов 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 доступна для бесплатного скачивания.
Внимание: просьбы о доработке макроса, описанного в этой статье, не принимаются.
Есть новая (универсальная) версия, — в которой уже есть практически всё, что может понадобиться.
- 197090 просмотров
Не получается применить макрос? Не удаётся изменить код под свои нужды?
Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.
Программы и макросы, выполняющие создание новых файлов Excel
Ссылка на оригинал
Время создания: 31.07.2019 22:37
Раздел: !Закладки — VBA
Запись: xintrea/mytetra_db_adgaver_new/master/base/15147189422g1spp0nhh/text.html на raw.githubusercontent.com
|
|
Работа с книгой Excel
создание, сохранение, закрытие, открытие
В этом уроке я продемонстрирую способы создания книги Excel, её сохранение, закрытие и всё это средствами VBA.
Создание новой книги Excel
Для того чтобы создать новую книгу, лист или что-то другое используют команду Add. Следовательно, для того чтобы создать новую книгу необходимо из выпадающего списка при написании команды книги выбрать Add:
Sub primer1()
Workbooks.Add
End Sub
Но при такой записи книга создаётся с настройками по умолчанию, т.е. если у Вас в Excel написано, что при создании новой книги в ней создавать 3 листа, то при написании вышеуказанной команды у Вас создастся книга с 3 листами. Почему я на это обратил внимание? Исходя из личного опыта знаю, что при формировании новых книг требуется создать книгу с указанным количеством листов. В примере ниже указано как создать книгу с одним листом.
Sub primer2()
Workbooks.Add (xlWBATWorksheet)
End Sub
Для того чтобы создать книгу с большим количеством листов необходимо дописать предыдущий код и указать дополнительное количество создаваемых листов. Смотрим.
Sub primer3()
Workbooks.Add(xlWBATWorksheet).Worksheets.Add , , 2
End Sub
или
Sub primer4()
Workbooks.Add(xlWBATWorksheet).Worksheets.Add Count:=2
End Sub
В этом примере создаётся книга с одним листом и дополнительно в ней создаётся ещё два листа, то-есть книга с 3 листами.
Сохранение книги
Если Вы хотите убить сразу двух зайцев, создать книгу и сразу же её сохранить в нужном месте, то можете воспользоваться комбинированной командой:
Sub primer5()
Workbooks.Add.SaveAs «c:12345»
End Sub
Обратите особое внимание на подсказку при вводе данных. На ней явно показано какие именно параметры Вы можете установить на книгу при её сохранении, например поставить пароль на книгу.
Ниже представлен пример сохранения книги с паролем — 123
Sub primer6()
Workbooks.Add.SaveAs «C:12345», , «123»
End Sub
или
Sub primer7()
Workbooks.Add.SaveAs Filename:=»C:12345″, Password:=»123″
End Sub
Из всего выше приведённого хочу сделать одно весомое замечание. При сохранении книги она будет использовать тот формат, который у Вас установлен по умолчанию. В данном случае я работаю на 2010 версии Excel и у меня по умолчанию стоит формат с расширением .xlsx. Если вы хотите сохранить файл с другим расширением, то вам в коде необходимо прописать следующие параметры.
Sub primer8()
Workbooks.Add.SaveAs Filename:=»C:12345″, FileFormat:=xlNormal
End Sub
При такой записи файл автоматически будет сохраняться с расширением .xls. Вы можете и сами указать расширение файла в адресе файла, что приветствуется. Например:
Sub primer9()
Workbooks.Add.SaveAs Filename:=»C:12345.xls», FileFormat:=xlNormal
End Sub
Если у Вас книга уже создана и Вы её просто хотите сохранить в нужном месте, то можно воспользоваться следующими записями.
Для сохранения текущей книги:
ThisWorkbook.SaveAs Filename:=»C:12345.xls», FileFormat:=xlNormal
Для сохранения активной книги:
ActiveWorkbook.SaveAs Filename:=»C:12345.xls», FileFormat:=xlNormal
Что будет если не указать путь сохранения книги? Она у Вас сохранится по умолчанию в коренной папке, в винде это обычно папка «Мои документы».
Если у Вас уже сохранена книга на компьютере и Вы время от времени её редактируете, но сохранять вы хотите её при помощи какого-то макроса на том же самом месте, то для такой процедуры можно воспользоваться банальной надписью (сохранить эту книгу):
ThisWorkbook.Save
Возможно многие загнались вопросом: А как сохранить книгу в текущей папке? То-есть там где открыт корееной файл — Ваша программа. Есть такая интересная штука, которая определяет коренной путь активного файла. А зная коренной путь файла, мы можем новый создаваемый файл сохранить в текущей папке с вашей программой, что очень удобно. Например:
Sub primer10()
ChDir ThisWorkbook.Path
Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & «12345.xls», _
FileFormat:=xlNormal
End Sub
Казалось бы всё основное рассмотрели, но оказывается есть ещё один интересный способ сохранения. Все его знают. Это когда мы сами указываем имя книги и путь её сохранения, т.е. нам показывается такое окно:
Делается это при помощи команды GetSaveAsFilename. Например, можно выполнить сохранение так:
Sub primer101()
fileSaveName = Application.GetSaveAsFilename(fileFilter:=»File (*.xls), *.xls»)
If fileSaveName False Then
ThisWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlNormal
MsgBox «Сохранено как » & fileSaveName, vbInformation, «Сохранён»
End If
End Sub
При этом fileFilter устанавливает ограничение на то, в каких именно расширениях можно сохранять книги. Но не забывайте про FileFormat, если устанавливаете несколько форматов сохранения файла.
Закрытие книги
Для того чтобы закрыть книгу можно применить следующие команды:
Для закрытия текущей и активной книги:
ThisWorkbook.Close
ActiveWorkbook.Close
Если у Вас открыто несколько книг и Вам необходимо закрыть определённую книгу, то Вы можете указать имя закрываемой книги, например:
Sub primer13()
Workbooks(«12345.xls»).Close
End Sub
И всё бы хорошо, но при закрытии книги бывает выползает сообщение
Для того чтобы не появлялось такое сообщение необходимо перед закрытием книги её сохранить, например:
Sub primer13()
Workbooks(«12345.xls»).Save
Workbooks(«12345.xls»).Close
End Sub
Если вы не хотите сохранять книгу, но вам необходимо её закрыть (предположим вы взяли из неё какие-то данные), то можно воспользоваться следующей записью, которую рассматривали в этом уроке. Книга закроется без сохранения, даже если в неё были внесены изменения.
Sub primer14()
Application.DisplayAlerts = False
Workbooks(«12345.xls»).Close
Application.DisplayAlerts = True
End Sub
Открытие документов Excel
Для того чтобы открыть книгу Excel нужно всего-то указать путь открываемого файла. Программно это будет выглядеть так:
Sub primer15()
Workbooks.Open «D:РаботаVBAerror.xls»
End Sub
Если Вы не знаете где находится файл, то можно воспользоваться командой GetOpenFilename. При использовании этой команды нам появится окно, в котором, так же как и при сохранении книги, можно указать расширения открываемых файлов.
На этом примере показано, что разрешено открыть два типа файлов — с расширением xls и расширением xlsx.
Sub primer16()
fileToOpen = Application.GetOpenFilename _
(«Files (*.xls), *.xls,Files (*.xlsx), *.xlsx»)
If fileToOpen False Then
MsgBox «Открывается файл » & fileToOpen
Workbooks.Open fileToOpen
End If
End Sub
Открытие сторонних программ
средствами VBA
Все загонялись таким вопросом — Как открыть из Excel другую программу или файл, например PDF, DOC или обычный калькулятор? Сегодня я хочу устранить этот вопрос. Существует несколько способов открытия. Я не буду заморачиваться и лезть в дебри, а покажу тот которым пользуюсь я. Способ, который всегда работает и который понятен.
Мы говорили о том как можно открыть книгу Excel в предыдущем уроке, но как открыть сторонний документ? Практически любую программу или файл можно открыть при момощи команды Shell. Но тут необходимо соблюдать следующую последовательность открытия файла:
1. необходимо запустить программу при помощи которой будет происходить открытие документа. Например, для открытия документа с расширением .doc нам необходимо запустить Word.
2. открыть файл.
ВНИМАНИЕ! Все примеры, которые будут демонстрироваться ниже, исключительно на программах, которые установлены у меня. У вас этих программ может не оказаться или иметь совершенно другой путь.
Открываем документы Word
Для того чтобы открыть документ Word необходимо руководствоваться выше указанной последовательностью. На примере это будет выглядеть так
Sub WordOpen()
‘Открываем программу, которая открывает документ
Programm = «c:Program FilesMicrosoft OfficeOffice14winword.exe»
‘Указываем адрес файла
File = «c:1.docx»
‘Открываем Файл
Shell Programm & » » & File, vbNormalFocus
End Sub
Это же можно записать без присвоения к переменным, но это выглядит одной длинной строчкой, что иногда не очень удобно.
Sub WordOpen()
Shell «c:Program FilesMicrosoft OfficeOffice14winword.exe» _
& » » & «c:1.docx», vbNormalFocus
End Sub
Ну а если указанного файла или программы нет, то можно воспользоваться командами обработки ошибок.
Sub WordOpen()
On Error GoTo Errorr
Shell «c:Program FilesMicrosoft OfficeOffice14winword.exe» _
& » » & «c:2.docx», vbNormalFocus
GoTo Ends
Errorr:
MsgBox «Файл не найден», vbCritical, «Ошибка»
Ends:
End Sub
vbNormalFocus — этот параметр показывает как именно открыть окно. В данном случае это говорит о том, что Окно в фокусе и открывается до исходного размера и положения.
Существует несколько типов констант открытия окон:
|
Константа |
Значение |
Описание |
|
vbHide |
0 |
Указывает, что при вызове функции Shell окно вызванной программы становится скрытым. |
|
vbNormalFocus |
1 |
Указывает, что при вызове функции Shell окно вызванной программы принимает обычный размер и фокус находится внутри него. |
|
vbMinimizedFocus |
2 |
Указывает, что при вызове функции Shell окно вызванной программы сворачивается и фокус находится внутри него. |
|
vbMaximizedFocus |
3 |
Указывает, что при вызове функции Shell окно вызванной программы разворачивается во весь экран и фокус находится внутри него. |
|
vbNormalNoFocus |
4 |
Указывает, что при вызове функции Shell окно вызванной программы принимает обычный размер и фокус находится за его пределами. |
|
vbMinimizedNoFocus |
6 |
Указывает, что при вызове функции Shell окно вызванной программы сворачивается и фокус находится за его пределами. |
Открываем документы PDF
Оень распространён способ открытия документов PDF через Акробат, так как это одна из самых популярных программ. Но я ей не пользуюсь. Она слишком медленная и меня она не устраивает. Поэтому способ открытия при помощи программы Акробат я показывать не буду. А продемонстрирую как можно всё при пощи той же команды Shell открыть любой программой, которая Вам нравится для чтения PDF документов. Делается это по аналогии с предыдущими примерами. Только тут мы указываем программу для открытия PDF документов.
Sub PDFOpen()
‘Открываем программу, которая открывает документ
Programm = «c:Program FilesFoxit SoftwareFoxit ReaderFoxit Reader.exe»
‘Указываем адрес файла
Files = «c:jrc4558.pdf»
‘Открываем Файл
Shell Programm & » » & Files, vbNormalFocus
End Sub
Точно так же можно записать в одну строчку
Sub PDFOpen()
Shell «c:Program FilesFoxit SoftwareFoxit ReaderFoxit Reader.exe» & _
» » & «c:jrc4558.pdf», vbNormalFocus
End Sub
Открываем сторонние программы
По аналогии при помощи команды Shell можно открывать и отдельные программы. Например аудиопроигрыватель:
Sub AIMPOpen()
Shell «c:Program FilesAIMP3AIMP3.exe», vbNormalFocus
End Sub
или видеопроигрыватель
Sub VIDEOOpen()
Shell «c:Program FilesK-Lite Codec PackMedia Player Classicmpc-hc.exe», _
vbNormalFocus
End Sub
При этом путь к некоторым праграммам, можно не указывать.
Sub CalcOpen()
Call Shell(«Calc.exe», 1)
End Sub
или таким образом
Sub CalcOpen()
Shell «Calc.exe», 1
End Sub
Или можно вызвать справку Windows
Sub HelpOpen()
Call Shell(«winhelp.exe», 1)
End Sub
Открываем программу Word
Sub winwordOpen()
Shell «winword.exe», 1
End Sub
Открываем командную строку
Sub CmdOpen()
Shell «cmd.exe», 1
End Sub
Думаю, что стальные программы Вы теперь сами сможете открыть на основе этих примеров.
аблица символов
Все давно знают, что буквы и цифры — это обыкновенный код в определённой таблице символов.
ASCII (англ. American Standard Code for Information Interchange) — американская стандартная кодировочная таблица для печатных символов и некоторых специальных кодов.
ASCII представляет собой кодировку для представления десятичных цифр, латинского и национального алфавитов, знаков препинания и управляющих символов. Изначально разработанная как 7-битная, с широким распространением 8-битного байта ASCII стала восприниматься как половина 8-битной. В компьютерах обычно используют расширения ASCII с задействованным 8-м битом и второй половиной кодовой таблицы (например КОИ-8).
(Источник: Википедия)
Для чего вообще я затронул эту тему? Это больше для справки дано. Но и Excel не оставлю без внимания. Зная коды символов при помощи обычных циклов можно предположим перебрать все символы, которые у нас имеются. Ниже приведены две таблицы символов — от 0 до 127 и от 128 до 255. Символы с кодами от 0 до 31 относятся к служебным.
Символ 0 — 127
|
0 |
32 |
[space] |
64 |
@ |
96 |
` |
|
|
1 |
33 |
! |
65 |
A |
97 |
a |
|
|
2 |
34 |
« |
66 |
B |
98 |
b |
|
|
3 |
35 |
# |
67 |
C |
99 |
c |
|
|
4 |
36 |
$ |
68 |
D |
100 |
d |
|
|
5 |
37 |
% |
69 |
E |
101 |
e |
|
|
6 |
38 |
& |
70 |
F |
102 |
f |
|
|
7 |
39 |
‘ |
71 |
G |
103 |
g |
|
|
8 |
40 |
( |
72 |
H |
104 |
h |
|
|
9 |
41 |
) |
73 |
I |
105 |
i |
|
|
10 |
42 |
* |
74 |
J |
106 |
j |
|
|
11 |
43 |
+ |
75 |
K |
107 |
k |
|
|
12 |
44 |
, |
76 |
L |
108 |
l |
|
|
13 |
45 |
— |
77 |
M |
109 |
m |
|
|
14 |
46 |
. |
78 |
N |
110 |
n |
|
|
15 |
47 |
/ |
79 |
O |
111 |
o |
|
|
16 |
48 |
0 |
80 |
P |
112 |
p |
|
|
17 |
49 |
1 |
81 |
Q |
113 |
q |
|
|
18 |
50 |
2 |
82 |
R |
114 |
r |
|
|
19 |
51 |
3 |
83 |
S |
115 |
s |
|
|
20 |
52 |
4 |
84 |
T |
116 |
t |
|
|
21 |
53 |
5 |
85 |
U |
117 |
u |
|
|
22 |
54 |
6 |
86 |
V |
118 |
v |
|
|
23 |
55 |
7 |
87 |
W |
119 |
w |
|
|
24 |
56 |
8 |
88 |
X |
120 |
x |
|
|
25 |
57 |
9 |
89 |
Y |
121 |
y |
|
|
26 |
58 |
: |
90 |
Z |
122 |
z |
|
|
27 |
59 |
; |
91 |
[ |
123 |
{ |
|
|
28 |
60 |
92 |
124 |
| |
|||
|
29 |
61 |
= |
93 |
] |
125 |
} |
|
|
30 |
62 |
94 |
^ |
126 |
~ |
||
|
31 |
63 |
? |
95 |
_ |
127 |
8, 9, 10 и 13 не имеют графического представления, но, в зависимости от применения, могут влиять на визуальное отображение текста.
Символ 128 — 255
|
128 |
Ђ |
160 |
192 |
А |
224 |
а |
|
|
129 |
Ѓ |
161 |
Ў |
193 |
Б |
225 |
б |
|
130 |
‚ |
162 |
ў |
194 |
В |
226 |
в |
|
131 |
ѓ |
163 |
Ј |
195 |
Г |
227 |
г |
|
132 |
„ |
164 |
¤ |
196 |
Д |
228 |
д |
|
133 |
… |
165 |
Ґ |
197 |
Е |
229 |
е |
|
134 |
† |
166 |
¦ |
198 |
Ж |
230 |
ж |
|
135 |
‡ |
167 |
§ |
199 |
З |
231 |
з |
|
136 |
€ |
168 |
Ё |
200 |
И |
232 |
и |
|
137 |
‰ |
169 |
© |
201 |
Й |
233 |
й |
|
138 |
Љ |
170 |
Є |
202 |
К |
234 |
к |
|
139 |
‹ |
171 |
« |
203 |
Л |
235 |
л |
|
140 |
Њ |
172 |
¬ |
204 |
М |
236 |
м |
|
141 |
Ќ |
173 |
— |
205 |
Н |
237 |
н |
|
142 |
Ћ |
174 |
® |
206 |
О |
238 |
о |
|
143 |
Џ |
175 |
Ї |
207 |
П |
239 |
п |
|
144 |
ђ |
176 |
° |
208 |
Р |
240 |
р |
|
145 |
‘ |
177 |
± |
209 |
С |
241 |
с |
|
146 |
’ |
178 |
І |
210 |
Т |
242 |
т |
|
147 |
“ |
179 |
і |
211 |
У |
243 |
у |
|
148 |
” |
180 |
ґ |
212 |
Ф |
244 |
ф |
|
149 |
• |
181 |
µ |
213 |
Х |
245 |
х |
|
150 |
– |
182 |
¶ |
214 |
Ц |
246 |
ц |
|
151 |
— |
183 |
· |
215 |
Ч |
247 |
ч |
|
152 |
184 |
ё |
216 |
Ш |
248 |
ш |
|
|
153 |
™ |
185 |
№ |
217 |
Щ |
249 |
щ |
|
154 |
љ |
186 |
є |
218 |
Ъ |
250 |
ъ |
|
155 |
› |
187 |
» |
219 |
Ы |
251 |
ы |
|
156 |
њ |
188 |
ј |
220 |
Ь |
252 |
ь |
|
157 |
ќ |
189 |
Ѕ |
221 |
Э |
253 |
э |
|
158 |
ћ |
190 |
ѕ |
222 |
Ю |
254 |
ю |
|
159 |
џ |
191 |
ї |
223 |
Я |
255 |
я |
Применение
Теперь можно приступить непосредственно к примерам. Как я получил все эти символы? Конечно же я не сидел и не набирал их из таблицы символов в Excel. Всё это делается гораздо проще. Существует очень интересная команда, которая способна из номера символа показать нам его символ.
Chr(charcode) — возвращает строку, содержащую символ, связанный с указанным кодом символа. Другими словами мы задаём номер символа, а нам выдаётся символ.
А если воспользоваться циклом и записать это в виде макроса, то можно получить сразу всю таблицу символов за считанные секунды.
Sub tablica()
For a = 0 To 255
Cells(a + 1, 2) = a
Cells(a + 1, 1) = Chr(a)
Next a
Beep ‘Гудок
End Sub
Chr(a) — в этой записи переменная a принимает значения от 0 до 255. Всё согласно написанному циклу.
Beep — это сигнал компьютера. В данном случае сигнализирует о прекращении выполнении макроса.
Хочу ещё кое-что отметить. В одном из уроков мы рассматривали как можно перенести текст в Msgbox на новую строку. Делается это при помощи команды vbNewLine. Так вот эту же команду можно выполнить при помощи записи Chr(13), которая так же означает перенос на новую строку.
Sub Primer()
MsgBox «Это первая строка» & vbNewLine & _
«Это вторая строка», vbInformation, «Пример»
End Sub
или
Sub Primer()
MsgBox «Это первая строка» & Chr(13) & _
«Это вторая строка», vbInformation, «Пример»
End Sub
Так же можно отобразить символ в информационном сообщении.
Sub Primer2()
MsgBox «Символ Chr(89) — это » & Chr(89), vbInformation, «Пример»
End Sub
Теперь зная как получить символы можно писать программы для подбора паролей. :-))
Запуск макроса из другого макроса
Отдельно написаный макрос — это хорошо, но ещё лучше если макросы будут запускать сами себя. Предположим один макрос выполняет анализ документа, второй редактирует документ, третий делает отчётный документ. Ни каких лишних движений мышкой и вмешательства пользователей. Всё автоматизировано.
А теперь посмотрим как запустить макрос из другого макроса. Существует несколько способов. Предположим у нас есть 2 макроса, один из которых закрашивает ячейку в зелёный цвет, а другой закрашивает её в синий цвет.
Sub videlenie()
If Cells(1, 1).Interior.ColorIndex = 4 Then
Else
Cells(1, 1).Interior.ColorIndex = 4
MsgBox «Выполнена зелёная заливка», vbInformation, «Пример»
End If
End Sub
Sub okras()
ActiveCell.Interior.ColorIndex = 5
MsgBox «Выполнена синяя заливка», vbInformation, «Пример»
End Sub
Способ №1
Просто пишите имя макроса в том месте где вы хотите его выполнить. В данном случае он написан в условии Если … То.
Sub videlenie()
If Cells(1, 1).Interior.ColorIndex = 4 Then
okras
Else
Cells(1, 1).Interior.ColorIndex = 4
MsgBox «Выполнена зелёная заливка», vbInformation, «Пример»
End If
End Sub
Sub okras()
ActiveCell.Interior.ColorIndex = 5
MsgBox «Выполнена синяя заливка», vbInformation, «Пример»
End Sub
Если ячейка А1 имеет зелёный цвет, то запускается второй макрос (okras), который закрашивает её в синий цвет. Пройдите эти макросы через кнопку F8, дабы понять логику выполнения макроса. Это важно понимать.
Способ №2
Практически так же как и в предыдущем примере, только перед именем макроса добавляете командуCall.
Sub videlenie()
If Cells(1, 1).Interior.ColorIndex = 4 Then
Call okras
Else
Cells(1, 1).Interior.ColorIndex = 4
MsgBox «Выполнена зелёная заливка», vbInformation, «Пример»
End If
End Sub
Sub okras()
ActiveCell.Interior.ColorIndex = 5
MsgBox «Выполнена синяя заливка», vbInformation, «Пример»
End Sub
Не обязательно использовать оператор Call при вызове процедуры. Однако он повышает читаемость кода. Лично я всегда использую этот вариант.
Способ №3
Третий способ более замороченый (его дольше писать), но им тоже можно пользоваться. Макрос запускается при помощи команды Application.Run.
Sub videlenie()
If Cells(1, 1).Interior.ColorIndex = 4 Then
n = 1
Application.Run «okras»
Else
Cells(1, 1).Interior.ColorIndex = 4
MsgBox «Выполнена зелёная заливка», vbInformation, «Пример»
End If
End Sub
Sub okras()
ActiveCell.Interior.ColorIndex = 5
MsgBox «Выполнена синяя заливка» & n, vbInformation, «Пример»
End Sub
Ну вот. Теперь мы знаем как запускать макросы. Есть ещё один момент, который надо отметить. При запуске макросов иногда возникает необходимость переносить значения переменных из одного макроса в другой, чтобы в дальнейшем обработать необходимую информацию.
Перенос значений переменных из одного макроса в другой
Рассмотрим перенос значений переменных на двух простейших макросах.
Sub perenos()
a = 1
b = 2
c = a + b
End Sub
Sub rezultat()
MsgBox «Результат сложения» & vbNewLine & _
«a=1» & a & vbNewLine & _
«b=2» & b & vbNewLine & _
«равен » & c, vbInformation, «Пример»
End Sub
Для того чтобы перенести значение переменной c в макрос с именем rezultat, необходимо в скобках с именем макроса указать ту переменную, значение которой вы хотите перенести. Выглядит это следующим образом.
Sub perenos()
a = 1
b = 2
c = a + b
Call rezultat(c)
End Sub
Sub rezultat(c)
MsgBox «Результат сложения» & vbNewLine & _
«a=1» & a & vbNewLine & _
«b=2» & b & vbNewLine & _
«равен » & c, vbInformation, «Пример»
End Sub
Обратите особое внимание, что при запуске макроса, в скобках так же надо указывать переменную Call rezultat(c), так как имя макроса изменилось. Теперь при запуске первого макроса у нас запускается второй макрос в котором нам отображается результат.
Теперь усложним и перенесём значение переменных a и b в макрос rezultat, и уже в нём произведём вычисление. Выглядеть это будет так:
Sub perenos1()
a = 1
b = 2
Call rezultat1(a, b)
End Sub
Sub rezultat1(a, b)
c = a + b
MsgBox «Результат сложения» & vbNewLine & _
«a=» & a & vbNewLine & _
«b=» & b & vbNewLine & _
«равен » & c, vbInformation, «Пример»
End Sub