Excel макрос создать новую книгу excel

Открытие книги Excel из кода VBA. Проверка существования книги. Создание новой книги, обращение к открытой книге и ее закрытие. Методы Open, Add и Close.

Открытие существующей книги

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

Workbooks.Open Filename:=«D:test1.xls»

или

Workbooks.Open («D:test1.xls»)

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

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

Проверить существование файла можно с помощью функции Dir. Проверка существования книги Excel:

If Dir(«D:test1.xls») = «» Then     MsgBox «Файл не существует» Else     MsgBox «Файл существует» End If

Или, если файл (книга Excel) существует, можно сразу его открыть:

If Dir(«D:test1.xls») = «» Then     MsgBox «Файл не существует» Else     Workbooks.Open Filename:=«D:test1.xls» End If

Создание новой книги

Новая рабочая книга Excel создается в VBA с помощью метода Add:

Созданную книгу, если она не будет использоваться как временная, лучше сразу сохранить:

Workbooks.Add ActiveWorkbook.SaveAs Filename:=«D:test2.xls»

В кавычках указывается полный путь сохраняемого файла Excel, включая присваиваемое имя, в примере — это «test2.xls».

Обращение к открытой книге

Обращение к активной книге:

Обращение к книге с выполняемым кодом:

Обращение к книге по имени:

Workbooks(«test1.xls») Workbooks(«test2.xls»)

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

Открытая рабочая книга закрывается из кода VBA Excel с помощью метода Close:

Workbooks(«test1.xlsx»).Close

Если закрываемая книга редактировалась, а внесенные изменения не были сохранены, тогда при ее закрытии Excel отобразит диалоговое окно с вопросом: Вы хотите сохранить изменения в файле test1.xlsx? Чтобы файл был закрыт без сохранения изменений и вывода диалогового окна, можно воспользоваться параметром метода Close — SaveChanges:

Workbooks(«test1.xlsx»).Close  SaveChanges:=False

или

Workbooks(«test1.xlsx»).Close  (False)

Закрыть книгу Excel из кода VBA с сохранением внесенных изменений можно также с помощью параметра SaveChanges:

Workbooks(«test1.xlsx»).Close  SaveChanges:=True

или

Workbooks(«test1.xlsx»).Close (True)

---

Фразы для контекстного поиска: открыть книгу, открытие книги, создать книгу, создание книги, закрыть книгу, закрытие книги, открыть файл Excel, открытие файла 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

Юрий М Модератор Сообщений: 60570 Регистрация: 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 пишет: заменить пятую строку на: ошибку дает (

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	#5 06.09.2014 23:39:26 Цитата evgeniy_m пишет: ошибку дает Это не информация — всегда следует указывать — КАКУЮ ошибку получаете.

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

evgeniy_m Пользователь Сообщений: 109 Регистрация: 07.07.2014	макрос не компилируеться..

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле

The_Prist Пользователь Сообщений: 14181 Регистрация: 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

Юрий М Модератор Сообщений: 60570 Регистрация: 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 Пользователь Сообщений: 23249 Регистрация: 22.12.2012	#13 07.09.2014 00:05:00 скопировать лист (plan) в эту новую книгу — Код sheets("plan").copy получите новую книгу с одним листом, который затем можете переименовать. Только при таком копировании пострадают длинные строки в ячейках, если они конечно есть. Хотя в новых экселях не проверял…

evgeniy_m Пользователь Сообщений: 109 Регистрация: 07.07.2014	Суть такая, открываю книгу, запускаю макрос, создается новая книга и лист в ней. Теперь из 1-й книги нужно скопировать лист в новую книгу. Помогите пожалуйста

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	Согласен с Johny: ерунда получается — сначала имя листа «plan», затем «plan_191″…

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	evgeniy_m, у Дмитрия (The_Prist) очень хороший текст в подписи — прочитайте))

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

Hugo Пользователь Сообщений: 23249 Регистрация: 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

Юрий М Модератор Сообщений: 60570 Регистрация: 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 Пользователь Сообщений: 14181 Регистрация: 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 Пользователь Сообщений: 14181 Регистрация: 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 Пользователь Сообщений: 14181 Регистрация: 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 Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Как создать новую книгу с заданным именем?

​Смотрите также​​ книгу с заданным​ то как прописать​ ведущее к нервному​
​ end with​
​ указать, чтобы диапазон​ Range(«имя_папки»).Value & «»​ скопировать лист в​ берется ячейка не​ больше туда ничего​
​ от сгенерированного имени​Gustav, 14.01.2015 в​End Sub​
​ активный лист. А​The_Prist​

​ — прочитайте))​​: супер! Огромное спасибо​new_see​

​ кол-вом листов Application.SheetsInNewWorkbook​

CyberForum.ru

Создание новой книги макросом

​ макрос, чтобы он​​ срыву. Про шаблоны​with workbooks.add​ брался конкретно с​
​ & Range(«Книга») &​ новую книгу.​ работает?​ не добавлять, да​ присвойте ее объектной​ 15:45, в сообщении​Читаем внимательно правила​ т.к. Вы это​: что за ошибка​Alexander88​ !​
​: Как создать новую​ = tmp ‘вернуть​ все делал то​ согласен польностью без​.sheets(1)…​ первоначальной книги для​ «.xlsm»)​
​Помогите пожалуйста​

​evgeniy_m​​ и к тому​ переменной:​
​ № 5200?’200px’:»+(this.scrollHeight+5)+’px’);»>Я его​ форума​ делаете после создания​

​ — нам угадать?​​: Может проще создать​ПОмогите еще с​ книгу с заданным​ значение свойстваКстати, добавлять​ же самое, за​ комментариев :)​…​

​ именования…?​​Спасибо​

​Юрий М​​: макрос не компилируеться..​ же отчеты содержат​Set MyTempWb=workbooks.add и​ дополнительно раскрасил множественными​

​Особенно п.п.3​​ новой книги -​Да и скобки​ копию книги, а​ одним моментом, книгу​

​ именем?​​ листы в существующую​

​ исключением копирования данной​​Резюме: Моя хотелка​

​end with​​Спасибо за ссылочку))​Honey​: Согласен с Johny:​Юрий М​

​ по несколько листов,​​ обращайтесь к ней​ областями:​
​Hugo​ то активна именно​ здесь лишние. В​ потом удалить листы​ создал, обозвал её​Например​ книгу тоже можно​ кнопки. Проще говоря​ не реализуется без​Guest​The_Prist​
​: Люди добрые!​ ерунда получается -​: Мой вариант проверяли?​ а работа в​ дальше MyTempWb.sheets(1)…​Красиво раскрасил, но​: В новый эксель​ она, а не​ VBA методы без​ кроме нужного?​ как Вы помогли,​Sub CreateWorkbook() Set​ не по одному:​ — без этой​ дополнительных телодвижений. Тема​: Есть файл данных​: нет. Я же​

​Помогите с проблемой​​ сначала имя листа​The_Prist​ одной книге с​Или с помощью​

​ оказалось достаточным кода​​ вставить скопированные столбцы​ что-то там где-то​ присвоения результата переменной​Hugo​ теперь беда… Хочу​ NewWorkbook = Workbooks.Add​ Sheets.Add after:=ActiveSheet, Count:=200Параметр​ кнопки.​

​ закрыта.​​ в процессе работы​ написал, что указание​ выше, пожалуйста… Интернет​
​ «plan», затем «plan_191″…​: evgeniy_m, Лист1 в​ 30-40 листами удовольствие​ конструкции with …​
​ у alex77755)​ будет проблематично -​ еще. Видимо, читали​ указываются без скобок:​: Кстати хороший вариант​ с книги откуда​ End Subсоздает книгу​

​ Count тоже в​​Прикрепил файл​Спасибо всем за​ создаются отчеты (промежуточные),​ Range без явного​ обыскала ничего не​Юрий М​ книге с макросом​ ведущее к нервному​
​ end with​

​Друзья,​​ вставляйте в тот​ либо не все,​New_Wb.SaveAs Range(«O6») &​ сделать копию файла,​

​ запускал макрос скопировать​​ с именем по​ пределах 1..255.​gling​ помощь!​

​ которые открываются в​​ указания листа и​ получается(((​: evgeniy_m, у Дмитрия​ присутствует? Что означает​

​ срыву. Про шаблоны​​with workbooks.add​огромное спасибо​ же эксель. Т.е.​ либо не то,​ «» & Range(«Книга»)​ его открыть, поудалять​

​ лист (plan) в​​ умолчанию,​Hugo121​: Пропишите так​ikki​ новых книгах. После​ книги в Вашем​Вся надежда на​ (The_Prist) очень хороший​ «макрос не компилируется»?​ согласен польностью без​.sheets(1)…​за помощь! Я​ Ваш код почти​

​ либо не так.​​ & «.xlsm»​
​ лишнее. Так и​ эту новую книгу​а как изменить​: На практике обычно​200?’200px’:»+(this.scrollHeight+5)+’px’);»>shSmeta.Copy Before:=bkNew.Sheets(1)​: гм…​ работы все это​ случае указывает на​

​ Вас​​ текст в подписи​evgeniy_m​

​ комментариев :)​​…​

​ недели две блуждал​​ полностью не годится,​
​ New_Wb.SaveAs ThisWorksbook.Sheets(«1 норм»).Range(«O6»)​плюс очень желательно​ строки не пострадают,​ с созданым листом​ имя, чтобы создалась​ нужно​ActiveSheet.Shapes(«Button 1»).Delete​а вот так?​ без сохранения удаляется.​
​ активный лист. А​The_Prist​
​ — прочитайте))​: супер! Огромное спасибо​Резюме: Моя хотелка​end with​ в интернете и​ нужно переписывать.​
​ & «» &​
​ указывать формат файла​ и связи…​ «plan_191».​ не ‘Книга1’,​Set xlWb =​bkNew.SaveAs ThisWorkbook.Path &​Sub xx()​
​ Проблема в том,​

​ т.к. Вы это​​: что за ошибка​
​Alexander88​ !​ не реализуется без​Guest​
​ не мог найти​alex77755​

​ ThisWorksbook.Sheets(«1 норм»).Range(«Книга») &​​ явно:​evgeniy_m​
​Dim sShName As​а например ‘Моя​ Workbooks.Add(1) ‘создать книгу​ «» & CStr(shAct.Range(«B19»).Value)​Set wb =​
​ что когда отчетов​ делаете после создания​ — нам угадать?​
​: Может проще создать​ПОмогите еще с​ дополнительных телодвижений. Тема​
​: Есть файл данных​ подходящий код, все​:​
​ «.xlsm», 52​New_Wb.SaveAs Range(«O6») &​

​: Dim sShName As​​ String, sAddress As​ книга’​
​ с одним листомДалее​ & «.xlsx»​ Workbooks.Add​

​ 10 и более,​​ новой книги -​Да и скобки​ копию книги, а​ одним моментом, книгу​ закрыта.​ в процессе работы​ остальные не подходили,​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Public Sub nytfjdkt()​Дмитрий_С​ «» & Range(«Книга»)​
​ String, sAddress As​ String, vData Dim​new_see​ можно листы добавить,​bkNew.Close​wb.Windows(1).Caption = «fryerye»​ а все названия​ то активна именно​ здесь лишние. В​ потом удалить листы​ создал, обозвал её​Спасибо всем за​
​ создаются отчеты (промежуточные),​ а ошибку в​

​Dim oWbk As​​: Добрый день!​ & «.xlsm», 52​ String, vData Dim​

​ objThisBook As Object​​: NewWorkbook.Windows(1).Caption = ‘Моя​
​ но это нужно​Но думаю что​End Sub​ Книга1, Книга2 и​ она, а не​ VBA методы без​ кроме нужного?​ как Вы помогли,​ помощь!​ которые открываются в​ них я не​ Excel.Workbook​У меня имеется​52 — формат​
​ objThisBook As Object​

​ Set objThisBook =​​ книга’​ редко.​ лучше кнопку и​YuryK​ т.д. запомнить где​ что-то там где-то​ присвоения результата переменной​Hugo​ теперь беда… Хочу​ikki​ новых книгах. После​ мог найти. Данный​Dim oSheet As​ файл из которого​ xslm.​ Set objThisBook =​ GetObject.ActiveWorkbook sAddress =​спасибо​Serg_FSM​ список выбора сметы​: А вот так​

planetaexcel.ru

Как вставить данные из старой книги в новую созданную книгу (Макросы/Sub)

​ какой очень проблематично,​​ еще. Видимо, читали​
​ указываются без скобок:​: Кстати хороший вариант​ с книги откуда​: гм…​ работы все это​
​ код это именно​ Excel.Worksheet​ мне необходимо скопировать​Honey​ GetObject(«d:test.xls») sAddress =​ «A1:AA6000» vData =​evgeniy_m​: Приветствую.​ разместить вверху сметы.​ получилось именно то,​ приходится все книги​
​ либо не все,​New_Wb.SaveAs Range(«O6») &​
​ сделать копию файла,​
​ запускал макрос скопировать​
​а вот так?​ без сохранения удаляется.​ то, что мне​
​Dim Sh As​
​ некоторые столбцы в​
​: The_Prist, спасибо, что​ "A1:AA6000" vData =​
​ objCloseBook.Sheets("plan").Range(sAddress).Value objThisBook.Close False​
​: Доброе время суток.​
​Помогите с такой​
​ Кнопку привязать к​ что нужно.​ перебирать, вот и​
​ либо не то,​ "" & Range("Книга")​
​ его открыть, поудалять​ лист (plan) в​Sub xx()​
​ Проблема в том,​ надо. Всё работает!​
​ Excel.Worksheet​ новую созданную книгу.​
​ откликнулись!​ objThisBook.Sheets("abs_plan").Range(sAddress).Value Sheets("abs_plan_191").Range("A1").Resize(UBound(vData, 1),​
​ Sheets("plan_191").Range("A1").Resize(UBound(vData, 1), UBound(vData,​ Есть книга, в​ проблемой: нужно програмно​
​ строкам и при​Спасибо огромное!​ хочется имена присваивать.​
​ либо не так.​ & ".xlsm"​
​ лишнее. Так и​ эту новую книгу​Set wb =​
​ что когда отчетов​Hugo​Set Sh =​Данный код нашел​Ошибка Runtime error​ UBound(vData, 2)).Value =​
​ 2)).Value = vDataно​

​ ячейке А1 значение.​ создать новую рабочую​
​ копировании сметы удалять​

​den45444​​А без сохранения​ New_Wb.SaveAs ThisWorksbook.Sheets(«1 норм»).Range(«O6»)​плюс очень желательно​ строки не пострадают,​ с созданым листом​ Workbooks.Add​ 10 и более,​: Т.е. нужно было​

​ ActiveSheet​​ в интернете, не​​ 1004:: Method 'Range'​
​ vDataВот написал, все​ на строке Set​
​Sub New2() Dim​ книгу Excel, но​
​ верхнею строку или​: Есть макрос на​
​ никак? В принципе​ & "" &​
​ указывать формат файла​ и связи...​
​ "plan_191".​wb.Windows(1).Caption = "fryerye"​
​ а все названия​ только вот это?​Set oWbk =​
​ могу в нем​ of Global Failed​ отлично работает, но​
​ objThisBook = GetObject.ActiveWorkbook​
​ New_Wb As Workbook​

​ при этом с​​ строки. Удалится и​ создание новой книги.​

​ вопрос не критичный,​​ ThisWorksbook.Sheets(«1 норм»).Range(«Книга») &​ явно:​evgeniy_m​Dim sShName As​End Sub​ Книга1, Книга2 и​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub tt()​ Workbooks.Add()​ сделать новую книгу​The_Prist​​ копирует без сохранения​​ дает ошибку…. как​ Set New_Wb =​
​ определенным именем (а​
​ список и кнопка​
​ Его нужно немного​ но не хочется​
​ ".xlsm", 52​
​New_Wb.SaveAs Range("O6") &​: Dim sShName As​
​ String, sAddress As​
​YuryK​ т.д. запомнить где​Dim r As​Set oSheet =​
​ активной чтобы в​: А Вы вдумайтесь​ параметров ячеек...​
​ мне указать, что​ Workbooks.Add New_Wb.Activate New_Wb.SaveAs​
​ не тем что​
​ вызова макроса.​
​ изменить под условие.​

​ каждый раз выбирать​​YuryK​ «» & Range(«Книга»)​ String, sAddress As​
​ String, vData Dim​​: А вот так​ какой очень проблематично,​ Range​ oWbk.Worksheets(«Лист1») ‘Находим Лист1​ ней работать, например​
​ в ошибку. В​Johny​ нужно копировать лист​
​ («D:test» & «1»​​ Excel предлагает по​​den45444​Подробно:​ в проводнике пусть​: Добрый день! Прошу​ & «.xlsm», 52​ String, vData Dim​ objThisBook As Object​ получилось именно то,​ приходится все книги​’——Копирование столбцов из​oSheet.Name = «Новый​ как вставить данные​

​ Google-переводчик закиньте. Тогда​​: Так?​ из книги откуда​
​ & ".xls") New_Wb.Close​
​ умолчанию), без использования​:​
​- Есть книга​ и сохранять, а​ помощи в таком​
​52 - формат​ objThisBook As Object​
​ Set objThisBook =​
​ что нужно.​


excelworld.ru

Можно ли создать Workbook со своим именем?

​ перебирать, вот и​​ старой книги в​ лист» ‘Присваиваем ему​ из буфера обмена,​ видно будет, что​Sub F() Dim​
​ запускался макрос….?​ End SubЗапускаю макрос,​ шаблона и без​gling​ и в этой​ потом так же​ вопросе. Создаю книги​ xslm.​ Set objThisBook =​ GetObject.ActiveWorkbook sAddress =​Спасибо огромное!​
​ хочется имена присваивать.​ новую книгу———-​

​evgeniy_m​​А без сохранения​Set r =​’——Копирование столбцов из​ остается та из​ в том, что​ Sheets(«plan»).Copy Set wkbNew​: Ничего не понятно​ сохраняется по пути​ это вот для​RAN​ «Смета» и есть​LightZ​
​ Workbooks.Add​: The_Prist, спасибо, что​ «A1:AA6000» vData =​
​ objCloseBook.Sheets(«plan»).Range(sAddress).Value objThisBook.Close False​: Доброе время суток.​ никак? В принципе​
​ ActiveSheet.Range(«A:H»)​
​ старой книги в​
​ которой копирую столбцы​
​ нет диапазона «Книга»​

​ = ActiveWorkbook wkbNew.Sheets(1).Name​​ (а в приложенном​ D:test, присваивается имя​ чего: обработчик события​:​ кнопка на другом​: Попробуйте такой вариант…​Возможно ли создать​ откликнулись!​ objThisBook.Sheets(«abs_plan»).Range(sAddress).Value Sheets(«abs_plan_191»).Range(«A1»).Resize(UBound(vData, 1),​ Sheets(«plan_191»).Range(«A1»).Resize(UBound(vData, 1), UBound(vData,​ Есть книга, в​ вопрос не критичный,​r.Copy Workbooks.Add.Sheets(1).Range(«A1»)​ новую книгу———-​Помогите, пожалуйста. (В​ или «Об» или​ = «plan_191» wkbNew.SaveAs​
​ макросе вообще какая-то,​ 1.xls и закрывается.​ проверяет есть ли​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Макрос1()​ листе «создать новую​Dim x As​ книгу с именем​Ошибка Runtime error​ UBound(vData, 2)).Value =​

​ 2)).Value = vDataно​​ ячейке А1 значение.​
​ но не хочется​End Sub​
​Sh.Range(«A:H»).Copy oSheet.Range(«A1»)​ VBA я новичок)​
​ другого, чего Вы​ «D:test» & ThisWorkbook.Sheets(«Лист1»).Range(«A1»)​
​ извините, ерунда).​Проблема в следующем,​
​ среди открытых книг​’ отключить копирование​
​ смету».​
​ String​
​ отличным от КнигаN.​

​ 1004:: Method ‘Range’​​ vDataВот написал, все​ на строке Set​Sub New2() Dim​ каждый раз выбирать​YuryK​End Sub​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​ пишите в Range.​ & «.xls» End​Юрий М​ как переписать макрос,​ книга с определенным​
​ объектов​
​- Нажимая на​

​Dim i As​​ Или как-то переименовать​ of Global Failed​ отлично работает, но​ objThisBook = GetObject.ActiveWorkbook​ New_Wb As Workbook​ в проводнике пусть​: Добрый день! Прошу​alex77755​Public Sub nytfjdkt()​Так же надо​ Sub​: Sub New2() Dim​ чтобы новая книга​ именем, если есть​Application.CopyObjectsWithCells = False​ этот макрос, создается​ Long​ созданную книгу сразу​The_Prist​
​ копирует без сохранения​ дает ошибку…. как​ Set New_Wb =​ и сохранять, а​
​ помощи в таком​: А надо ли​

​On Error Resume​​ после создания. Основная​: А Вы вдумайтесь​ параметров ячеек…​
​ мне указать, что​

planetaexcel.ru

Создание новой книги макросом

​ Workbooks.Add New_Wb.Activate New_Wb.SaveAs​​ потом так же​ вопросе. Создаю книги​ их туда ложить?​
​ старой книги в​ Range явного указания​: evgeniy_m, Вы читаете,​ Set New_Wb =​ как в ячейке​ нее новые данные,​ объектов​ лист «Смета» копируется​ Next​ сложность (для меня)​ в ошибку. В​
​Johny​ нужно копировать лист​ («D:test» & «1»​ удалять.​ из vba коммандой​Gustav​ новую книгу———-​
​ для него листа​

​ что Вам пишут?​​ Workbooks.Add ThisWorkbook.Sheets(«plan»).Copy New_Wb.Sheets.Add​ А1 книги, с​
​ если нет, то​Application.CopyObjectsWithCells = True​ в эту книгу,​

​For i =​​ в том, что​ Google-переводчик закиньте. Тогда​: Так?​ из книги откуда​ & «.xls») New_Wb.Close​LightZ​ Workbooks.Add​

​: Вставлю свои 5​​Range(«A:H,S:S,U:U,W:W,AQ:AQ,AE:AE,AF:AF,AY:AY,BA:BA,BG:BG,BH:BH,BI:BI»).Select​

​ и книги подразумевает​​evgeniy_m​ After:=New_Wb.Sheets(Sheets.Count) New_Wb.SaveAs («D:test»​ которой запускается макрос?​ он сначала ее​

​End Sub​​ сохраняет и закрывает.​ 1 To 10​ книгу надо переназвать,​ видно будет, что​

​Sub F() Dim​​ запускался макрос….?​

​ End SubЗапускаю макрос,​​: Попробуйте такой вариант…​

​Возможно ли создать​​ копеек. Для создания​’Range( _​ обращение к АКТИВНОЙ​: Johny, спасибо!​

​ & ThisWorkbook.Sheets(«Лист1»).Range(«A1») &​​Заранее спасибо!​ создает и затем​
​PuLbKa​- Название новой​x = Application.UserName​ но не надо​ у Вас проблема​ wkbNew As Workbook​Johny​ создается новая книга​Dim x As​ книгу с именем​ новой книги новый​
​»Таблица_beta_newbooksql_Rebus_vwDefect[[#Headers],[Сумма дельта приходная,​ книге. А Вы​Honey​ «.xls») New_Wb.Close End​Alexander88​ добавляет данные.​: Не могу понять​ книги указывается в​ & i​ сохранять.​ в том, что​ Sheets(«plan»).Copy Set wkbNew​: Ничего не понятно​ сохраняется по пути​ String​ отличным от КнигаN.​ Excel не нужен.​

​ руб.]]» _​​ её только что​: Всем привет!​ Sub​: Попробуйте заменить пятую​

​serb​​ как задать количество​ самом макросе, т.е.​Next​Заранее благодарен за​ нет диапазона «Книга»​ = ActiveWorkbook wkbNew.Sheets(1).Name​ (а в приложенном​ D:test, присваивается имя​

​Dim i As​​ Или как-то переименовать​ И в буфер​).Activate​
​ создали. Следовательно там​Надеюсь мой вопрос​Hugo​ строку на:​
​: Создайте новую процедуру​ страниц при создании​ всегда под одним​Workbooks.Add​ любую помощь!​ или «Об» или​ = «plan_191» wkbNew.SaveAs​

​ макросе вообще какая-то,​​ 1.xls и закрывается.​ Long​ созданную книгу сразу​ обмена через Selection.Copy​Selection.Copy​ НЕТ ИМЕНОВАННЫХ ДИАПАЗОНОВ,​ здесь уместен. Я​: скопировать лист (plan)​
​New_Wb.SaveAs («D:test» &​

​ УпрЛабРаб9, которая должна​​ нового excel-файла​ названием.​ActiveWorkbook.SaveAs Filename:=x​vikttur​

​ другого, чего Вы​​ «D:test» & ThisWorkbook.Sheets(«Лист1»).Range(«A1»)​ извините, ерунда).​Проблема в следующем,​On Error Resume​

​ после создания. Основная​​ — тоже не​’————СОЗДАНИЕ НОВОЙ КНИГИ—————​ да и вообще​ под основу взяла​

​ в эту новую​​ Cells(1, 1) &​ выполнить следующие действия:​Содаю я его​А мне нужно​KuklP​: В чем разница:​

​ пишите в Range.​​ & «.xls» End​Юрий М​ как переписать макрос,​ Next​ сложность (для меня)​ наш метод. Наш​Dim oExcel As​ данных.​ код, предлагаемый здесь.​ книгу -​ «.xls»)​• создать новую​ так​

​ так, чтобы название​​: Полный изврат. Почему​
​- создали книгу,​Так же надо​ Sub​: Sub New2() Dim​ чтобы новая книга​For i =​ в том, что​ метод — как​

​ New Excel.Application ‘Запускаем​​Советую очень внимательно​ Но его чуток​

​sheets(«plan»).copy получите новую​​Юрий М​

​ рабочую книгу;​​Dim xlWb As​
​ новой книги бралось​ не создавать листы​ не сохранили, больше​ помнить, что указание​Юрий М​ New_Wb As Workbook​ сохранялась с названием​ 1 To 10​ книгу надо переназвать,​
​ у​ Excel​
​ изучить:​ видоизменила. И теперь​ книгу с одним​: Sub New2() Dim​• вставить в​ Excel.Workbook Set xlWb​
​ с ячейки (в​
​ а не книги?​ никаких действий;​ Range явного указания​: evgeniy_m, Вы читаете,​ Set New_Wb =​ как в ячейке​x = Application.UserName​
​ но не надо​

​alex77755​​oExcel.Visible = True​
​Honey​ у меня проблема-выдает​ листом, который затем​ New_Wb As Workbook​
​ эту книгу новый​ = Workbook.Add​

​ примере видно -​​ И именуйте их​- создали книгу,​
​ для него листа​ что Вам пишут?​ Workbooks.Add ThisWorkbook.Sheets(«plan»).Copy New_Wb.Sheets.Add​ А1 книги, с​ & i​
​ сохранять.​. Я его дополнительно​ ‘Делаем его видимым​
​: Во вложении файл,​ ошибку на строку​ можете переименовать.​
​ Set New_Wb =​ рабочий лист;​Все получилось​
​ ячейка E7)​ как хотите. А​

​ переименовали, сохранили, больше​​ и книги подразумевает​evgeniy_m​
​ After:=New_Wb.Sheets(Sheets.Count) New_Wb.SaveAs («D:test»​ которой запускается макрос?​Next​

​Заранее благодарен за​​ раскрасил множественными областями:​Dim oWbk As​ в котором этот​ New_Wb.SaveAs​Только при таком​ Workbooks.Add New_Wb.Activate New_Wb.SaveAs​• дать новому​S.V.I.N.​Пример прикрепляю.​ уже потом, то​
​ никаких действий?​ обращение к АКТИВНОЙ​: Johny, спасибо!​ & ThisWorkbook.Sheets(«Лист1»).Range(«A1″) &​Заранее спасибо!​Workbooks.Add​ любую помощь!​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub copy2()​ Excel.Workbook ‘Создаем новую​ самый макрос (модуль)​А сам код​ копировании пострадают длинные​
​ («D:test» & ThisWorkbook.Sheets(«Лист1»).Range(«A1»)​ рабочему листу ваше​

​: Количество страниц можно​​Жду помощи.​ что нужно, переносить​Если книга не​

​ книге. А Вы​​Honey​
​ «.xls») New_Wb.Close End​Alexander88​ActiveWorkbook.SaveAs Filename:=x​vikttur​Dim oSheetAs Worksheet​ книгу Книга1​Honey​ вот​ строки в ячейках,​ & «.xls») New_Wb.Close​ имя;​ увеличивать следующим образом.​ShAM​ в новую книгу​
​ нужна, ее можно​

​ её только что​​: Всем привет!​ Sub​: Попробуйте заменить пятую​KuklP​: В чем разница:​Dim srcRange As​Set oWbk =​: The_Prist,​Dim New_Wb As​ если они конечно​ End Sub​• сохранить рабочую​for i=0 to​: Замените:​ и сохранять ее.​ после определенных с​ создали. Следовательно там​Надеюсь мой вопрос​Hugo​ строку на:​: Полный изврат. Почему​

planetaexcel.ru

Можно ли создать Workbook со своим именем?

​- создали книгу,​​ Range​ oExcel.Workbooks.Add()​Об этом я​ Workbook Set New_Wb​ есть. Хотя в​
​evgeniy_m​ книгу под именем​ x With New_Ex​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Const strNewBook As String​ Или насоздавайте шаблонов(изврат,​ ней действий удалить.​ НЕТ ИМЕНОВАННЫХ ДИАПАЗОНОВ,​ здесь уместен. Я​: скопировать лист (plan)​New_Wb.SaveAs («D:test» &​ не создавать листы​
​ не сохранили, больше​Dim areaAs Range​

​ а не книги?​​ никаких действий;​Set srcRange =​ Excel.Worksheet​ я чего-то не​ New_Wb.SaveAs (Range(«O6») &​ проверял…​Юрий М​Выполните процедуру. Откройте​ With next iгде​ нового файла​ хочется…) и добавляйте:​ как и создали.​
​ данных.​ код, предлагаемый здесь.​ книгу -​
​ «.xls»)​ И именуйте их​- создали книгу,​
​ Intersect(ActiveSheet.UsedRange, _​
​Set oSheet =​
​ понимаю((( У меня​
​ «» & Range(«Книга»)​

​evgeniy_m​​: Это не информация​ рабочую книгу УпрЛабРаб9​ х — это​на: Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim strNewBook​Workbooks.Add Template:= «C:Templatesежик.xlt»​KuklP​Советую очень внимательно​ Но его чуток​sheets(«plan»).copy получите новую​Юрий М​ как хотите. А​ переименовали, сохранили, больше​Range(«A:H,S:S,U:U,W:W,AQ:AQ,AE:AE,AF:AF,AY:AY,BA:BA,BG:BG,BH:BH,BI:BI»))​ oWbk.Worksheets.Item(«Лист1») ‘Находим Лист1​ есть такие диапазоны.​ & «.xlsm»)​: Суть такая, открываю​
​ — всегда следует​ и введите несколько​ кол-во циклов (требуемое​ As String​:-)​: А какой в​ изучить:​ видоизменила. И теперь​ книгу с одним​

​: Sub New2() Dim​​ уже потом, то​
​ никаких действий?​Set oSheet =​
​oSheet.Name = «Новый​ И я ведь​
​либо​ книгу, запускаю макрос,​
​ указывать — КАКУЮ​ значений в рабочий​
​ кол-во листов)​strNewBook = [e7].Value​
​Guest​
​ этом смысл, если​
​Honey​

​ у меня проблема-выдает​​ листом, который затем​ New_Wb As Workbook​ что нужно, переносить​Если книга не​ Workbooks.Add.Worksheets(«Лист1″) ‘Создаем новую​ лист» ‘Присваиваем ему​ указываю на имена​Dim New_Wb As​ создается новая книга​ ошибку получаете.​ лист с вашим​Казанский​
​ & «.xlsx» ‘имя​
​: Согласен и нет​

​ сохранятm ее не​​: Во вложении файл,​ ошибку на строку​ можете переименовать.​ Set New_Wb =​ в новую книгу​ нужна, ее можно​ книгу и находим​ имя «Новый лист»​ диапазонов не в​ Workbook Set New_Wb​ и лист в​Alexander88​ именем. Создайте новую​: Ладно, раз ТС​ нового файла​ одновременно. Листы можно,​ надо? Предполагаю, что​ в котором этот​ New_Wb.SaveAs​
​Только при таком​ Workbooks.Add New_Wb.Activate New_Wb.SaveAs​ и сохранять ее.​ после определенных с​
​ Лист1​Dim oRange As​

​ нужно Вам совсем​​ самый макрос (модуль)​А сам код​ копировании пострадают длинные​
​ («D:test» & ThisWorkbook.Sheets(«Лист1»).Range(«A1»)​

planetaexcel.ru

Создание новой книги (название книги из ячейки) (Макросы/Sub)

​ Или насоздавайте шаблонов(изврат,​​ ней действий удалить.​oSheet.Name = «Новый​ Range ‘Находим диапазон​ как мне конкретней​
​ New_Wb.SaveAs («M:ProductionМастера2017Нормализация» &​
​ 1-й книги нужно​ с указанием откуда​ СохрЛабРаб9. Эта процедура​ там у него​: Смотрите прикрепленный файл​ т.к. в основном​ не это. Что​
​Honey​ вот​ строки в ячейках,​ & «.xls») New_Wb.Close​ но если очень​ Так же незаметно,​
​ лист» ‘Присваиваем ему​ A1 в Книга1​ указать, чтобы диапазон​ Range(«имя_папки»).Value & «»​ скопировать лист в​
​ берется ячейка не​ должна определить, сохранена​ получилось, я напишу,​den45444​ файле их хватает​ бы дальше в​
​: The_Prist,​
​Dim New_Wb As​

​ если они конечно​​ End Sub​​ хочется...) и добавляйте:​ как и создали.​ имя "Новый лист"​
​Set oRange =​ брался конкретно с​
​ & Range(«Книга») &​ новую книгу.​ работает?​

​ ли рабочая книга​​ как буквально «задать»:​

​:​​ и суть именно​​ коде обращаться к​​Об этом я​​ Workbook Set New_Wb​​ есть. Хотя в​evgeniy_m​
​Workbooks.Add Template:= «C:Templatesежик.xlt»​KuklP​For Each area​ oSheet.Range(«A1»)​ первоначальной книги для​ «.xlsm»)​Помогите пожалуйста​evgeniy_m​ после внесе¬ния в​ Dim tmp tmp​ShAM​ в том чтобы​
​ новой книге независимо​

​ читала… Видимо, действительно,​​ = Workbooks.Add New_Wb.Activate​​ новых экселях не​
​: ошибку дает (​
​:-)​: А какой в​ In srcRange.Areas​
​'----------На данном этапе​

​ именования…?​Спасибо​Юрий М​: макрос не компилируеться..​ нее изменений. Если​ = Application.SheetsInNewWorkbook ‘сохранить​,​ больше туда ничего​ от сгенерированного имени​ я чего-то не​ New_Wb.SaveAs (Range(«O6») &​

​ проверял…​​Юрий М​​Guest​​ этом смысл, если​

​area.Copy oSheet.Range(area.Address)​​ я хочу вставить​​Спасибо за ссылочку))​
​Honey​: Согласен с Johny:​
​Юрий М​
​ книга была сохранена,​ свойство "число листов​
​Karataev​
​ не добавлять, да​


excelworld.ru

Задать количество листов при создании нового excel-файла

​ присвойте ее объектной​​ понимаю((( У меня​ «» & Range(«Книга»)​evgeniy_m​: Это не информация​
​: Согласен и нет​ сохранятm ее не​
​Next​ данные из буфера​The_Prist​
​: Люди добрые!​

​ ерунда получается -​​: Мой вариант проверяли?​ то должно выводиться​
​ в новой книге»​, Благодарю за скорую​ и к тому​ переменной:​ есть такие диапазоны.​ & «.xlsm»)​: Суть такая, открываю​

​ — всегда следует​​ одновременно. Листы можно,​ надо? Предполагаю, что​End Sub​oRange.Value = «Начиная​: нет. Я же​Помогите с проблемой​ сначала имя листа​The_Prist​ окно с соот¬ветствующим​ Application.SheetsInNewWorkbook = 200​ помощь.​ же отчеты содержат​Set MyTempWb=workbooks.add и​ И я ведь​либо​ книгу, запускаю макрос,​ указывать — КАКУЮ​ но не хочется​ нужно Вам совсем​Дмитрий_С​ с этой ячейки​ написал, что указание​ выше, пожалуйста… Интернет​ «plan», затем «plan_191″…​

​: evgeniy_m, Лист1 в​​ сообщением. Выполните эту​ ‘установить новое значение​
​А если эту​ по несколько листов,​ обращайтесь к ней​ указываю на имена​Dim New_Wb As​ создается новая книга​

CyberForum.ru

Создание новой книги Excel с заданным именем

​ ошибку получаете.​​ т.к. в основном​
​ не это. Что​: Благодаря твоему коду​ я хочу вставить​ Range без явного​ обыскала ничего не​Юрий М​ книге с макросом​ процедуру.​ свойства в пределах​ кнопку поставить на​ а работа в​ дальше MyTempWb.sheets(1)…​ диапазонов не в​ Workbook Set New_Wb​ и лист в​Alexander88​ файле их хватает​ бы дальше в​ оказалось что не​ диапазон из буфера»​ указания листа и​ получается(((​: evgeniy_m, у Дмитрия​

CyberForum.ru

Создать новую рабочую книгу

​ присутствует? Что означает​​Alex77755​ 1..255 Set xlWb​ тот лист который​
​ одной книге с​Или с помощью​
​ ново-созданной книге. Или​ = Workbooks.Add New_Wb.Activate​ ней. Теперь из​
​: И пример Юрия​ и суть именно​ коде обращаться к​
​ надо!​ ‘вносим в него​ книги в Вашем​
​Вся надежда на​ (The_Prist) очень хороший​ «макрос не компилируется»?​: А что мешает​ = Workbooks.Add ‘создать​ копируется (лист «Смета»),​ 30-40 листами удовольствие​ конструкции with …​ как мне конкретней​ New_Wb.SaveAs («M:ProductionМастера2017Нормализация» &​ 1-й книги нужно​ с указанием откуда​ в том чтобы​ новой книге независимо​Цитата​ данные​ случае указывает на​

​ Вас​​ текст в подписи​evgeniy_m​

CyberForum.ru

​ включить макрорекордер?​

На чтение 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. Измените имя листа, диапазон ячеек, и место сохранения файла.