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

---

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

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

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

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

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

---

---

---

---

---

---

---

В этом руководстве будет показано, как получить и установить имя книги в VBA.

Мы можем получить или установить имя активной книги в VBA или пройти через все открытые книги в Excel и получить или установить имя каждой из них с помощью цикла VBA.

Получить название книги

Чтобы получить имя активной книги, нам нужно использовать свойство name объекта workbooks.

12345

Sub GetWorkbookName ()Dim strWBName As StringstrWBName = ActiveWorkbook.NameMsgBox strWBNameКонец подписки

Если бы мы запустили приведенный выше код, мы бы увидели на экране окно сообщения с именем активной книги.

Чтобы просмотреть все активные книги и вернуть имена книг в Excel, мы можем запустить следующий код:

1234567

Sub GetWorkbookNames ()Dim wb As WorkbookДля каждого ББ в книгахActiveCell = wb.NameActiveCell.Offset (1, 0) .SelectСледующийКонец подписки

В приведенных выше примерах будет указано расширение файла (например, xlsx). Если вы не хотите включать расширение, мы можем использовать несколько методов, чтобы получить только имя файла книги.

Получить имя книги без расширения

Мы можем использовать функции LEFT и INSTR для удаления любых символов после точки в имени файла:

12345

Sub GetWorkbookName ()Dim strWBName As StringstrWBName = Left (ActiveWorkbook.Name, InStr (ActiveWorkbook.Name, «.») — 1)MsgBox strWBNameКонец подписки

Мы можем использовать функции LEFT и LEN, чтобы удалить 5 символов из конца имени файла:

12345

Sub GetWorkbookName ()Dim strWBName As StringstrWBName = Left (ActiveWorkbook.Name, Len (ActiveWorkbook.Name) — 55)MsgBox strWBNameКонец подписки

Установка имени книги

Чтобы установить имя книги в VBA, мы по-прежнему используем свойство Name книги, однако мы не можем использовать этот метод для изменения имени активной книги. Это связано с тем, что активная книга открыта, и произойдет ошибка доступа к файлу. Чтобы преодолеть это, мы можем сохранить файл с новым именем, а затем удалить старый файл.

12345678910

Public Sub SetWorkbookName ()Dim strPath как строкаDim strNewName As StringDim strOldName как строкаstrOldName = ActiveWorkbook.NamestrNewName = InputBox («Введите новое имя книги»)strPath = ActiveWorkbook.PathActiveWorkbook.SaveAs strPath & «/» & strNewNameУбить strPath & «/» & strOldNameКонец подписки

Чтобы переименовать закрытую книгу, мы можем использовать метод Name.

123	Общедоступная подпрограмма RenameWorkbook ()Назовите «C: Data MyFile.xlsx» как «C: Data MyNewFile.xlsx»Конец подписки

Вы поможете развитию сайта, поделившись страницей с друзьями