могут стать прекрасным дополнением к вашим предложениям, поскольку они часто имеют более высокую воспринимаемую ценность, чем даже стандартная книга в твердом или мягком переплете.В самой идее заполнения рабочих листов и выполнения упражнений есть что-то, что заставляет нас тратить больше денег на рабочую тетрадь. В то время как типичная торговая книга в мягкой обложке может продаваться по цене от 15 до 20 долларов, рабочая тетрадь часто может продаваться по цене от 25 до 50 долларов, в зависимости от рынка.

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

Workbooks также могут быть включены в стандартную книгу, аудиопрограмму или другой продукт.

Форматирование и распространение

В большинстве случаев книгу следует публиковать в более крупном формате, например 8 × 10 или 8,5 × 11. Спиральный формат часто является первым выбором для рабочей книги, однако имейте в виду, что это может быть ограничивающим фактором. Если вы намереваетесь опубликовать свою рабочую тетрадь и направить ее в широкое распространение, библиотеки и книжные магазины с меньшей вероятностью будут иметь вашу книгу, если она будет скреплена спиралью.Для этого есть две причины: у книг в спиральном переплете отсутствует корешок, и браузерам книжных магазинов и библиотек будет сложнее заметить книгу, если она не выложена лицевой стороной наружу. Библиотеки также стараются избегать книг в спиральном переплете, потому что они не так долговечны, как другие типы книжных переплетов.

Если торговое распределение вас не интересует, непременно распечатайте свою рабочую тетрадь в спиральном переплете. Если вам нужно небольшое количество копий, наиболее рентабельным вариантом может стать посещение местного копировального магазина, где они сделают это за вас.Еще один источник меньших тиражей – Lulu.com, хотя я бы не рекомендовал их для больших тиражей или крупного распространения, потому что их цены будут выше, чем цены, которые вы можете найти в других типографских компаниях.

Если вы собираетесь распространять свою книгу на Amazon и других розничных продавцах, лучше всего выбрать печать с «идеальным переплетом», что является другим термином для стандартной книги в мягкой обложке с корешком. Когда вы печатаете в большем формате, например 8 × 10, вы можете быть удивлены тем, насколько хорошо эти книги могут лежать достаточно ровно, чтобы работать.

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

Как разработать содержимое книги

Содержимое вашей книги может поступать из разных мест. Я часто создаю сопутствующие рабочие тетради с моими «обычными» книгами, что очень удобно для моих читателей.Для этого я просматриваю обычную книгу по страницам и ищу области, в которых материал учебного пособия имеет смысл. То же самое можно сделать, сначала набросав в общих чертах презентацию или учебную программу, а затем изучив ее постепенно, чтобы определить, какие упражнения вы можете извлечь из своего материала.

Ниже приводится обзор типов страниц книги, которые вы можете создать.

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

Вот еще несколько идей:

• Перечислите серию тем или идей, которые читатель может обвести и / или вычеркнуть, поскольку темы имеют к ним отношение.
• Предложите читателям нарисовать ответы на вопросы или создать картинку, которая что-то изображает.
• Предоставьте рабочий лист в виде электронной таблицы, где пользователь вводит числа и вычисления.
• Проведите читателя через какое-нибудь аналитическое упражнение. Например, они могут составить список конкурентов, а затем изучить каждого и заполнить результаты.

Вопросы и ответы – В моей книге «Собери свою нишу» я рекомендую читателям сузить круг своей целевой аудитории, чтобы они могли лучше продавать свои продукты и услуги.Это превратилось в простой лист вопросов и ответов с небольшим пространством для ввода после каждого вопроса:

• Кто ваши текущие клиенты (т. Е. Целевая аудитория)?
• Ваша ниша слишком широка?
• На каких возможных нишах вы могли бы сосредоточиться?
• Есть ли какие-либо отрасли, в которых у вас уже есть опыт или уже есть следующие?
• Каковы отраслевые перспективы для выбранной вами ниши; он растет?
• Могут ли они позволить себе ваши продукты и услуги?
• Достаточно ли велика бизнес-возможность для вас?

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

Таблица целей – Подотчетность является важным элементом для многих в достижении любого вида успеха, и помощь пользователям вашей рабочей тетради в постановке целей может дать им дополнительный стимул.Например, во время тура выходного дня Опры «Жизнь, которую ты хочешь» участникам раздали рабочие тетради. На одной из страниц читателей попросили перечислить свои цели, которых они намерены достичь в ближайшие месяцы и годы. Это просто другой стиль списка, но читатели его часто ценят.

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

Контрольный список – Контрольный список может быть таким же простым, как список продуктов, которых следует избегать, список предметов для покупки или список шагов, которые необходимо предпринять перед тем, как продолжить.

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

Расписание или электронная таблица – Мне нравится предоставлять страницы в стиле электронных таблиц, которые необходимо заполнить, особенно если это тот тип контента, который читатель захочет скопировать и опубликовать на своем столе или на кухне – где-нибудь, о чем им напоминают материал каждый день!

Ресурсы – Еще один отличный способ повысить ценность для ваших читателей – это предоставить список ресурсов.Я всегда включаю веб-сайты, рекомендации по книгам и другие предложения для читателей в конце своих книг. Часто эта информация собирается из ресурсов, упомянутых в книге. Читателям нравится, когда вся информация указана в одном месте, и они будут рады, если вы включите это в свою рабочую тетрадь.

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

Рабочая тетрадь по разработке и оформлению

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

То же самое верно для обложки, корешка и задней обложки вашей рабочей тетради. Реальность такова, что люди ДЕЛАЮТ просто книгу по обложке, поэтому убедитесь, что вы инвестируете в профессиональный дизайн обложки. Обложка книги должна иметь заметный шрифт, привлекательные цвета и элегантную простоту. При уменьшении размера изображение должно выглядеть так же привлекательно, как если бы оно было размещено на Amazon.com.

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

Класс Workbook – Документация XlsxWriter

Класс Workbook – это основной класс, предоставляемый модулем XlsxWriter, и он единственный класс, который вам нужно будет создать напрямую.

Класс Workbook представляет всю электронную таблицу, как вы ее видите в Excel и внутренне он представляет файл Excel в том виде, в каком он записан на диск.

Конструктор

Рабочая тетрадь ( имя файла [, параметры ])

Создайте новый объект книги XlsxWriter.

Параметры:	имя_файла ( строка ) – Имя создаваемого нового файла Excel. options ( dict ) – дополнительные параметры книги. См. ниже.
Тип возврата:	Объект Workbook.

Конструктор Workbook () используется для создания новой книги Excel с данное имя файла:

 импорт xlsxwriter

рабочая книга = xlsxwriter.Книга ('filename.xlsx')
рабочий лист = workbook.add_worksheet ()

worksheet.write (0, 0, 'Привет, Excel')

workbook.close ()
 

Варианты конструктора:

• constant_memory : уменьшает объем данных, хранящихся в памяти, чтобы большие файлы могут быть записаны эффективно:

   workbook = xlsxwriter.Workbook (имя файла, {'constant_memory': True})
   

  Обратите внимание: в этом режиме строка данных записывается, а затем отбрасывается, когда ячейка в новую строку добавляется одним из методов рабочего листа write_ () .Поэтому, как только этот режим активен, данные следует записывать последовательно. порядок строк. По этой причине add_table () и merge_range () Методы рабочего листа в этом режиме не работают.

  Подробнее см. Работа с памятью и производительностью.

• tmpdir : XlsxWriter сохраняет данные книги во временных файлах до для сборки окончательного файла XLSX. Временные файлы создаются в системный временный каталог. Если временный каталог по умолчанию недоступен вашему приложению или в нем недостаточно места, вы можете указать альтернативное расположение с использованием опции tmpdir :

   книга = xlsxwriter.Книга (имя файла, {'tmpdir': '/ home / user / tmp'})
   

  Временный каталог должен существовать и не будет создан.

• in_memory : Чтобы избежать использования временных файлов при сборке окончательный файл XLSX, например, на серверах, на которых не разрешены временные файлы, установите in_memory вариант конструктора до True :

   workbook = xlsxwriter.Workbook (имя файла, {'in_memory': True})
   

  Этот параметр отменяет параметр constant_memory .

  Примечание

  Этот вариант использовался в качестве рекомендуемого способа развертывания XlsxWriter на Google APP Engine, поскольку он не поддерживает каталог / tmp . Тем не мение, среда выполнения Python 3 в Google App Engine теперь поддерживает файловая система с доступом для чтения / записи в / tmp что означает, что эта опция не требуется. Каталог / tmp не поддерживается. в среде выполнения Python 2, поэтому эта опция по-прежнему требуется там.

• strings_to_numbers : включить рабочий лист. write () метод преобразования строк в числа, где это возможно, используя float () , чтобы избежать Excel предупреждение о «Числах, сохраненных как текст». По умолчанию Ложь . Включить используйте эту опцию:

   workbook = xlsxwriter.Workbook (имя файла, {'strings_to_numbers': True})
   

• strings_to_formulas : Включите рабочий лист. write () метод преобразования строк в формулы. По умолчанию – Истинно .Чтобы отключить эту опцию, используйте:

   workbook = xlsxwriter.Workbook (имя файла, {'strings_to_formulas': False})
   

• strings_to_urls : включить рабочий лист. написать () метод преобразования строк в URL-адреса. По умолчанию – Истинно . Чтобы отключить это вариант использования:

   workbook = xlsxwriter.Workbook (имя файла, {'strings_to_urls': False})
   

• use_future_functions : разрешить использование более новых «будущих» функций Excel. без необходимости добавлять к ним префикс _xlfn.. По умолчанию Ложь . Чтобы включить эту опцию, используйте:

   workbook = xlsxwriter.Workbook (имя файла, {'use_future_functions': True})
   

  См. Также Формулы, добавленные в Excel 2010 и более поздних версиях.

• max_url_length : установите максимальную длину гиперссылок на листах. В по умолчанию – 2079, минимальное – 255. Версии Excel до Excel 2015 ограниченные гиперссылки и привязки / местоположения до 255 символов каждый. Версии после этого поддерживают URL до 2079 символов.XlsxWriter версии> = 1.2.3 по умолчанию поддерживают новый более длинный лимит. Однако более низкий или определяемый пользователем предел может быть установлен с помощью параметра max_url_length :

   workbook = xlsxwriter.Workbook (имя файла, {'max_url_length': 255})
   

• nan_inf_to_errors : Включите рабочий лист. write () и write_number () методы для преобразования nan , inf и -inf в ошибки Excel. Excel не обрабатывает NAN / INF как числа, поэтому в качестве обходного пути они сопоставляются формулы, которые дают коды ошибок # ЧИСЛО! и # DIV / 0! .По умолчанию это Ложь . Чтобы включить эту опцию, используйте:

   workbook = xlsxwriter.Workbook (имя файла, {'nan_inf_to_errors': True})
   

• default_date_format : этот параметр используется для указания даты по умолчанию строка формата для использования с рабочий лист. write_datetime () , когда явный формат не указан. Подробнее см. Работа с датой и временем. подробнее:

   xlsxwriter.Workbook (имя файла, {'default_date_format': 'dd / mm / yy'})
   

• remove_timezone : Excel не поддерживает часовые пояса с указанием даты и времени, поэтому не существует надежного способа, которым XlsxWriter может сопоставить часовой пояс Python с учетом datetime в дату и время Excel в таких функциях, как write_datetime () .Таким образом, пользователь должен преобразовать и удалить часовые пояса каким-то образом, что имеет смысл в соответствии с их требования. В качестве альтернативы можно использовать параметр remove_timezone для удалить часовой пояс из значений даты и времени. По умолчанию Ложь . Включить используйте эту опцию:

   workbook = xlsxwriter.Workbook (имя файла, {'remove_timezone': True})
   

  См. Также Обработка часовых поясов в XlsxWriter.

• use_zip64 : использовать расширения ZIP64 при записи zip-контейнера файла xlsx чтобы разрешить файлы размером более 4 ГБ.Это то же самое, что и звонок use_zip64 () после создания объекта Workbook. Этот конструктор option – это просто синтаксический сахар, чтобы использовать эту опцию больше явный. Следующие эквиваленты:

   workbook = xlsxwriter.Workbook (имя файла, {'use_zip64': True})
  
  # Такой же как:
  workbook = xlsxwriter.Workbook (имя файла)
  workbook.use_zip64 ()
   

  См. Примечание о предупреждении Excel, вызванном использованием этого параметра в use_zip64 () .

• date_1904 : Excel для Windows использует эпоху по умолчанию 1900 и Excel для Mac использует эпоху 1904 года.Однако Excel на любой платформе преобразует автоматически между одной системой и другой. XlsxWriter хранит даты в формат 1900 по умолчанию. Если вы хотите изменить это, вы можете использовать date_1904 вариант книги. Этот вариант предназначен в основном для расширенных совместимость с Excel и вообще не требуется очень часто:

   workbook = xlsxwriter.Workbook (имя файла, {'date_1904': True})
   

При указании имени файла рекомендуется использовать .XLSX extension или Excel выдаст предупреждение при открытии файла.

Метод Workbook () также работает с с диспетчером контекста . В в этом случае не требуется явный оператор close () :

 с xlsxwriter.Workbook ('hello_world.xlsx') в качестве книги:
    рабочий лист = workbook.add_worksheet ()

    worksheet.write ('A1', 'Привет, мир')
 

Можно записывать файлы в строки в памяти с помощью BytesIO следующим образом:

 из io import BytesIO

вывод = BytesIO ()
рабочая книга = xlsxwriter.Рабочая тетрадь (вывод)
рабочий лист = workbook.add_worksheet ()

worksheet.write ('A1', 'Привет')
workbook.close ()

xlsx_data = output.getvalue ()
 

Чтобы избежать использования каких-либо временных файлов и сохранить весь файл в памяти, используйте параметр конструктора in_memory , показанный выше.

См. Также Пример: простой HTTP-сервер (Python 2) и Пример: простой HTTP-сервер (Python 3).

workbook.add_worksheet ()

add_worksheet ([ название ])

Добавить новый лист в книгу.

Параметры:	имя ( строка ) – необязательное имя рабочего листа, по умолчанию Sheet1 и т. Д.
Тип возврата:	Объект листа.
Повышение:

Метод add_worksheet () добавляет новый рабочий лист в книгу.

По крайней мере, один рабочий лист должен быть добавлен в новую книгу.В Объект рабочего листа используется для записи данных и настройки лист в книге.

Параметр name является необязательным. Если он не указан или пуст, будут соблюдаться соглашения Excel по умолчанию, то есть Sheet1, Sheet2 и т. д .:

 worksheet1 = workbook.add_worksheet () # Sheet1
worksheet2 = workbook.add_worksheet ('Foglio2') # Foglio2
worksheet3 = workbook.add_worksheet ('Data') # Данные
worksheet4 = workbook.add_worksheet () # Sheet4
 

Имя рабочего листа должно быть действительным именем листа Excel:

• Должно быть меньше 32 символов.Эта ошибка вызовет InvalidWorksheetName исключение.
• Он не может содержать никаких символов: []: *? / \ . Эта ошибка будет вызвать исключение InvalidWorksheetName .
• Оно не может начинаться или заканчиваться апострофом. Эта ошибка вызовет InvalidWorksheetName исключение.
• Вы не можете использовать одно и то же имя без учета регистра более чем для одного рабочий лист. Эта ошибка вызовет исключение DuplicateWorksheetName .
• Вы не должны использовать зарезервированное имя Excel «История» или без учета регистра. варианты, поскольку это ограничено в английской и других версиях Excel.

Правила для имен рабочих листов в Excel объясняются в Microsoft Office документация о том, как переименовать рабочий лист.

workbook.add_format ()

add_format ([ свойства ])

Создайте новый объект «Формат» для форматирования ячеек на листах.

Параметры:	свойства ( словарь ) – необязательный словарь свойств формата.
Тип возвращаемого значения:	Объект формата.

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

 format1 = workbook.add_format (props) # Установить свойства при создании.
format2 = workbook.add_format () # Настроить свойства позже.

См. Раздел «Класс формата» для получения дополнительных сведений о свойствах формата и о том, как установить их.

workbook.add_chart ()

add_chart ( опций )

Создайте объект диаграммы, который можно добавить на рабочий лист.

Параметры:	options ( словарь ) – Словарь вариантов типа диаграммы.
Тип возврата:	A Объект диаграммы.

Этот метод используется для создания нового объекта диаграммы, который можно вставить в рабочий лист с помощью метода insert_chart () Метод рабочего листа:

 диаграмма = workbook.add_chart ({'тип': 'столбец'})
 

Можно установить следующие свойства:

 (обязательно)
подтип (необязательно)
 

См. «Класс диаграммы» для получения списка доступных подтипов диаграмм.

Примечание

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

См. Также Работа с диаграммами и примерами диаграмм.

workbook.add_chartsheet ()

add_chartsheet ([ имя листа ])

Добавьте новый add_chartsheet в книгу.

Параметры:	имя листа ( строка ) – необязательное имя диаграммы, по умолчанию Chart1 и т. Д.
Тип возврата:	Объект диаграммы.

Метод add_chartsheet () добавляет новую таблицу диаграмм в книгу.

Подробнее см. Класс Chartsheet.

Параметр имя листа является необязательным. Если он не указан по умолчанию Будут соблюдаться соглашения Excel, то есть Chart1, Chart2 и т. Д.

Имя диаграммы должно быть действительным именем листа Excel. Видеть add_worksheet () для ограничения имен рабочих листов Excel.

workbook.close ()

закрыть ()

Закройте объект Workbook и запишите файл XLSX.

Метод close () рабочей книги записывает все данные в файл xlsx и закрывает это:

Это обязательный вызов метода для закрытия и записи файла xlsxwriter, если только вы используете с менеджером контекста , см. ниже.

Объект Workbook также работает с с диспетчером контекста .В в этом случае не требуется явный оператор close () :

 С xlsxwriter.Workbook ('hello_world.xlsx') в качестве книги:
    рабочий лист = workbook.add_worksheet ()

    worksheet.write ('A1', 'Привет, мир')
 

Книга закроется автоматически при выходе из области с утверждение.

Наиболее частое исключение во время close () – это FileCreateError , обычно вызвано ошибкой разрешения записи.В Windows это обычно происходит если создаваемый файл уже открыт в Excel. Это исключение может быть попал в блок try , где вы можете указать пользователю закрыть открытый файл перед его перезаписью:

, пока True:
    пытаться:
        workbook.close ()
    кроме xlsxwriter.exceptions.FileCreateError как e:
        # Для Python 3 используйте input () вместо raw_input ().
        solution = raw_input ("Исключение в workbook.close ():% s \ n"
                             "Закройте файл, если он открыт в Excel.\ n "
                             «Попытаться снова записать файл? [Д / Н]:»% e)
        если решение! = 'n':
            Продолжать

    перерыв
 

Метод close () может записать файл только один раз. Он не ведет себя как save, и его нельзя вызывать несколько раз для записи файла в разные этапы. Если его коллируют более одного раза, поднимется UserWarning , чтобы избежать проблем, связанных с закрытием файла в петля или на неправильном уровне области видимости.

См. Также Пример: перехват исключения при закрытии.

workbook.set_size ()

set_size ( ширина , высота )

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

Параметры:	width ( int ) – Ширина окна в пикселях. height ( int ) – Высота окна в пикселях.

Метод set_size () может использоваться для установки размера окна книги:

 рабочая тетрадь.set_size (1200, 800)
 

Размер окна Excel использовался в Excel 2007 для определения ширины и высоты окно книги в многодокументном интерфейсе (MDI). Позже В версиях Excel для Windows этот интерфейс был удален. Этот метод в настоящее время полезно только при установке размера окна в Excel для Mac 2011. единицы – пиксели, а размер по умолчанию – 1073 x 644.

Обратите внимание, что это не соответствует размеру пикселя Excel для Mac, поскольку он на основе исходных размеров Excel 2007 для Windows.Некоторые методы проб и ошибок могут потребуются, чтобы получить точный размер.

workbook.tab_ratio ()

set_tab_ratio ( tab_ratio )

Установите соотношение между вкладками рабочего листа и горизонтальным ползунком.

Параметры:	tab_ratio ( float ) – соотношение табуляции от 0 до 100.

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

Значение по умолчанию в Excel – 60. Его можно изменить следующим образом:

 workbook.set_tab_ratio (75)
 

workbook.set_properties ()

set_properties ( объектов )

Задайте свойства документа, такие как Заголовок, Автор и т. Д.

Параметры:	properties ( dict ) – Словарь свойств документа.

Метод set_properties () может использоваться для установки свойств документа Файл Excel, созданный XlsxWriter . Эти свойства видны, когда вы используйте кнопку Office -> Подготовить -> Свойства в Excel и также доступны для внешних приложений, которые читают или индексируют файлы Windows.

Можно установить следующие свойства:

• титул
• субъект
• автор
• менеджер
• компания
• категория
• ключевых слов
• комментарии
• статус
• hyperlink_base
• create – дата создания файла в формате datetime .дата объект.

Свойства являются необязательными и должны передаваться в формате словаря как следует:

 workbook.set_properties ({
    'title': 'Это пример электронной таблицы',
    'subject': 'Со свойствами документа',
    'author': 'Джон Макнамара',
    'manager': 'Доктор. Хайнц Дофеншмирц ',
    'компания': 'Волков',
    'category': 'Примеры таблиц',
    'ключевые слова': 'Образец, Пример, Свойства',
    'created': datetime.date (2018, 1, 1),
    'comments': 'Создано с помощью Python и XlsxWriter'})
 

См. Также Пример: Настройка свойств документа.

workbook.set_custom_property ()

set_custom_property ( имя , значение [, property_type ])

Задайте настраиваемое свойство документа.

Параметры:	имя ( строка ) – Имя настраиваемого свойства. значение – значение настраиваемого свойства (различные типы). property_type ( строка ) – Тип свойства.По желанию.

Метод set_custom_property () может использоваться для установки одного или нескольких настраиваемых свойства документа, не охваченные стандартными свойствами в set_properties () метод выше.

Например:

 date = datetime.strptime ('2016-12-12', '% Y-% m-% d')

workbook.set_custom_property ('Проверено', 'Ева')
workbook.set_custom_property ('Дата завершения', дата)
workbook.set_custom_property ('Номер документа', 12345)
рабочая тетрадь.set_custom_property ('Справочный номер', 1.2345)
workbook.set_custom_property ('Имеется обзор', True)
workbook.set_custom_property ('Подписано', ложь)
 

Параметры даты должны быть объектами datetime.datetime .

Необязательный параметр property_type может использоваться для установки явного типа для настраиваемого свойства, как в Excel. Доступные типы:

Однако почти во всех случаях тип будет правильно выведен из Тип Python, как в примере выше.

Примечание: параметры name и value ограничены 255 символами Excel.

workbook.define_name ()

имя_определения ()

Создайте в книге определенное имя для использования в качестве переменной.

Параметры:	имя ( строка ) – определенное имя. формула ( строка ) – ячейка или диапазон, на который ссылается определенное имя.

Этот метод используется для определения имени, которое может использоваться для представления значения, одна ячейка или диапазон ячеек в книге. Иногда их называют как «именованный диапазон».

Определенные имена обычно используются для упрощения или уточнения формул с помощью описательные имена переменных:

 workbook.define_name ('Exchange_rate', '= 0.96')
worksheet.write ('B3', '= B2 * Exchange_rate')
 

Как и в Excel, имя, определенное таким образом, является «глобальным» для книги и может быть ссылается на любой рабочий лист:

 # Глобальное имя книги.workbook.define_name ('Продажи', '= Sheet1! $ G $ 1: $ H $ 10')
 

Также возможно определить локальное имя / имя рабочего листа, добавив к нему префикс имя листа с использованием синтаксиса 'имя листа! определенное имя' :

 # Имя локального рабочего листа.
workbook.define_name ('Лист2! Продажи', '= Лист2! $ G $ 1: $ G $ 10')
 

Если имя листа содержит пробелы или специальные символы, вы должны следовать Соглашение Excel и заключите его в одинарные кавычки:

 workbook.define_name ("'Новые данные'! Продажи", '= Sheet2! $ G $ 1: $ G $ 10')
 

Правила для имен в Excel объясняются в Microsoft Office. документация о том, как определять и использовать имена в формулах.

См. Также Пример: Определенные имена / Именованные диапазоны.

workbook.add_vba_project ()

add_vba_project ( vba_project [, is_stream ])

Добавьте двоичный файл vbaProject в книгу Excel.

Параметры:	vba_project – Имя двоичного файла vbaProject. is_stream ( bool ) – vba_project – это поток байтов в памяти.

Метод add_vba_project () может использоваться для добавления макросов или функций в книгу с использованием двоичного файла проекта VBA, извлеченного из существующий файл Excel xlsm:

 workbook.add_vba_project ('./ vbaProject.bin')
 

В книгу можно добавить только один файл vbaProject.bin .

Параметр is_stream используется, чтобы указать, что vba_project относится к поток байтов BytesIO, а не физический файл.Это можно использовать, когда работа с рабочей книгой in_memory режим.

Дополнительные сведения см. В разделе «Работа с макросами VBA».

workbook.set_vba_name ()

set_vba_name ( имя )

Задайте имя VBA для книги.

Параметры:	имя ( строка ) – имя VBA для книги.

Метод set_vba_name () может использоваться для установки кодового имени VBA для рабочая тетрадь.Иногда это требуется, когда макрос vbaProject включен через add_vba_project () относится к книге. Имя Excel VBA по умолчанию для ThisWorkbook используется, если пользовательское имя не указано.

Дополнительные сведения см. В разделе «Работа с макросами VBA».

workbook.worksheets ()

рабочих листов ()

Вернуть список объектов рабочего листа в книге.

Метод worksheets () возвращает список рабочих листов в книге.Это полезно, если вы хотите повторить операцию на каждом листе в рабочая тетрадь:

 для листа в workbook.worksheets ():
    worksheet.write ('A1', 'Привет')
 

workbook.get_worksheet_by_name ()

get_worksheet_by_name ( имя )

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

Параметры:	имя ( строка ) – Имя рабочего листа, который вы хотите получить.
Тип возврата:	Объект листа.

Метод get_worksheet_by_name () возвращает рабочий лист или таблицу объект с заданным именем или Нет , если не найден:

 рабочий лист = workbook.get_worksheet_by_name ('Sheet1')
 

workbook.get_default_url_format ()

get_default_url_format ()

Вернуть объект форматирования.

Метод get_default_url_format () получает копию формата URL по умолчанию используется, когда пользовательский формат не указан с write_url () . В формат – это стиль гиперссылки, определенный Excel для темы по умолчанию:

 url_format = workbook.get_default_url_format ()
 

workbook.set_calc_mode ()

set_calc_mode (режим )

Установите режим вычислений Excel для книги.

Параметры:	mode ( string ) – Строка режима расчета

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

Режим Параметр может быть:

• авто : значение по умолчанию. Excel будет пересчитывать формулы, когда формула или значение, влияющее на изменение формулы.
• руководство : пересчитывать формулы только тогда, когда это требуется пользователю. В целом нажав F9.
• auto_except_tables : Excel автоматически пересчитает формулы кроме таблиц.

workbook.use_zip64 ()

use_zip64 ()

Разрешить расширения ZIP64 при записи zip-контейнера файла xlsx.

Используйте расширения ZIP64 при записи zip-контейнера файла xlsx, чтобы разрешить файлы больше 4 ГБ.

Примечание

При использовании параметра use_zip64 () zip-файл, созданный Python стандартная библиотека zipfile.py может привести к тому, что Excel выдаст предупреждение о восстановление файла. Это предупреждение раздражает, но безвредно. «Отремонтированный» файл будет содержать все данные, записанные XlsxWriter, только zip контейнер будет изменен.

workbook.read_only_recommended ()

read_only_recommended ()

Добавьте рекомендацию открыть файл в режиме «только для чтения».

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

 импорт xlsxwriter

workbook = xlsxwriter.Workbook ('file.xlsx')
рабочий лист = workbook.add_worksheet ()

workbook.read_only_recommended ()

рабочая тетрадь.Закрыть()
 

При открытии файла появится диалоговое окно, подобное следующему:

Использование объекта книги в Excel VBA (открытие, закрытие, сохранение, установка)

В этом руководстве я расскажу, как работать с книгами в Excel с помощью VBA.

В Excel «Рабочая книга» – это объект, который является частью коллекции «Рабочие книги». Внутри книги у вас есть различные объекты, такие как рабочие листы, листы диаграмм, ячейки и диапазоны, объекты диаграмм, фигуры и т. Д.

С VBA вы можете многое делать с объектом книги, например открывать определенную книгу, сохранять и закрывать книги, создавать новые книги, изменять свойства книги и т. д.

Итак, приступим.

Если вы заинтересованы в изучении VBA простым способом, ознакомьтесь с моим курсом Online Excel VBA Training .

Ссылка на книгу с помощью VBA

Существуют различные способы ссылки на объект книги в VBA. Выбранный вами метод будет зависеть от того, что вы хотите сделать. В этом разделе я расскажу о различных способах обращения к книге вместе с некоторыми примерами кодов.

Использование имен книг

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

Начнем с простого примера.

Если у вас открыты две книги и вы хотите активировать книгу с именем – Examples.xlsx, вы можете использовать следующий код:

 Sub ActivateWorkbook ()
Книги ("Examples.xlsx"). Активировать
End Sub 

Обратите внимание, что вам необходимо использовать имя файла вместе с расширением, если файл был сохранен. Если оно не было сохранено, вы можете использовать имя без расширения файла.

Если вы не знаете, какое имя использовать, обратитесь за помощью к Project Explorer.

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

 Sub ActivateWorkbook ()
Рабочие книги ("Examples.xlsx"). Рабочие листы ("Sheet1"). Активировать
Диапазон ("A1"). Выберите
End Sub 

Приведенный выше код сначала активирует Sheet1 в книге Examples.xlsx, а затем выбирает ячейку A1 на листе.

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

Использование порядковых номеров

Вы также можете ссылаться на книги по их порядковому номеру.

Например, если у вас открыто три книги, следующий код покажет вам имена трех книг в окне сообщения (по одному).

 Sub WorkbookName ()
Книги MsgBox (1) .Name
Книги MsgBox (2) .Name
Книги MsgBox (3) .Name
End Sub 

В приведенном выше коде используется MsgBox – функция, отображающая окно сообщения с указанным текстом / значением (которое в данном случае является именем книги).

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

Excel обрабатывает книгу, открытую первой, так, чтобы она имела порядковый номер 1, а следующая – 2 и т. Д.

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

Приведенный ниже код будет проходить через все открытые книги и закрывать все, кроме книги с этим кодом VBA.

 Sub CloseWorkbooks ()
Dim WbCount как целое число
WbCount = Workbooks.Count
Для i = WbCount To 1 Step -1
Если Workbooks (i) .Name <> ThisWorkbook.Name, то
Рабочие тетради (i) .Закрыть
Конец, если
Далее я
End Sub 

Приведенный выше код подсчитывает количество открытых книг, а затем просматривает все книги, используя цикл For Each.

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

Если совпадений нет, книга закрывается и выполняется переход к следующей.

Обратите внимание, что мы запустили цикл от WbCount до 1 с шагом -1. Это делается по мере того, как с каждым циклом количество открытых книг уменьшается.

ThisWorkbook подробно рассматривается в следующем разделе.

Использование ActiveWorkbook

ActiveWorkbook, как следует из названия, относится к активной книге.

Приведенный ниже код покажет вам имя активной книги.

 Sub ActiveWorkbookName ()
MsgBox ActiveWorkbook.Name
End Sub 

Когда вы используете VBA для активации другой книги, часть ActiveWorkbook в VBA после этого начнет ссылаться на активированную книгу.

Вот пример этого.

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

 Sub ActiveWorkbookName ()
MsgBox ActiveWorkbook.Name
Книги ("Examples.xlsx"). Активировать
MsgBox ActiveWorkbook.Name
End Sub 

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

Использование ThisWorkbook

ThisWorkbook относится к книге, в которой выполняется код.

Каждая рабочая книга будет иметь объект ThisWorkbook как часть (видимый в Project Explorer).

«ThisWorkbook» может хранить обычные макросы (аналогичные тем, которые мы добавляем в модули), а также процедуры обработки событий. Процедура события – это то, что запускается на основе события, например двойного щелчка по ячейке, сохранения книги или активации листа.

Любая процедура события, которую вы сохраняете в этой «ThisWorkbook», будет доступна во всей книге по сравнению с событиями уровня листа, которые ограничены только определенными листами.

Например, если вы дважды щелкните объект ThisWorkbook в Project Explorer и скопируйте и вставьте в него приведенный ниже код, он будет отображать адрес ячейки всякий раз, когда вы дважды щелкаете любую из ячеек во всей книге.

 Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh как объект, ByVal Target как диапазон, Cancel as Boolean)
MsgBox Target.Address
End Sub 

Хотя основная роль ThisWorkbook заключается в хранении процедуры события, вы также можете использовать ее для ссылки на книгу, в которой выполняется код.

Приведенный ниже код вернет имя книги, в которой выполняется код.

 Sub ThisWorkbookName ()
MsgBox ThisWorkbook.Name
End Sub 

Преимущество использования ThisWorkbook (над ActiveWorkbook) состоит в том, что во всех случаях он будет ссылаться на одну и ту же книгу (ту, в которой есть код).Поэтому, если вы используете код VBA для добавления новой книги, ActiveWorkbook изменится, но ThisWorkbook по-прежнему будет относиться к той, которая имеет код.

Создание нового объекта книги

Следующий код создаст новую книгу.

 Sub CreateNewWorkbook ()
Рабочие тетради. Добавить
End Sub 

Когда вы добавляете новую книгу, она становится активной.

Следующий код добавит новую книгу, а затем покажет вам имя этой книги (которое будет именем типа Book1 по умолчанию).

 Sub CreateNewWorkbook ()
Рабочие тетради. Добавить
MsgBox ActiveWorkbook.Name
End Sub 

Открытие книги с помощью VBA

Вы можете использовать VBA для открытия определенной книги, если знаете путь к файлу книги.

Приведенный ниже код откроет книгу – Examples.xlsx, которая находится в папке Documents в моей системе.

 Подложка OpenWorkbook ()
Workbooks.Open ("C: \ Users \ sumit \ Documents \ Examples.xlsx")
End Sub 

Если файл существует в папке по умолчанию, то есть в папке, в которой VBA сохраняет новые файлы по умолчанию, вы можете просто указать имя книги – без полного пути.

 Подложка OpenWorkbook ()
Workbooks.Open ("Examples.xlsx")
Конец Sub 

Если книга, которую вы пытаетесь открыть, не существует, вы увидите сообщение об ошибке.

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

Приведенный ниже код проверит местоположение файла и, если он не существует, отобразит настраиваемое сообщение (не сообщение об ошибке):

 Sub OpenWorkbook ()
Если Dir ("C: \ Users \ sumit \ Documents \ Examples.xlsx ") <>" "Тогда
Workbooks.Open ("C: \ Users \ sumit \ Documents \ Examples.xlsx")
Еще
MsgBox «Файл не существует»
Конец, если
End Sub 

Вы также можете использовать диалоговое окно Open, чтобы выбрать файл, который вы хотите открыть.

 Подложка OpenWorkbook ()
При ошибке Возобновить Далее
Dim FilePath как строка
FilePath = Application.GetOpenFilename
Workbooks.Open (FilePath)
End Sub 

Приведенный выше код открывает диалоговое окно Открыть. Когда вы выбираете файл, который хотите открыть, он назначает путь к файлу переменной FilePath.Workbooks.Open затем использует путь к файлу, чтобы открыть файл.

Если пользователь не открывает файл и нажимает кнопку «Отмена», FilePath принимает значение False. Чтобы избежать появления ошибки в этом случае, мы использовали оператор «On Error Resume Next».

Сохранение книги

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

 Sub SaveWorkbook ()
ActiveWorkbook.Save
End Sub 

Этот код работает с книгами, которые уже были сохранены ранее.Кроме того, поскольку книга содержит указанный выше макрос, если он не был сохранен как файл .xlsm (или .xls), вы потеряете макрос, когда откроете его в следующий раз.

Если вы сохраняете книгу в первый раз, она покажет вам подсказку, как показано ниже:

При первом сохранении лучше использовать опцию «Сохранить как».

Приведенный ниже код сохранит активную книгу как файл .xlsm в расположении по умолчанию (которое является папкой документов в моей системе).

 Sub SaveWorkbook ()
ActiveWorkbook.SaveAs Имя файла: = "Test.xlsm", FileFormat: = xlOpenXMLWorkbookMacroEnabled
End Sub 

Если вы хотите, чтобы файл был сохранен в определенном месте, вам необходимо указать это в значении Filename. Приведенный ниже код сохраняет файл на моем рабочем столе.

 Sub SaveWorkbook ()
ActiveWorkbook.SaveAs Имя файла: = "C: \ Users \ sumit \ Desktop \ Test.xlsm", FileFormat: = xlOpenXMLWorkbookMacroEnabled
End Sub 

Если вы хотите, чтобы пользователь мог выбрать место для сохранения файла, вы можете вызвать диалоговое окно Saveas.Приведенный ниже код показывает диалоговое окно «Сохранить как» и позволяет пользователю выбрать место для сохранения файла.

 Sub SaveWorkbook ()
Dim FilePath как строка
FilePath = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Имя файла: = FilePath & ".xlsm", FileFormat: = xlOpenXMLWorkbookMacroEnabled
End Sub 

Обратите внимание, что вместо использования FileFormat: = xlOpenXMLWorkbookMacroEnabled можно также использовать FileFormat: = 52, где 52 – это код xlOpenXMLWorkbookMacroEnabled.

Сохранение всех открытых рабочих книг

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

 Sub SaveAllWorkbooks ()
Dim wb As Workbook
Для каждого ББ в книгах
wb.Save
Следующий wb
End Sub 

Приведенное выше сохраняет все книги, включая те, которые никогда не сохранялись. Книги, которые не были сохранены ранее, будут сохранены в расположении по умолчанию.

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

 Sub SaveAllWorkbooks ()
Dim wb As Workbook
Для каждого ББ в книгах
Если wb.Путь <> "" Тогда
wb.Save
Конец, если
Следующий wb
End Sub 

Сохранение и закрытие всех рабочих книг

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

 Sub CloseandSaveWorkbooks ()
Dim wb As Workbook
Для каждого ББ в книгах
Если wb.Name <> ThisWorkbook.Name Тогда
wb.Close SaveChanges: = True
Конец, если
Следующий wb
End Sub 

Приведенный выше код закроет все книги (кроме книги с кодом – ThisWorkbook).Если в этих книгах есть изменения, они будут сохранены. Если есть книга, которая никогда не сохранялась, отобразится диалоговое окно «Сохранить как».

Сохранить копию книги (с отметкой времени)

Когда я работаю со сложными данными и панелью мониторинга в книгах Excel, я часто создаю разные версии своих книг. Это полезно на случай, если с моей текущей книгой что-то пойдет не так. По крайней мере, у меня была бы его копия, сохраненная под другим именем (и я потеряю только ту работу, которую проделал после создания копии).

Вот код VBA, который создаст копию вашей книги и сохранит ее в указанном месте.

 Sub CreateaCopyofWorkbook ()
ThisWorkbook.SaveCopyAs Имя файла: = "C: \ Users \ sumit \ Desktop \ BackupCopy.xlsm"
End Sub 

Приведенный выше код будет сохранять копию вашей книги каждый раз, когда вы запускаете этот макрос.

Хотя это отлично работает, мне было бы удобнее, если бы я сохранял разные копии при каждом запуске этого кода. Причина, по которой это важно, заключается в том, что если я сделаю непреднамеренную ошибку и запущу этот макрос, он сохранит работу с ошибками.И у меня не будет доступа к работе, пока я не совершу ошибку.

Чтобы справиться с такими ситуациями, вы можете использовать приведенный ниже код, который сохраняет новую копию работы каждый раз, когда вы ее сохраняете. И он также добавляет дату и метку времени как часть имени книги. Это может помочь вам отследить любую допущенную вами ошибку, поскольку вы никогда не потеряете ни одну из ранее созданных резервных копий.

 Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Отменить как Boolean)
ThisWorkbook.SaveCopyAs Имя файла: = «C: \ Users \ sumit \ Desktop \ BackupCopy» & Format (Now (), «дд-мм-гг-чч-мм-сс-AMPM») & ».xlsm "
End Sub 

Приведенный выше код будет создавать копию при каждом запуске этого макроса и добавлять метку даты / времени к имени книги.

Создание новой книги для каждого листа

В некоторых случаях у вас может быть книга с несколькими листами, и вы хотите создать книгу для каждого листа.

Это может быть в том случае, если у вас есть ежемесячные / квартальные отчеты в одной книге, и вы хотите разделить их в одну книгу для каждого рабочего листа.

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

Вот код, который создаст книгу для каждого рабочего листа, присвоит ему то же имя, что и рабочий лист, и сохранит его в указанной папке.

 Sub CreateWorkbookforWorksheets ()
Dim ws как рабочий лист
Dim wb As Workbook
Для каждого ws в ThisWorkbook.Worksheets
Установите wb = Workbooks.Добавлять
ws.Copy До: = wb.Sheets (1)
Application.DisplayAlerts = False
wb.Sheets (2) .Удалить
Application.DisplayAlerts = True
wb.Save как "C: \ Users \ sumit \ Desktop \ Test \" & ws.Name & ".xlsx"
wb.Close
Следующий ws
End Sub 

В приведенном выше коде мы использовали две переменные «ws» и «wb».

Код просматривает каждый рабочий лист (используя цикл For Each Next) и создает для него книгу. Он также использует метод копирования объекта рабочего листа для создания копии рабочего листа в новой книге.

Обратите внимание, что я использовал оператор SET для присвоения переменной «wb» любой новой книге, созданной с помощью кода.

Этот метод можно использовать для присвоения объекта книги переменной. Это рассматривается в следующем разделе.

Назначить объект книги переменной

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

Например, в приведенном ниже коде я использую VBA для добавления новой книги, а затем назначаю эту книгу переменной wb.Для этого мне нужно использовать инструкцию SET.

После того, как я назначил книгу переменной, все свойства книги также становятся доступными для переменной.

 Sub AssigntoVariable ()
Dim wb As Workbook
Установите wb = Workbooks.Add.
wb.SaveAs Имя файла: = "C: \ Users \ sumit \ Desktop \ Examples.xlsx"
End Sub 

Обратите внимание, что первым шагом в коде является объявление «wb» как переменной типа книги. Это сообщает VBA, что эта переменная может содержать объект книги.

Следующий оператор использует SET для присвоения переменной новой книге, которую мы добавляем. Как только это назначение будет выполнено, мы можем использовать переменную wb для сохранения книги (или сделать с ней что-нибудь еще).

Цикл через открытые книги

Мы уже видели несколько примеров кода выше, в которых использовался цикл в коде.

В этом разделе я объясню различные способы циклического перебора открытых книг с помощью VBA.

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

 Sub CloseandSaveWorkbooks ()
Dim wb As Workbook
Для каждого ББ в книгах
Если wb.Имя <> ThisWorkbook.Name Then
wb.Close SaveChanges: = True
Конец, если
Следующий wb
End Sub 

В приведенном выше коде используется цикл For Each для просмотра каждой книги в коллекции Workbooks. Для этого нам сначала нужно объявить «wb» в качестве переменной типа книги.

В каждом цикле цикла каждое имя книги анализируется, и если оно не соответствует имени книги с кодом, она закрывается после сохранения ее содержимого.

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

 Sub CloseWorkbooks ()
Dim WbCount как целое число
WbCount = Книги.Считать
Для i = WbCount To 1 Step -1
Если Workbooks (i) .Name <> ThisWorkbook.Name, то
Рабочие книги (i) .Close SaveChanges: = True
Конец, если
Далее я
End Sub 

В приведенном выше коде цикл For Next используется для закрытия всех книг, кроме той, в которой есть код. В этом случае нам не нужно объявлять переменную книги, но вместо этого нам нужно подсчитать общее количество открытых книг. Когда у нас есть счетчик, мы используем цикл For Next для просмотра каждой книги. Кроме того, в этом случае мы используем порядковый номер для ссылки на книги.

Обратите внимание, что в приведенном выше коде мы переходим от WbCount к 1 с шагом -1. Это необходимо, так как при каждом цикле книга закрывается, а количество книг уменьшается на 1.

Ошибка при работе с объектом книги (ошибка времени выполнения ‘9’)

Одна из наиболее распространенных ошибок, которые вы можете при работе с книгами возникает ошибка времени выполнения «9» – индекс вне допустимого диапазона.

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

Вот некоторые из возможных причин, которые могут привести к этой ошибке:

• Книга, к которой вы пытаетесь получить доступ, не существует. Например, если я пытаюсь получить доступ к пятой книге с помощью Рабочих книг (5), а открыты только 4 книги, я получу эту ошибку.
• Если вы используете неправильное имя для ссылки на книгу. Например, если имя вашей книги – Examples.xlsx, и вы используете Example.xlsx. тогда он покажет вам эту ошибку.
• Если вы не сохранили книгу и используете расширение, вы получите эту ошибку.Например, если имя вашей книги – Book1, и вы используете имя Book1.xlsx, не сохраняя его, вы получите эту ошибку.
• Книга, к которой вы пытаетесь получить доступ, закрыта.

Получить список всех открытых книг

Если вы хотите получить список всех открытых книг в текущей книге (книге, в которой вы запускаете код), вы можете использовать следующий код:

 Sub GetWorkbookNames ()
Dim wbcount как целое число
wbcount = Workbooks.Count
ThisWorkbook.Рабочие листы.Добавить
ActiveSheet.Range ("A1"). Активировать
Для i = 1 на wbcount
Диапазон ("A1"). Смещение (i - 1, 0). Значение = Рабочие книги (i). Имя
Далее я
End Sub 

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

Если вы также хотите получить путь к их файлу, вы можете использовать следующий код:

 Sub GetWorkbookNames ()
Dim wbcount как целое число
wbcount = Workbooks.Count
ThisWorkbook.Worksheets.Add
ActiveSheet.Range ("A1").Активировать
Для i = 1 на wbcount
Диапазон ("A1"). Смещение (i - 1, 0). Value = Workbooks (i) .Path & "\" & Workbooks (i) .Name
Далее я
End Sub 

Откройте указанную книгу, дважды щелкнув ячейку

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

 Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh как объект, ByVal Target как диапазон, Cancel as Boolean)
Рабочие тетради.Открыть Target.Value
End Sub 

Этот код будет помещен в окно кода ThisWorkbook.

Для этого:

• Дважды щелкните объект ThisWorkbook в проводнике проекта. Обратите внимание, что объект ThisWorkbook должен находиться в книге, где вам нужна эта функция.
• Скопируйте и вставьте приведенный выше код.

Теперь, если у вас есть точный путь к файлам, которые вы хотите открыть, вы можете сделать это, просто дважды щелкнув путь к файлу, и VBA мгновенно откроет эту книгу.

Где разместить код VBA

Хотите знать, где находится код VBA в вашей книге Excel?

Excel имеет серверную часть VBA, называемую редактором VBA. Вам необходимо скопировать и вставить код в окно кода модуля VB Editor.

Вот шаги, чтобы сделать это:

1. Перейдите на вкладку Разработчик.
2. Щелкните параметр Visual Basic. Это откроет редактор VB в бэкэнде.
3. В панели Project Explorer в редакторе VB щелкните правой кнопкой мыши любой объект книги, в которую вы хотите вставить код.Если вы не видите Project Explorer, перейдите на вкладку View и нажмите Project Explorer.
4. Перейдите во вкладку “Вставить” и щелкните “Модуль”. Это вставит объект модуля для вашей книги.
5. Скопируйте и вставьте код в окно модуля.

Вам также могут понравиться следующие руководства по Excel VBA:

Полное руководство по книге VBA

«Мы тонем в информации, но жаждем знаний». – Джон Нейсбитт

Этот пост представляет собой полное руководство по использованию книги VBA.

Если вы хотите использовать VBA для Откройте рабочую книгу , ознакомьтесь с Open Workbook

Если вы хотите использовать VBA для , создайте новую книгу , перейдите в Create New Workbook

Для всех других задач книги VBA, ознакомьтесь с кратким руководством ниже .

Краткое руководство к книге VBA

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

Веб-семинар по рабочим книгам VBA

Если вы являетесь участником веб-сайта, щелкните изображение ниже, чтобы перейти к веб-семинару.

( Примечание: Участники веб-сайта имеют доступ к полному архиву вебинаров.)

Начало работы с книгой VBA

Мы можем получить доступ к любой открытой книге , используя код Workbooks ( «Пример .xlsm « ). Просто замените Example.xlsm на имя книги, которую вы хотите использовать.

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

https://excelmacromastery.com/
Общедоступная подписка WriteToA1 ()

    'Записывает 100 в ячейку A1 рабочего листа "Sheet1" в MyVBA.xlsm.
Рабочие книги ("MyVBA.xlsm"). Рабочие листы ("Sheet1"). Диапазон ("A1") = 100

Конец подписки
 

Этот пример может немного сбить с толку нового пользователя, но на самом деле он довольно прост.

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

https://excelmacromastery.com/
Публичная подписка WriteToMulti ()

'Записывает 100 в ячейку A1 рабочего листа "Sheet1" в MyVBA.xlsm.
Рабочие книги ("MyVBA.xlsm"). Рабочие листы ("Sheet1"). Диапазон ("A1") = 100

'Записывает «Джон» в ячейку B1 рабочего листа «Sheet1» в MyVBA.xlsm.
Рабочие книги ("MyVBA.xlsm"). Рабочие листы ("Sheet1"). Range ("B1") = "John"

'Записывает 100 в ячейку A1 рабочего листа «Учетные записи» в MyVBA.xlsm.
Рабочие тетради ("MyVBA.xlsm "). Таблицы (" Учетные записи "). Диапазон (" A1 ") = 100

'Записывает дату в ячейку D3 рабочего листа Sheet2 в Book.xlsc
Рабочие книги ("Book.xlsx"). Рабочие листы ("Sheet2"). Range ("D3") = "1 \ 1 \ 2016"

Конец подписки
 

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

Взгляните на часть рабочей тетради

Рабочие тетради («Пример.xlsx ")
 

Ключевое слово Workbooks относится к коллекции всех открытых книг. Добавление имени книги в коллекцию дает нам доступ к этой книге. Когда у нас есть объект, мы можем использовать его для выполнения задач с книгой.

Устранение неполадок с коллекцией книг

При использовании коллекции Workbooks для доступа к книге вы можете получить сообщение об ошибке:

Ошибка выполнения 9: индекс вне допустимого диапазона.

Это означает, что VBA не может найти книгу, которую вы передали в качестве параметра.

Это может произойти по следующим причинам

1. Книга в настоящее время закрыта.
2. Вы неправильно написали имя.
3. Вы создали новую книгу (например, Book1) и попытались получить к ней доступ с помощью Workbooks («Book1.xlsx»). Его имя не будет Book1.xlsx , пока оно не будет сохранено в первый раз.
4. (только Excel 2007/2010) Если вы используете два экземпляра Excel, то «Рабочие книги» () относятся только к книгам, открытым в текущем экземпляре Excel.
5. Вы передали число в качестве индекса, и оно больше, чем количество открытых книг, например вы использовали Рабочие книги (3), и открыты только две книги.

Если не удается устранить ошибку, используйте любую из функций в разделе «Поиск всех открытых книг». Они напечатают имена всех открытых книг в непосредственном окне (Ctrl + G).

Примеры использования книги VBA

Следующие примеры показывают, что вы можете делать с книгой.

Примечание: Чтобы попробовать этот пример, создайте две открытые книги с именами Test1.xlsx и Test2.xlsx .

https://excelmacromastery.com/
Public Sub WorkbookProperties ()

    'Печатает количество открытых книг
    Debug.Print Workbooks.Count

    'Печатает полное имя книги
    Debug.Print Workbooks ("Test1.xlsx"). FullName

    'Отображает полное имя книги в диалоговом окне сообщения
    Книги MsgBox ("Test1.xlsx "). FullName

    'Печатает количество листов в Test2.xlsx
    Debug.Print Workbooks ("Test2.xlsx"). Worksheets.Count

    'Печатает имя текущего активного листа Test2.xlsx
    Debug.Print Workbooks ("Test2.xlsx"). ActiveSheet.Name

    'Закрывает книгу Test1.xlsx
    Книги ("Test1.xlsx"). Закрыть

    'Закрывает книгу Test2.xlsx и сохраняет изменения
    Книги ("Test2.xlsx"). Закройте SaveChanges: = True

Конец подписки
 

Примечание: В примерах кода я использую Debug.Распечатайте много. Эта функция печатает значения в окне немедленного доступа. Чтобы просмотреть это окно, выберите в меню View-> Immediate Window (сочетание клавиш Ctrl + G)

Доступ к книге VBA по индексу

Вы также можете использовать номер Index с Workbooks () . Индекс относится к порядку открытия или создания книги.

Рабочие книги (1) относятся к книге, которая была открыта первой.Рабочие книги (2) относятся к книге, которая была открыта второй, и так далее.

'Первая открытая рабочая тетрадь
Отладка. Печать книг (1). Имя

'Третья открытая рабочая тетрадь
Отладка. Печать книг (3). Имя

'Последняя открытая рабочая тетрадь
Отладка.Печать книг (Workbooks.Count) .Name
 

В этом примере мы использовали Workbooks.Count . Это количество книг, которые в настоящее время находятся в коллекции Workbooks.То есть количество рабочих книг, открытых в данный момент. Таким образом, использование его в качестве индекса дает нам последнюю открытую книгу

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

Поиск всех открытых книг

Иногда может потребоваться получить доступ ко всем открытым книгам. Другими словами, все элементы в коллекции Workbooks () .

Это можно сделать с помощью цикла For Each.

https://excelmacromastery.com/
Общедоступная подписка PrintWrkFileName ()

    'Распечатывает полное имя всех открытых книг
    Тусклый труд как рабочая тетрадь
    Для каждой работы в рабочих тетрадях
        Debug.Print wrk.FullName
    Следующая работа

Конец подписки
 

Вы также можете использовать стандартный цикл For для доступа ко всем открытым книгам

https: // excelmacromastery.com /
Общедоступный Sub PrintWrkFileNameIdx ()

    'Распечатывает полное имя всех открытых книг
    Тусклый я как долго
    Для i = 1 To Workbooks.Count
        Отладка.Печать книг (i) .FullName
    Далее я

Конец подписки
 

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

Примечание: Оба примера читаются в порядке от первого открытого до последнего открытого.Если вы хотите читать в обратном порядке (от последнего к первому), вы можете сделать это

https://excelmacromastery.com/
Общедоступная подпрограмма PrintWrkFileNameIdxRev ()

    'Распечатывает полное имя всех открытых книг
    'в обратном порядке.
    Тусклый я как долго
    Для i = Workbooks.Count To 1 Step -1
        Отладка.Печать книг (i) .FullName
    Далее я

Конец подписки
 

Открытая книга

До сих пор мы имели дело с уже открытыми рабочими книгами.Конечно, необходимость вручную открывать книгу перед запуском макроса сводит на нет автоматизацию задач. Задача Open Workbook должна выполняться VBA.

Следующий код VBA открывает книгу «Book1.xlsm» в папке «C: \ Docs»

https://excelmacromastery.com/
Публичная подписка OpenWrk ()

    'Откройте книгу и распечатайте количество содержащихся в ней листов.
    Workbooks.Open ("C: \ Docs \ Book1.xlsm")

    Отлаживать.Печатные книги ("Book1.xlsm"). Worksheets.Count

    'Закройте книгу без сохранения
    Книги ("Book1.xlsm"). Закройте saveChanges: = False

Конец подписки
 

Рекомендуется проверить, действительно ли существует книга, прежде чем пытаться ее открыть. Это предотвратит появление ошибок. Функция Dir позволяет легко это сделать.

https://excelmacromastery.com/
Публичная подписка OpenWrkDir ()

    Если Dir ("C: \ Docs \ Book1.xlsm ") =" "Тогда
        'Файл не существует - проинформируйте пользователя
        MsgBox «Не удалось открыть книгу. Убедитесь, что она существует»
    Еще
        'откройте книгу и сделайте с ней что-нибудь
        Workbooks.Open ("C: \ Docs \ Book1.xlsm")
    Конец, если

Конец подписки

 

Проверить открытую книгу

Если вы открываете книгу как только для чтения , не имеет значения, открыта ли она уже. Однако, если вы собираетесь обновлять данные в книге, рекомендуется проверить, открыта ли она уже.

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

(Код ниже взят из этой записи StackOverFlow.)

https://excelmacromastery.com/
Функция GetWorkbook (ByVal sFullFilename как строка) как рабочая книга
    
    Dim sFilename как строка
    sFilename = Dir (sFullFilename)
    
    При ошибке Возобновить Далее
    Dim wk As Workbook
    Установить wk = Workbooks (sFilename)
    
    Если wk - это ничто, тогда
        Установите wk = Workbooks.Открыть (sFullFilename)
    Конец, если
    
    При ошибке Перейти к 0
    Установите GetWorkbook = wk
    
Конечная функция
 

Эту функцию можно использовать так

https://excelmacromastery.com/
Sub ExampleOpenWorkbook ()

    Dim sFilename как строка
    sFilename = "C: \ Docs \ Book2.xlsx"

    Dim wk As Workbook
    Установите wk = GetWorkbook (sFilename)
    
Конец подписки
 

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

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

(приведенный ниже код также взят из этой записи StackOverFlow)

https: // excelmacromastery.com /
'Функция проверки, открыта ли уже книга
Функция IsWorkBookOpen (strBookName как строка) как логическое значение
    
    Dim oBk как рабочая тетрадь
    
    При ошибке Возобновить Далее
    Установите oBk = Workbooks (strBookName)
    При ошибке GoTo 0
    
    Если не oBk - это ничто, тогда
        IsWorkBookOpen = True
    Конец, если
    
Конечная функция
 

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

https://excelmacromastery.com/
Sub ExampleUse ()

    Dim sFilename как строка
    sFilename = "C: \ temp \ writedata.xlsx"

    Если IsWorkBookOpen (Dir (sFilename)) = True, то
        MsgBox «Файл уже открыт. Закройте файл и снова запустите макрос».
        Выйти из подводной лодки
    Конец, если
    
    'Напишите сюда в рабочую тетрадь
    
Конец подписки
 

Если вам нужно проверить, открыта ли книга в другом экземпляре Excel, вы можете использовать атрибут ReadOnly книги.Будет установлено значение true, если он открыт в другом экземпляре.

Закрыть книгу

Закрыть книгу в Excel VBA очень просто. Вы просто вызываете метод книги Close .

нед.Закрыть
 

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

Вы можете указать, сохранять книгу или нет, и тогда сообщения Excel не будут отображаться.

'Не сохранять изменения
wk.Close SaveChanges: = False

'Сохранить изменения
wk.Close SaveChanges: = True
 

Очевидно, вы не можете сохранить изменения в книге, которая в настоящее время открыта только для чтения.

Сохранить книгу

Мы только что видели, что вы можете сохранить книгу, когда закрываете ее. Если вы хотите сохранить его на любом другом этапе, вы можете просто использовать метод Сохранить

нед.Сохранить
 

Вы также можете использовать метод SaveAs

wk.Save как "C: \ Backups \ accounts.xlsx"
 

Метод Workbook SaveAs имеет двенадцать параметров, которые позволяют вам добавить пароль, сделать файл доступным только для чтения и так далее. Вы можете увидеть подробности здесь.

Вы также можете использовать VBA для сохранения книги в виде копии с помощью SaveCopyAs

wk.SaveCopyAs "C: \ Docs \ Copy.xlsm "
 

Копия книги

Если книга открыта, вы можете использовать два метода, описанные в предыдущем разделе, для создания копии, то есть SaveAs и SaveCopyAs .


Если вы хотите скопировать книгу, не открывая ее, вы можете использовать FileCopy , как показано в следующем примере

Public Sub CopyWorkbook ()
    FileCopy "C: \ Docs \ Docs.xlsm", "C: \ Docs \ Example_Copy.xlsm"
Конец подписки
 

Использование диалогового окна файла для открытия книги

В предыдущем разделе показано, как открыть книгу с заданным именем.Иногда вы можете захотеть, чтобы пользователь выбрал книгу. Вы можете легко использовать диалоговое окно Windows File Dialog , показанное здесь.

Диалог файла Windows

1. Выберите файл.
2. Выберите папку.
3. Откройте файл.
4. «Сохранить как» файл.

Если вы просто хотите, чтобы пользователь выбрал файл, вы можете использовать функцию GetOpenFilename.

Следующая функция открывает книгу с помощью диалогового окна «Файл». Функция возвращает полное имя файла, если файл был выбран. Если пользователь отменяет, отображается сообщение и возвращается пустая строка.

https://excelmacromastery.com/
Открытая функция UserSelectWorkbook () как строка

    При ошибке Перейти к ErrorHandler

    Dim sWorkbookName As String

    Dim FD как FileDialog
    Установите FD = Application.FileDialog (msoFileDialogFilePicker)

    'Открыть диалоговое окно файла
    С FD
        'Установить заголовок диалогового окна
        .Title = "Пожалуйста, выберите файл"

        'Добавить фильтр
        .Filters.Добавьте «Файлы Excel», «* .xls; *. Xlsx; *. Xlsm».

        'Разрешить выбор только одного файла
        .AllowMultiSelect = Ложь

        'Показать диалог
        .Показывать

        Если .SelectedItems.Count> 0 Тогда
            UserSelectWorkbook = .SelectedItems (1)
        Еще
            MsgBox «Выбор файла отменен».
            UserSelectWorkbook = ""
        Конец, если
    Конец с

    'Очистить
    Установите FD = Nothing
Сделанный:
    Функция выхода
ErrorHandler:
    MsgBox "Ошибка:" + Err.Описание
Конечная функция
 

Когда вы вызываете эту функцию, вы должны проверить, отменяет ли пользователь диалоговое окно. В следующем примере показано, как легко вызвать функцию UserSelectWorkbook и обработать случай отмены пользователем

https://excelmacromastery.com/
Открытый Sub TestUserSelect ()

    Dim userBook As Workbook, sFilename As String

    'Вызов функции UserSelectworkbook
    sFilename = UserSelectWorkbook ()

    'Если имя файла возвращается пустым, пользователь отменил
    Если sFilename "" Тогда
        'Откройте книгу и сделайте с ней что-нибудь
        Установите userBook = Workbooks.Открыть (sFilename)
    Конец, если

Конец подписки
 

Вы можете настроить диалоговое окно, изменив заголовок, фильтры и AllowMultiSelect в функции UserSelectWorkbook .

Использование ThisWorkbook

Существует более простой способ получить доступ к текущей книге, чем использование Workbooks () . Вы можете использовать ключевое слово ThisWorkbook . Это относится к текущей книге, то есть книге, содержащей код VBA.

Если наш код находится в книге, вызовите MyVBA.xlsm, тогда ThisWorkbook и Workbooks («MyVBA.xlsm») относятся к той же книге.

Использование ThisWorkbook более полезно, чем использование Workbooks () . С ThisWorkbook нам не нужно беспокоиться об имени файла. Это дает нам два преимущества:

1. Изменение имени файла не повлияет на код
2. Копирование кода в другую книгу не требует изменения кода

Это может показаться очень незначительным преимуществом.На самом деле имена ваших файлов будут постоянно меняться. Использование ThisWorkbook означает, что ваш код по-прежнему будет работать нормально.

В следующем примере показаны две строки кода. Один использует ThisWorkbook , а другой – Workbooks () . Тот, который использует рабочие книги, больше не будет работать, если имя MyVBA.xlsm изменится.

https://excelmacromastery.com/
Общедоступная подписка WriteToCellUsingThis ()

    «Обе строчки делают одно и то же.Debug.Print ThisWorkbook.FullName
    Debug.Print Workbooks ("MyVBA.xlsm"). FullName

Конец подписки
 

Использование ActiveWorkbook

ActiveWorkbook относится к рабочей книге, которая в настоящее время активна. Это тот, на который пользователь нажимал последний раз.

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

Использование ActiveWorkbook также затрудняет чтение кода. Из кода может быть не очевидно, какая книга должна быть активной.

Надеюсь, я ясно дал понять, что вам следует избегать использования ActiveWorkbook , если в этом нет необходимости. Если нужно, то будьте очень осторожны.

Примеры доступа к книге

Мы рассмотрели все способы доступа к книге. В следующем коде показаны примеры этих способов

https: // excelmacromastery.com /
Общедоступные вспомогательные книги

    'Это рабочая книга, которая уже открыта и называется MyVBA.xlsm
    Debug.Print Workbooks ("MyVBA.xlsm"). FullName

    'Книга, содержащая этот код
    Debug.Print ThisWorkbook.FullName

    'Первая открытая книга
    Отладка.Печать книг (1) .FullName

    'Последняя открытая книга
    Отладка.Печать рабочих книг (Workbooks.Count) .FullName

    'Текущая активная книга
    Отлаживать.Распечатать ActiveWorkbook.FullName

    'Рабочая тетрадь не указана - будет использоваться активная
    Debug.Print Worksheets ("Sheet1"). Имя

    'Закрытая книга под названием Book1.xlsm в папке C: \ Docs
    Workbooks.Open ("C: \ Docs \ Book1.xlsm")
    Debug.Print Workbooks ("Book1.xlsm"). FullName
    Рабочие тетради ("Book1.xlsm"). Закрыть

Конец подписки
 

Объявление переменной книги VBA

Причина объявления переменной книги состоит в том, чтобы упростить чтение и понимание кода.Лучше увидеть преимущество на примере

https://excelmacromastery.com/
Публичная подпрограмма OpenWrkObjects ()

    Тусклый труд как рабочая тетрадь
    Установите wrk = Workbooks.Open ("C: \ Docs \ Book1.xlsm")

    'Распечатать количество листов в каждой книге
    Debug.Print wrk.Worksheets.Count
    Debug.Print wrk.Name

    wrk.Close

Конец подписки
 

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

Ниже показан тот же код без переменной книги

https://excelmacromastery.com/
Публичная подпрограмма OpenWrkNoObjects ()

   Workbooks.Open ("C: \ Docs \ Book1.xlsm")

   Debug.Print Workbooks ("Book2.xlsm"). Worksheets.Count
   Debug.Print Workbooks ("Book2.xlsm"). Имя

    Рабочие тетради ("Book2.xlsm"). Закрыть

Конец подписки
 

В этих примерах разница несущественная. Однако, когда у вас много кода, использование переменной полезно, в частности, для рабочих таблиц и диапазонов, имена которых имеют тенденцию быть длинными e.грамм. thisWorkbook.Worksheets («Sheet1»). Range («A1») .

Переменной книги можно присвоить имя, например, wrkRead или wrkWrite. Тогда вы сразу поймете, для чего используется эта книга.

Создать новую книгу

Чтобы создать новую книгу, вы используете функцию Рабочие книги Добавить . Эта функция создает новую пустую книгу. Это то же самое, что выбрать «Новая книга» в меню «Файл Excel».

Когда вы создаете новую книгу, вы, как правило, хотите сохранить ее.В следующем коде показано, как это сделать.

https://excelmacromastery.com/
Общедоступная подписка AddWordbook ()

    Тусклый труд как рабочая тетрадь
    Установить wrk = Workbooks.Add

    'Сохранить как xlsx. Это значение по умолчанию.
    wrk.SaveAs "C: \ Temp \ Example.xlsx"

    'Сохранить как книгу с поддержкой макросов
    wrk.SaveAs "C: \ Temp \ Example.xlsm", xlOpenXMLWorkbookMacroEnabled

Конец подписки
 

Когда вы создаете новую книгу, она обычно состоит из трех листов.Это определяется свойством Application.SheetsInNewWorkbook .

Если вы хотите, чтобы в новой книге было другое количество листов, измените это свойство перед созданием новой книги. В следующем примере показано, как создать новую книгу с семью листами.

https://excelmacromastery.com/
Общедоступная подписка AddWordbookMultiSheets ()

    'Сохранить значение SheetsInNewWorkbook, чтобы мы могли сбросить его позже
    Тусклый листCnt по длине
    sheetCnt = Приложение.ТаблицыInNewWorkbook

    'Установить в новой книге 7 листов.
    Application.SheetsInNewWorkbook = 7

    'Рабочая тетрадь будет создана из 7 листов
    Тусклый труд как рабочая тетрадь
    Установить wrk = Workbooks.Add

    'Отображение количества листов
    Debug.Print "количество листов:" & CStr (wrk.Worksheets.Count)

    'Восстановить исходное значение
    Application.SheetsInNewWorkbook = sheetCnt

Конец подписки
 

Ключевое слово With и рабочая тетрадь

Ключевое слово With упрощает чтение и запись кода VBA.Использование с означает, что вам нужно упомянуть элемент только один раз. С используется с Объектами. Это такие элементы, как рабочие тетради, рабочие листы и диапазоны.

В следующем примере два Subs. Первый похож на код, который мы видели до сих пор. Второй использует ключевое слово с . Вы можете видеть, что код намного яснее во втором Sub. Ключевые слова Конец на обозначают окончание кода раздела с помощью на .

https://excelmacromastery.com/
'Без ключевого слова With
Общедоступная подпрограмма NoUsingWith ()

   Debug.Print Workbooks ("Book2.xlsm"). Worksheets.Count
   Debug.Print Workbooks ("Book2.xlsm"). Имя
   Debug.Print Workbooks ("Book2.xlsm"). Worksheets (1) .Range ("A1")
   Рабочие тетради ("Book2.xlsm"). Закрыть

Конец подписки

'Использование With упрощает чтение кода
Публичная подписка UsingWith ()

    С книгами ("Book2.xlsm")
        Отлаживать.Распечатать .Worksheets.Count
        Debug.Print .Name
        Debug.Print .Worksheets (1) .Range ("A1")
        .Закрывать
    Конец с

Конец подписки
 

Сводка

Ниже приводится краткое изложение основных моментов этого поста

1. Чтобы получить книгу, содержащую код, используйте ThisWorkbook .
2. Чтобы получить любую открытую книгу, используйте Рабочие книги («Example.xlsx») .
3. Чтобы открыть книгу, используйте Set Wrk = Workbooks.Откройте («C: \ Folder \ Example.xlsx»).
4. Разрешить пользователю выбирать файл с помощью функции UserSelectWorkbook , представленной выше.
5. Чтобы создать копию открытой книги, используйте свойство SaveAs с именем файла.
6. Чтобы создать копию книги без открытия, используйте функцию FileCopy .
7. Чтобы упростить чтение и запись кода, используйте ключевое слово With .
8. Другой способ сделать ваш код понятным – использовать Рабочую книгу переменных
9. Чтобы просмотреть все открытые книги, используйте для каждой недели в рабочих книгах , где недель – переменная книги.
10. Старайтесь избегать использования ActiveWorkbook и Workbooks (Index) , поскольку их ссылка на книгу является временной.

Вы можете увидеть краткое руководство по теме в верхней части этого сообщения

Заключение

Это был подробный пост об очень важном элементе VBA – Рабочей книге. Надеюсь, вы сочли это полезным. Excel отлично предоставляет множество способов выполнения аналогичных действий, но недостатком является то, что иногда это может привести к путанице.

Чтобы извлечь максимальную пользу из этого поста, я рекомендую вам попробовать примеры. Создайте книги и поиграйте с кодом. Внесите изменения в код и посмотрите, как изменения повлияют на результат. Практика – лучший способ изучить VBA.

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

Что дальше?

Бесплатное руководство по VBA Если вы новичок в VBA или хотите отточить свои существующие навыки VBA, почему бы не попробовать The Ultimate VBA Tutorial.

Связанное обучение: Получите полный доступ к обучающим вебинарам по Excel VBA и всем учебным материалам.