Макрос для создания файла excel

Создание файлов 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.

Источник

На чтение 3 мин. Просмотров 11.1k.

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

Содержание

  1. Код макроса
  2. Как работает этот код
  3. Как использовать

Код макроса

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

Как работает этот код

  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 будет подавлять все предупреждения, что не
    допустимо.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

  1. Активируйте редактор Visual Basic, нажав ALT + F11.
  2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
  3. Выберите Insert➜Module.
  4. Введите или вставьте код во вновь созданном модуле.
  5. Измените имя листа, диапазон ячеек, и место сохранения файла.

Источник
  1. Что делает макрос
  2. Код макроса
  3. Как работает макрос
  4. Как использовать
  5. Скачать файл

Ссылка на это место страницы:
#zadacha

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

Ссылка на это место страницы:
#formula

  1. Sub SozdatFajl()
  3. Sheets("Продажи").Range("B4:C15").Copy  
  5. Workbooks.Add 
  7. ActiveSheet.Paste Destination:=Range("A1")  
  9. Application.DisplayAlerts = False 
  11. ActiveWorkbook.SaveAs _ Filename:="C:ОтчетыПродажиМесяц.xlsx"  
  13. Application.DisplayAlerts = True
  14. End Sub

Ссылка на это место страницы:
#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. 

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

Подписывайтесь на нас в соц.сетях:

Источник
 

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

#1

06.09.2014 23:19:21

Доброе время суток. Есть книга, в ячейке А1 значение.

Код 
Sub New2()     
Dim New_Wb As Workbook     
Set New_Wb = Workbooks.Add     
New_Wb.Activate     
New_Wb.SaveAs ("D:test" & "1" & ".xls")     
New_Wb.Close 
End Sub

Запускаю макрос, создается новая книга сохраняется по пути D:test, присваивается имя 1.xls и закрывается.

Проблема в следующем, как переписать макрос, чтобы новая книга сохранялась с названием как в ячейке А1 книги, с которой запускается макрос?
Заранее спасибо!
 

Alexander88

Пользователь

Сообщений: 400
Регистрация: 02.09.2014

#2

06.09.2014 23:32:21

Попробуйте заменить пятую строку на:

Код 
New_Wb.SaveAs ("D:test" & Cells(1, 1) & ".xls")

Изменено: Alexander88 — 06.09.2014 23:32:32
 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

#3

06.09.2014 23:35:54

Код 
Sub New2()
    Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    New_Wb.SaveAs ("D:test" & ThisWorkbook.Sheets("Лист1").Range("A1") & ".xls")
    New_Wb.Close
End Sub
 

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

#4

06.09.2014 23:38:01

Цитата
Alexander88 пишет: заменить пятую строку на:

ошибку дает (
 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

#5

06.09.2014 23:39:26

Цитата
evgeniy_m пишет: ошибку дает

Это не информация — всегда следует указывать — КАКУЮ ошибку получаете.
 

И пример Юрия с указанием откуда берется ячейка не работает?
 

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

макрос не компилируеться..
 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле
 

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

evgeniy_m, Лист1 в книге с макросом присутствует? Что означает «макрос не компилируется»?

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

#10

06.09.2014 23:55:12

Цитата
Юрий М пишет: Мой вариант проверяли?

супер! Огромное спасибо !

ПОмогите еще с одним моментом, книгу создал, обозвал её как Вы помогли, теперь беда… Хочу с книги откуда запускал макрос скопировать лист (plan) в эту новую книгу с созданым листом «plan_191».

Код 
Dim sShName As String, sAddress As String, vData
    Dim objThisBook As Object
    Set objThisBook = GetObject.ActiveWorkbook
    sAddress = "A1:AA6000"
    vData = objCloseBook.Sheets("plan").Range(sAddress).Value
    objThisBook.Close False
    Sheets("plan_191").Range("A1").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData

но на строке  Set objThisBook = GetObject.ActiveWorkbook дает ошибку…. как мне указать, что нужно копировать лист из книги откуда запускался макрос….?
 

Johny

Пользователь

Сообщений: 2737
Регистрация: 21.12.2012

#11

07.09.2014 00:01:23

Цитата
evgeniy_m пишет:
Хочу с книги откуда запускал макрос скопировать лист (plan) в эту новую книгу с созданым листом «plan_191».

Ничего не понятно (а в приложенном макросе вообще какая-то, извините, ерунда). :)

There is no knowledge that is not power

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

#12

07.09.2014 00:04:40

Код 
Sub New2()
    Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    ThisWorkbook.Sheets("plan").Copy
    New_Wb.Sheets.Add After:=New_Wb.Sheets(Sheets.Count)
    New_Wb.SaveAs ("D:test" & ThisWorkbook.Sheets("Лист1").Range("A1") & ".xls")
    New_Wb.Close
End Sub
 

Hugo

Пользователь

Сообщений: 23253
Регистрация: 22.12.2012

#13

07.09.2014 00:05:00

скопировать лист (plan) в эту новую книгу —

Код 
sheets("plan").copy

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

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

Суть такая, открываю книгу, запускаю макрос, создается новая книга и лист в ней. Теперь из 1-й книги нужно скопировать лист в новую книгу.
Помогите пожалуйста  :)
 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

Согласен с Johny: ерунда получается — сначала имя листа «plan», затем «plan_191″…
 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

evgeniy_m, у Дмитрия (The_Prist) очень хороший текст в подписи — прочитайте))
 

Может проще создать копию книги, а потом удалить листы кроме нужного?
 

Hugo

Пользователь

Сообщений: 23253
Регистрация: 22.12.2012

Кстати хороший вариант сделать копию файла, его открыть, поудалять лишнее. Так и строки не пострадают, и связи…
 

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014

#19

07.09.2014 00:12:45

Код 
Dim sShName As String, sAddress As String, vData
    Dim objThisBook As Object
    Set objThisBook = GetObject("d:test.xls")
    sAddress = "A1:AA6000"
    vData = objThisBook.Sheets("abs_plan").Range(sAddress).Value
    Sheets("abs_plan_191").Range("A1").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData

Вот написал, все отлично работает, но копирует без сохранения параметров ячеек…
 

Johny

Пользователь

Сообщений: 2737
Регистрация: 21.12.2012

#20

07.09.2014 00:14:18

Так?

Код 
Sub F()

    Dim wkbNew As Workbook
    Sheets("plan").Copy
    Set wkbNew = ActiveWorkbook
    wkbNew.Sheets(1).Name = "plan_191"
    wkbNew.SaveAs "D:test" & ThisWorkbook.Sheets("Лист1").Range("A1") & ".xls"
    
End Sub

There is no knowledge that is not power

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

evgeniy_m, Вы читаете, что Вам пишут?
 

evgeniy_m

Пользователь

Сообщений: 109
Регистрация: 07.07.2014
 

Honey

Пользователь

Сообщений: 204
Регистрация: 06.02.2015

#23

30.05.2017 13:54:20

Всем привет!

Надеюсь мой вопрос здесь уместен. Я под основу взяла код, предлагаемый здесь. Но его чуток видоизменила. И теперь у меня проблема-выдает ошибку на строку

Код 
New_Wb.SaveAs

А сам код вот

Код 
Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    New_Wb.SaveAs (Range("O6") & "" & Range("Книга") & ".xlsm")

либо

Код 
Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    New_Wb.SaveAs ("M:ProductionМастера2017Нормализация" & Range("имя_папки").Value & "" & Range("Книга") & ".xlsm")

Спасибо

Изменено: Honey — 30.05.2017 13:57:38
 

Honey

Пользователь

Сообщений: 204
Регистрация: 06.02.2015

Люди добрые!

Помогите с проблемой выше, пожалуйста… Интернет обыскала ничего не получается(((
Вся надежда на Вас :(
 

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#25

21.06.2017 08:46:59

Цитата
Honey написал:
выдает ошибку

что за ошибка — нам угадать?
Да и скобки здесь лишние. В VBA методы без присвоения результата переменной указываются без скобок:

Код 
New_Wb.SaveAs Range("O6") & "" & Range("Книга") & ".xlsm"

плюс очень желательно указывать формат файла явно:

Код 
New_Wb.SaveAs Range("O6") & "" & Range("Книга") & ".xlsm", 52

52 — формат xslm.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

Honey

Пользователь

Сообщений: 204
Регистрация: 06.02.2015

The_Prist,  спасибо, что откликнулись!

Ошибка Runtime error 1004:: Method ‘Range’ of Global Failed

Изменено: Honey — 21.06.2017 08:56:57
 

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

А Вы вдумайтесь в ошибку. В Google-переводчик закиньте. Тогда видно будет, что у Вас проблема в том, что нет диапазона «Книга» или «Об» или другого, чего Вы пишите в Range.
Так же надо помнить, что указание Range явного указания для него листа и книги подразумевает обращение к АКТИВНОЙ книге. А Вы её только что создали. Следовательно там НЕТ ИМЕНОВАННЫХ ДИАПАЗОНОВ, да и вообще данных.
Советую очень внимательно изучить:

Как обратиться к диапазону из VBA

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

Honey

Пользователь

Сообщений: 204
Регистрация: 06.02.2015

Во вложении файл, в котором этот самый макрос (модуль)

Прикрепленные файлы

  • Расчет.xlsm (76.72 КБ)

Изменено: Honey — 21.06.2017 09:06:17
 

Honey

Пользователь

Сообщений: 204
Регистрация: 06.02.2015

The_Prist,
Об этом я читала… Видимо, действительно, я чего-то не понимаю((( У меня есть такие диапазоны. И я ведь указываю на имена диапазонов не в ново-созданной книге. Или как мне конкретней указать, чтобы диапазон брался конкретно с первоначальной книги для именования…?

Спасибо за ссылочку))

Изменено: Honey — 21.06.2017 09:09:17
 

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#30

21.06.2017 09:20:23

Цитата
Honey написал:
указываю на имена диапазонов не в ново-созданной книге

нет. Я же написал, что указание Range без явного указания листа и книги в Вашем случае указывает на активный лист. А т.к. Вы это делаете после создания новой книги — то активна именно она, а не что-то там где-то еще. Видимо, читали либо не все, либо не то, либо не так.

Код 
New_Wb.SaveAs ThisWorksbook.Sheets("1 норм").Range("O6") & "" & ThisWorksbook.Sheets("1 норм").Range("Книга") & ".xlsm", 52

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Источник

Home / VBA / VBA Create New Workbook (Excel File)

A quick video on how to create a new workbook using macro.

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.

  1. Type the keyword “Workbooks” to refer to the workbook object.
  2. After that, type a dot.
  3. Here you’ll have a list of properties and methods to select.
  4. 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.

  1. xlWBATChart: Chart Sheet
  2. xlWBATExcel4IntlMacroSheet: Macro Sheet Version 4
  3. xlWBATExcel4MacroSheet: Macro Sheet (International) Version 4
  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
  1. First, use the workbook.add to create a new workbook.
  2. Next, refer to the active workbook and use the SaveAs method.
  3. In the SaveAs method, use the path where you want to save the workbook along with the name of the file.
  4. 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

Источник

Понравилась статья? Поделить с друзьями:
  • Макрос для создания таблиц в word
  • Макрос для создания списка в excel
  • Макрос для создания сводных таблиц excel
  • Макрос для создания сводной таблицы excel
  • Макрос для создания папки excel