Excel vba создать новую книгу

VBA Excel. Рабочая книга (открыть, создать новую, закрыть)

Открытие книги Excel из кода VBA. Создание новой книги, присвоение ей имени. Обращение к открытой книге и закрытие. Методы Open, Add и Close объекта Workbooks.

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

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

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

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

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

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

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

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

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

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

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

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

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

Как закрыть книгу Excel из кода VBA

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

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

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

Excel vba создать новую книгу

У меня имеется файл из которого мне необходимо скопировать некоторые столбцы в новую созданную книгу.

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

Помогите, пожалуйста. (В VBA я новичок)

200?’200px’:»+(this.scrollHeight+5)+’px’);»>
Public Sub nytfjdkt()

‘——Копирование столбцов из старой книги в новую книгу———-
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
‘ Range( _
«Таблица_beta_newbooksql_Rebus_vwDefect[[#Headers],[Сумма дельта приходная, руб.]]» _
).Activate
Selection.Copy
‘————СОЗДАНИЕ НОВОЙ КНИГИ—————

Dim oExcel As New Excel.Application ‘Запускаем Excel
oExcel.Visible = True ‘Делаем его видимым
Dim oWbk As Excel.Workbook ‘Создаем новую книгу Книга1
Set oWbk = oExcel.Workbooks.Add()
Dim oSheet As Excel.Worksheet
Set oSheet = oWbk.Worksheets.Item(«Лист1») ‘Находим Лист1
oSheet.Name = «Новый лист» ‘Присваиваем ему имя «Новый лист»
Dim oRange As Range ‘Находим диапазон A1 в Книга1
Set oRange = oSheet.Range(«A1»)

‘———-На данном этапе я хочу вставить данные из буфера

oRange.Value = «Начиная с этой ячейки я хочу вставить диапазон из буфера» ‘вносим в него данные

[moder]Читаем внимательно правила форума
Особенно п.п.3[/moder]

Конференция VBStreets

Весь вкус программирования!

  • Список форумовСмежные технологииVBA
  • Изменить размер шрифта
  • FAQ
  • Вход

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

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

Влад » 16.04.2004 (Пт) 9:52

Добрый день всем!
Подскажите, как создать книгу с заданным именем.
Более конкретно — формируются отчеты за выбранные дни как отдельные книги, которые должны иметь разные имена (в которые включена дата). Какие из них сохранять как файлы, выбирает пользователь (такое требование), то есть Workbooks.open использовать не получается, так как создаются файлы на диске.
По Workbooks.Add (1) создаются книги с именем «Книга1″,»Книга2».
При обходном варианте — временное создание файла-шаблона с произвольным именем и потом удалением этого шаблона

Читать еще:  Объединить повторяющиеся ячейки в excel

fname = «yyyy-mm-dd.xls»
Open fname For Random Access Read Write As #1
Close #1
Workbooks.Add fname
Kill fname

книга открывается с требуемым именем, но почему-то только для чтения (свойство .ReadOnly=True), а это свойство изменить нельзя.
При использовании как шаблона реальных файлов Excel — картина аналогичная, доступ к вновь открытой книге только по чтению.

Заранее благодарен за помощь.

GSerg » 16.04.2004 (Пт) 10:03

Влад » 16.04.2004 (Пт) 10:43

GSerg » 16.04.2004 (Пт) 10:48

Влад » 16.04.2004 (Пт) 15:29

Sorry, оказалось, что это не все.
При попытке сохранения книги с установленным по
Workbooks.Add(1).Windows(1).Caption = «yyyy-mm-dd.xls»
оказывается, что она имеет имя «ЛистNN»
WorkBooks(i).Name=»ЛистNN»
WorkBooks(i).FullName=»ЛистNN»
а эти свойства Read Only и не изменяются.
Что можно сделать здесь?

Grerg-у. Насчет сигнатуры получилось, конечно, еще то.
Что поделать, эклер проклятый замучил, как у той бабки, которая пыталась купить два склероза.

GSerg » 17.04.2004 (Сб) 6:45

Влад » 19.04.2004 (Пн) 13:32

GSerg » 20.04.2004 (Вт) 9:32

Влад » 21.04.2004 (Ср) 7:58

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

уырекун » 04.05.2015 (Пн) 11:47

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

pronto » 04.05.2015 (Пн) 16:41

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

уырекун » 04.05.2015 (Пн) 17:29

Ваш код вызывает диалог, а можно ли программно задать это «имя файла», поясню, я программно создаю новую книгу, пользователь жмет в ней сохранить и уже в этом диалоге вместо «книга1» должно быть «Нужное_имя_при_сохранении»

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

alibek » 04.05.2015 (Пн) 17:54

Макрос на VBA Excel – Формируем документы по шаблону

Очень часто бывает такое, что нужно сформировать документы по определенному шаблону, на основе каких-то данных, например, по каждому сотруднику или по каждому лицевому счету. И делать это вручную бывает достаточно долго, когда этих самых сотрудников или лицевых счетов много, поэтому сегодня мы рассмотрим примеры реализации таких задач в Excel с помощью макроса написанного на VBA Excel.

Немного поясню задачу, допустим, нам необходимо сформировать какие-то специфические документы по шаблону массово, т.е. в итоге их получится очень много, как я уже сказал выше, например, по каждому сотруднику. И это нужно сделать непосредственно в Excel, если было бы можно это сделать в Word, то мы бы это сделали через «Слияние», но нам нужно именно в Excel, поэтому для этой задачи мы будем писать макрос.

Мы с Вами уже выгружали данные по шаблону через клиент Access из базы MSSql 2008 в Word и Excel вот в этой статье — Выгрузка данных из Access в шаблон Word и Excel. Но сейчас допустим, у нас данные располагаются в базе, в клиенте которой нельзя или слишком трудоемко реализовать такую задачу, поэтому мы просто выгрузим необходимые данные в Excel и на основе таких данных по шаблону сформируем наши документы.

Читать еще:  Калькулятор в excel

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

Напомню, что на данном сайте тема VBA Excel уже затрагивалась, например, в материале – Запрет доступа к листу Excel с помощью пароля

И так приступим!

Пишем макрос на VBA Excel по формированию документов

Реализовывать нашу задачу будем на примере «Электронной карточке сотрудника» (я это просто придумал:), хотя может такие и на самом деле есть), т.е. документ в котором хранится личные данные сотрудника вашего предприятия, в определенном виде, именно в Excel.

Примечание! Программировать будем в Excel 2010.

И для начала приведем исходные данные, т.е. сами данные и шаблон

Данные.

Лист, на котором расположены эти данные так и назовем «Данные»

Шаблон.

Лист, на котором расположен шаблон, тоже так и назовем «Шаблон»

Далее, нам необходимо присвоить имена полей для вставки, так более удобней к ним обращаться чем, например, по номеру ячейки.

Это делается очень просто, выделяете необходимую ячейку или диапазон, и жмете правой кнопкой мыши и выбираете «Присвоить имя», пишите имя ячейки и жмете «ОК»

Свои поля я назвал следующим образом:

  • ФИО – fio;
  • № — number;
  • Должность – dolgn;
  • Адрес проживания – addres;
  • Тел. № сотрудника – phone;
  • Комментарий – comment.

Код макроса на VBA Excel

Для того чтобы написать код макроса, открывайте на ленте вкладку «Разработчик», далее макросы.

Примечание! По умолчанию данной вкладке в Excel 2010 может и не быть, чтобы ее отобразить нажмите правой кнопкой по ленте пункт меню «Настройка ленты»

затем, в правой области поставьте галочку напротив пункта «Разработчик»

После вкладка разработчик станет отображаться на ленте.

Далее, когда Вы откроете вкладку разработчик и нажмете кнопку «Макросы» у Вас отобразится окно создания макроса, Вы пишите название макросы и жмете «создать».

После у Вас откроется окно редактора кода, где собственно мы и будем писать свой код VBA. Ниже представлен код, я его как обычно подробно прокомментировал:

Теперь осталось выполнить этот макрос, для этого откройте вкладку разработчик->макросы->выполнить наш макрос:

и после выполнения у Вас в той же папке появится вот такие файлы

Вот с таким содержимым:

Для удобства можете на листе с данными создать кнопку и задать ей событие выполнить наш только что созданный макрос, и после чего простым нажатием выполнять этот макрос. Вот и все! Удачи!

Создание отдельных книг из листов текущей книги

Данная функция является частью надстройки MulTEx

  • Описание, установка, удаление и обновление
  • Полный список команд и функций MulTEx
  • Часто задаваемые вопросы по MulTEx
  • Скачать MulTEx

Вызов команды:
MulTEx -группа Книги/ЛистыКнигиСоздание книг из листов

Команда создает из каждого листа книги отдельную книгу с одним листом и сохраняет эту книгу с именем этого листа в указанную папку. При этом можно выбрать отдельные листы для сохранения и формат создаваемых файлов(например, это могут быть и текстовые файлы, и CSV, и PDF, и любой из форматов Excel).
Для чего это может быть нужно? Например, книга содержит ключевые показатели отделов — в каждом листе графики и таблицы показателей одного отдела и необходимо выложить на корпоративный портал по каждому отделу свой лист, без доступа к данным других отделов. Это не проблема, если в книге 3-5 листов. Но как это бывает — такие задачи приходится делать именно когда листов в книге куда больше. Или другой пример: надо сохранить каждый лист книги в отдельный текстовый файл или CSV в указанной кодировке для последующей загрузки созданных файлов в стороннюю программу.
Команда Создание книг из листов сделает все это быстро и без особых усилий:

Читать еще:  В excel не прокручивается страница

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

Разрывать связи с другими листами и книгами — если в листах есть формулы, которые ссылаются на другие листы этой же книги или другие листы других книг, то при создании отдельных файлов в них останутся ссылки на другие листы/книги, которые впоследствии могут выдать ошибочные значения (#ССЫЛКА! / #REF! ). Для исключения таких ситуаций лучше отмечать данный флажок. Формулы и ссылки в пределах одного листа при этом никак не затрагиваются.

Сохранить новые книги в формате — список всех доступных для сохранения форматов, в которые можно сохранить каждый отмеченный лист:

  • xlsx — книга Excel без поддержки макросов
  • xlsm — книга Excel с поддержкой макросов
  • xlsb — двоичная книга Excel (с поддержкой макросов)
  • xlam — надстройка Excel
  • xltx — шаблон Excel
  • xltm — шаблон Excel с поддержкой макросов
  • xls — книга Excel(97 — 2003)
  • xla — надстройка Excel(97 — 2003)
  • xlt — шаблон Excel(97 — 2003)
  • txt — текстовый файл с разделителями табуляции
  • txt — текстовый файл в кодировке Юникод
  • csv — CSV(разделитель запятая)
  • csv — CSV(MS — DOS)
  • csv — CSV UTF — 8
  • pdf — файл в формате PDF

    Папка для сохранения файлов — выбирается папка, в которую необходимо сохранять созданные файлы.

    После нажатия ОК все отмеченные листы будут сохранены в указанную папку как отдельные файлы выбранного типа и будет выдано сообщение:

    Примечание: некоторые типы листов не могут быть сохранены в указанные форматы. Например, листы Диаграмм или Окно диалога Excel 5.0(правая кнопка на ярлыке листа — Вставить — Диаграмма/Окно диалога Excel 5.0 ) не могут быть сохранены в текстовый файл. В таких случаях подобные листы будут пропущены, а после работы команды сообщение будет так же содержать перечень имен листов, которые не удалось сохранить в указанном формате:

    Похожие статьи

  • Ссылка на основную публикацию
    Похожие публикации
    Adblock
    detector