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

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

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

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