Макрос на создание новой книги 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 Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Открытие книги 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, существование книги, обратиться к открытой книге.

---

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.

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

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

​Смотрите также​​ книгу с заданным​ то как прописать​ ведущее к нервному​
​ 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

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

Работа с книгой 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

На чтение 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. Создание новой рабочей книги с нуля

Что делает макрос Следующий макрос копирует диапазон ячеек из активного листа и вставляет данные в новую книгу. Код макроса Sub Macros1()     Sheets("Example 1").Range("B4:C15").Copy '1 копируем данные с листа     Workbooks.Add                            '2 создаем новую книгу     ActiveSheet.Paste                        '3 вставляем данные     Application.DisplayAlerts = False        '4 отключаем системные сообщения     ActiveWorkbook.SaveAs Filename:="C:ОтчётыОтчёт на 2016.xlsx" '5 сохраняем по нужному адресу     Application.DisplayAlerts = True         '6 включаем системные сообщения 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 будет подавлять все предупреждения, что не допустимо.

1 2 3 4 5 Категория: Работа с книгами

Просмотров: 2513