Remkomplekty.ru

IT Новости из мира ПК
0 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Создание книги excel vba

VBA в Excel Объект Excel.Workbook и программная работа с книгами Excel из VBA

10.4 Коллекция Workbooks и объект Workbook, их свойства и методы

Объект Excel.Workbook, программная работа с книгами Excel из VBA, создание и открытие книг Excel

Следующий по иерархии после Application объект в объектной модели Excel — это объект Workbook, который представляет книгу Excel. Можно сказать, что объект Workbook занимает в Excel примерно то же место, что и объект Document в Word — он нужен для получения ссылки на нужную нам книгу в наборе открытых книг Excel, а также для настройки общих свойств и выполнения общих действий со всеми листами книги. Получить этот объект можно очень просто:

  • первый способ — воспользоваться коллекцией Workbooks, которая доступна через свойство Workbooks объекта Application. Впрочем, применять это свойство совершенно не обязательно — коллекция Workbooks в Excel и так постоянно доступна. Найти нужную книгу в этой коллекции можно по ее имени или номеру в коллекции:
  • второй способ — использовать свойство Application.ActiveWorkbook. При помощи этого свойства мы обращаемся к активной в настоящей момент книге:
  • третий способ — использовать свойство Application.ThisWorkbook. При этом мы обращаемся к той книге, которой принадлежит данный программный модуль:

На практике чаще всего нам нужно либо создать в Excel новую книгу, либо открыть существующую книгу (или другой файл в формате, который понимает Excel, например, DBF). Для этой цели используются методы Add() и Open() соответственно. Например, создать новую книгу в Excel можно так:

Dim oWbk As Workbook

Set oWbk = Workbooks.Add()

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

Открытие существующей книги выглядит так:

Dim oWbk As Workbook

Set oWbk = WorkBooks.Open(«C:mybook1.xls»)

Помимо стандартных, в коллекции Workbooks предусмотрено также три специальных метода:

  • OpenDatabase() — открыть базу данных, выполнить к ней запрос (или открыть таблицу/представление напрямую), а результаты запроса поместить как импортированные внешние данные в новую автоматически созданную рабочую книгу Excel;
  • OpenText() — почти то же самое, но в качестве источника здесь выступает текстовый файл. Дополнительные параметры позволяют определять его формат.
  • OpenXML() — в качестве источника данных будет выступать файл в формате XML.

Как и метод InsertDatabase() в Word, эти методы следует использовать только в самых простых случаях. Рекомендуется по возможности использовать более мощные и стандартные средства объектной модели ADO.

Теперь о самых важных свойствах объекта Workbook — самой рабочей книги:

  • Name, CodeName, FullName — разные имена этой книги. Самое простое имя — Name, это имя совпадает с именем файла книги. FullName — это имя файла книги вместе с полным путем к нему в операционной системе. CodeName — как эта книга будет называться в коде. CodeName можно посмотреть в окне Project Explorer или, если открыть свойства книги в окне Properties, кодовое имя книги будет представлено в строке (Name). Все три свойства доступны только для чтения, менять их можно другими способами (например, сохраняя файл под другим именем или прямо в окне Properties).

Определенное отношение к именам имеет также свойство Path (путь к файлу книги) .

  • Charts, Sheets, ActiveChart, ActiveSheet, CustomViews, BuiltinDocumentProperties и CustomDocumentProperties, Windows, WebOptions возвращают одноименные коллекции соответствующих объектов. Некоторые из этих объектов будут рассматриваться ниже.
  • ConflictResolution — как будут разрешаться конфликты изменения данных, если книга открыта несколькими пользователями сразу (shared workbook). Есть возможность сделать так, чтобы локальный пользователь автоматически выигрывал, автоматически проигрывал или возникало диалоговое окно с возможностью разобраться в конфликте вручную. Существует большое количество свойств, которые позволяют настроить параметры совместной работы с книгой, но по причине того, что такая работа не рекомендуется (данные для совместного доступа необходимо переносить в базу данных), рассматриваться они здесь не будут, за исключением:
    • запрещать/разрешать общий доступ к рабочей книге можно при помощи методов SaveAs() или ExclusiveAccess();
    • по умолчанию возможность совместного редактирования для книги отключена (проверить можно при помощи свойства MultiUserEditing);
    • получить список всех пользователей (а также когда они открыли файл и в каком режиме) можно при помощи свойства UserStatus.
  • FileFormat — формат книги (доступен напрямую только для чтения, можно изменять при сохранении). Форматов очень много: множество версий Excel, DBF, Lotus 1-2-3, форматы TXT, CSV, XML — всего несколько десятков.
  • свойство Names возвращает коллекцию всех именованных диапазонов в данной рабочей книге. Получить информацию о всех именованных диапазонах в данной книге можно, например, так:

For Each Item In ThisWorkbook.Names

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

Методов у объекта Workbook также очень много, однако значения самых употребимых — Activate(), Close(), Save(), SaveAs(), PrintOut(), Protect() и Unprotect() очевидны и действуют аналогично одноименным методам объекта Document в Word.

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

Данная функция является частью надстройки 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 ) не могут быть сохранены в текстовый файл. В таких случаях подобные листы будут пропущены, а после работы команды сообщение будет так же содержать перечень имен листов, которые не удалось сохранить в указанном формате:

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

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

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

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

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

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

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

    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

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

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

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

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

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

    Читать еще:  Excel vba активировать лист

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

    Разрывать связи с другими листами и книгами — если в листах есть формулы, которые ссылаются на другие листы этой же книги или другие листы других книг, то при создании отдельных файлов в них останутся ссылки на другие листы/книги, которые впоследствии могут выдать ошибочные значения (#ССЫЛКА! / #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 ) не могут быть сохранены в текстовый файл. В таких случаях подобные листы будут пропущены, а после работы команды сообщение будет так же содержать перечень имен листов, которые не удалось сохранить в указанном формате:

    Vba excel создать книгу excel

    Самоучитель по Excel VBA

    ​Смотрите также​: Ладно, раз ТС​, Благодарю за помощь.​ копируется (лист «Смета»),​ всегда под одним​ умолчанию,​Спасибо за ссылочку))​ Range явного указания​ присвоения результата переменной​ New_Wb.SaveAs​ «A1:AA6000» vData =​ скопировать лист в​ извините, ерунда).​ПОмогите еще с​Юрий М​Источник: http://www.excelfunctions.net/Excel-VBA-Tutorial.html​

    ​ начинающих программистов настоятельно​Данный учебник является введением​ не написал, что​RAN​ то как прописать​ названием.​а как изменить​The_Prist​ для него листа​ указываются без скобок:​А сам код​ objThisBook.Sheets(«abs_plan»).Range(sAddress).Value Sheets(«abs_plan_191»).Range(«A1»).Resize(UBound(vData, 1),​ новую книгу.​Юрий М​ одним моментом, книгу​: Sub New2() Dim​Перевел: Антон Андронов​ рекомендуется начать с​ в язык программирования​ там у него​:​ макрос, чтобы он​А мне нужно​ имя, чтобы создалась​: нет. Я же​ и книги подразумевает​

    ​ обращение к АКТИВНОЙ​ «» & Range(«Книга»)​Dim New_Wb As​ vDataВот написал, все​

    ​Юрий М​ New_Wb As Workbook​
    ​ как Вы помогли,​
    ​ Set New_Wb =​

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

    ​ и изучать их​​ Basic for Applications).​ как буквально «задать»:​’ отключить копирование​
    ​ же самое, за​ новой книги бралось​а например ‘Моя​ Range без явного​ книге. А Вы​ & «.xlsm»​ Workbook Set New_Wb​ отлично работает, но​: Согласен с Johny:​ Set New_Wb =​ теперь беда. Хочу​
    ​ Workbooks.Add New_Wb.Activate New_Wb.SaveAs​: Доброе время суток.​ по порядку. Те,​ Изучив VBA, Вы​ Dim tmp tmp​ объектов​ исключением копирования данной​
    ​ с ячейки (в​

    ​ книга’​​ указания листа и​ её только что​
    ​плюс очень желательно​ = Workbooks.Add New_Wb.Activate​ копирует без сохранения​

    ​ ерунда получается -​​ Workbooks.Add ThisWorkbook.Sheets(«plan»).Copy New_Wb.Sheets.Add​ с книги откуда​ («D:test» & ThisWorkbook.Sheets(«Лист1»).Range(«A1»)​ Есть книга, в​ кто имеет опыт​ сможете создавать макросы​ = Application.SheetsInNewWorkbook ‘сохранить​

    ​Application.CopyObjectsWithCells = False​​ кнопки. Проще говоря​

    ​ примере видно -​​new_see​ книги в Вашем​ создали. Следовательно там​ указывать формат файла​

    ​ New_Wb.SaveAs (Range(«O6») &​​ параметров ячеек. ​ сначала имя листа​ After:=New_Wb.Sheets(Sheets.Count) New_Wb.SaveAs («D:test»​ запускал макрос скопировать​

    ​ & «.xls») New_Wb.Close​​ ячейке А1 значение.​

    ​ в программировании на​​ и выполнять в​

    ​ свойство «число листов​​’ включить копирование​ — без этой​ ячейка E7)​: NewWorkbook.Windows(1).Caption = ‘Моя​

    ​ случае указывает на​​ НЕТ ИМЕНОВАННЫХ ДИАПАЗОНОВ,​ явно:​
    ​ «» & Range(«Книга»)​Johny​ «plan», затем «plan_191». ​ & ThisWorkbook.Sheets(«Лист1»).Range(«A1») &​ лист (plan) в​ End Sub​Sub New2() Dim​ VBA, могут сразу​ Excel практически любые​ в новой книге»​ объектов​
    ​ кнопки.​Пример прикрепляю.​ книга’​ активный лист. А​ да и вообще​New_Wb.SaveAs Range(«O6») &​ & «.xlsm»)​: Так?​Юрий М​ «.xls») New_Wb.Close End​ эту новую книгу​evgeniy_m​ New_Wb As Workbook​ же перейти к​ задачи. Вы очень​ Application.SheetsInNewWorkbook = 200​Application.CopyObjectsWithCells = True​

    ​Прикрепил файл​​Жду помощи.​спасибо​ т.к. Вы это​ данных.​

    ​ «» & Range(«Книга»)​​либо​Sub F() Dim​: evgeniy_m, у Дмитрия​ Sub​ с созданым листом​: ошибку дает (​ Set New_Wb =​ интересующим темам.​

    ​ скоро поймёте, что​​ ‘установить новое значение​End Sub​gling​
    ​ShAM​den45444​ делаете после создания​Советую очень внимательно​
    ​ & «.xlsm», 52​Dim New_Wb As​ wkbNew As Workbook​ (The_Prist) очень хороший​Hugo​ «plan_191».​Юрий М​

    ​ Workbooks.Add New_Wb.Activate New_Wb.SaveAs​​Часть 1: Оформление кода​ макросы могут сэкономить​ свойства в пределах​PuLbKa​: Пропишите так​: Замените:​: Есть макрос на​ новой книги -​
    ​ изучить:​

    ​52 — формат​​ Workbook Set New_Wb​ Sheets(«plan»).Copy Set wkbNew​ текст в подписи​: скопировать лист (plan)​

    Читать еще:  Excel vba goto

    ​Dim sShName As​​: Это не информация​ («D:test» & «1»​Часть 2: Типы данных,​ уйму времени благодаря​

    ​ 1..255 Set xlWb​​: Не могу понять​200?’200px’:»+(this.scrollHeight+5)+’px’);»>shSmeta.Copy Before:=bkNew.Sheets(1)​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Const strNewBook As String​ создание новой книги.​

    ​ то активна именно​​Honey​ xslm.​ = Workbooks.Add New_Wb.Activate​ = ActiveWorkbook wkbNew.Sheets(1).Name​ — прочитайте))​ в эту новую​

    ​ String, sAddress As​​ — всегда следует​ & «.xls») New_Wb.Close​ переменные и константы​ автоматизации повторяющихся задач​ = Workbooks.Add ‘создать​ как задать количество​ActiveSheet.Shapes(«Button 1»).Delete​ = «Смета-1.xlsx» ‘имя​ Его нужно немного​ она, а не​: Во вложении файл,​Honey​ New_Wb.SaveAs («M:ProductionМастера2017Нормализация» &​

    ​ = «plan_191» wkbNew.SaveAs​​Alexander88​
    ​ книгу -​ String, vData Dim​ указывать — КАКУЮ​ End SubЗапускаю макрос,​Часть 3: Массивы​ и обеспечить гибкое​ книгу с заданным​ страниц при создании​

    ​bkNew.SaveAs ThisWorkbook.Path &​​ нового файла​ изменить под условие.​

    ​ что-то там где-то​​ в котором этот​

    ​Содаю я его​​ & «.xlsx»​
    ​ As String​- Есть книга​ либо не все,​Honey​
    ​Ошибка Runtime error​ «.xlsm»)​

    ​ Sub​​ потом удалить листы​ листом, который затем​
    ​ GetObject.ActiveWorkbook sAddress =​: И пример Юрия​ D:test, присваивается имя​Часть 5: Условные операторы​Этот учебник не является​
    ​ значение свойстваКстати, добавлять​ так​bkNew.Close​
    ​strNewBook = [e7].Value​ и в этой​ либо не то,​
    ​: The_Prist,​ 1004:: Method ‘Range’​Спасибо​
    ​Юрий М​ кроме нужного?​

    ​ можете переименовать.​​ «A1:AA6000» vData =​ с указанием откуда​
    ​ 1.xls и закрывается.​Часть 6: Циклы​ исчерпывающим руководством по​

    ​ листы в существующую​​Dim xlWb As​Но думаю что​ & «.xlsx» ‘имя​ книги есть лист​ либо не так.​Об этом я​ of Global Failed​Honey​: evgeniy_m, Вы читаете,​Hugo​
    ​Только при таком​ objCloseBook.Sheets(«plan»).Range(sAddress).Value objThisBook.Close False​ берется ячейка не​Проблема в следующем,​Часть 7: Операторы и​ языку программирования Excel​ книгу тоже можно​ Excel.Workbook Set xlWb​ лучше кнопку и​ нового файла​ «Смета» и есть​ New_Wb.SaveAs ThisWorksbook.Sheets(«1 норм»).Range(«O6»)​
    ​ читала. Видимо, действительно,​The_Prist​

    ​: Люди добрые!​​ что Вам пишут?​: Кстати хороший вариант​ копировании пострадают длинные​

    ​ Sheets(«plan_191»).Range(«A1»).Resize(UBound(vData, 1), UBound(vData,​​ работает?​
    ​ как переписать макрос,​ встроенные функции​ VBA. Его цель​ не по одному:​ = Workbook.Add​ список выбора сметы​Karataev​ кнопка на другом​ & «» &​ я чего-то не​: А Вы вдумайтесь​Помогите с проблемой​evgeniy_m​ сделать копию файла,​
    ​ строки в ячейках,​

    ​ 2)).Value = vDataно​​evgeniy_m​ чтобы новая книга​Часть 8: Объектная модель​ – помочь начинающему​ Sheets.Add after:=ActiveSheet, Count:=200Параметр​Все получилось​ разместить вверху сметы.​: Смотрите прикрепленный файл​ листе «создать новую​ ThisWorksbook.Sheets(«1 норм»).Range(«Книга») &​ понимаю((( У меня​ в ошибку. В​ выше, пожалуйста. Интернет​: Johny, спасибо!​ его открыть, поудалять​ если они конечно​ на строке Set​: макрос не компилируеться..​ сохранялась с названием​ Excel​ специалисту освоить написание​

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

    ​ Count тоже в​​S.V.I.N.​ Кнопку привязать к​den45444​
    ​ смету».​
    ​ «.xlsm», 52​ есть такие диапазоны.​ Google-переводчик закиньте. Тогда​ обыскала ничего не​Honey​
    ​ лишнее. Так и​ есть. Хотя в​ objThisBook = GetObject.ActiveWorkbook​
    ​Юрий М​ как в ячейке​

    ​Часть 9: События в​​ макросов в Excel​ пределах 1..255.​

    ​: Количество страниц можно​

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

    ​ строкам и при​​:​- Нажимая на​new_see​ И я ведь​
    ​ видно будет, что​
    ​ получается(((​: Всем привет!​ строки не пострадают,​ новых экселях не​ дает ошибку. как​: Мой вариант проверяли?​ А1 книги, с​
    ​ Excel​ при помощи кода​Hugo121​ увеличивать следующим образом.​ копировании сметы удалять​ShAM​
    ​ этот макрос, создается​: Как создать новую​ указываю на имена​ у Вас проблема​Вся надежда на​
    ​Надеюсь мой вопрос​ и связи. ​ проверял. ​ мне указать, что​The_Prist​ которой запускается макрос?​
    ​Часть 10: Ошибки VBA​
    ​ VBA. Для желающих​

    ​: На практике обычно​​for i=0 to​ ​ верхнею строку или​,​ новая книга и​
    ​ книгу с заданным​ диапазонов не в​
    ​ в том, что​ Вас​ здесь уместен. Я​

    ​ нужно копировать лист​​: evgeniy_m, Лист1 в​​Заранее спасибо!​​Примеры по VBA​​ изучить этот язык​​ нужно​ x With New_Ex​
    ​ строки. Удалится и​Karataev​ лист «Смета» копируется​ именем?​ ново-созданной книге. Или​ нет диапазона «Книга»​The_Prist​ под основу взяла​: Dim sShName As​: Суть такая, открываю​ из книги откуда​ книге с макросом​
    ​Alexander88​

    ​Более подробное описание по​​ программирования более глубоко​ ​Set xlWb =​
    ​ Sheets.Add After:=Sheets(Sheets.Count) end​
    ​ список и кнопка​, Благодарю за скорую​ в эту книгу,​
    ​Например​

    ​ как мне конкретней​ или «Об» или​: что за ошибка​ код, предлагаемый здесь.​ String, sAddress As​ книгу, запускаю макрос,​ запускался макрос. ​ присутствует? Что означает​: Попробуйте заменить пятую​ Excel VBA можно​ существуют отличные книги​

    ​ Workbooks.Add(1) ‘создать книгу​​ With next iгде​​ вызова макроса.​​ помощь.​

    ​ сохраняет и закрывает.​​Sub CreateWorkbook() Set​ ​ указать, чтобы диапазон​
    ​ другого, чего Вы​ — нам угадать?​
    ​ Но его чуток​
    ​ String, vData Dim​ создается новая книга​
    ​Johny​
    ​ «макрос не компилируется»?​

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

    ​ строку на:​​ найти на сайте​ по Excel VBA.​ с одним листомДалее​ х — это​
    ​den45444​А если эту​
    ​- Название новой​ NewWorkbook = Workbooks.Add​ брался конкретно с​
    ​ пишите в Range.​

    ​Да и скобки​​ видоизменила. И теперь​ objThisBook As Object​
    ​ и лист в​: Ничего не понятно​evgeniy_m​New_Wb.SaveAs («D:test» &​ Microsoft Office.​ Далее приведено содержание​ можно листы добавить,​

    ​ кол-во циклов (требуемое​​:​ кнопку поставить на​ книги указывается в​ End Subсоздает книгу​ первоначальной книги для​Так же надо​ здесь лишние. В​ у меня проблема-выдает​ Set objThisBook =​ ней. Теперь из​ (а в приложенном​: супер! Огромное спасибо​ Cells(1, 1) &​Урок подготовлен для Вас​ самоучителя по Excel​ но это нужно​ кол-во листов)​gling​ тот лист который​ самом макросе, т.е.​ с именем по​ именования. ​ помнить, что указание​ VBA методы без​

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