KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как использовать кнопку управления для сохранения активного листа в формате PDF в Excel?

АвторSiluviaДата изменения

При работе в Microsoft Excel вам может понадобиться сохранять активный лист в формате PDF. В этой статье вы узнаете, как сохранять активный лист как PDF-файл с помощью кода VBA через управляющую кнопку. Кроме того, если вы хотите сохранять определённый диапазон или каждый лист текущей книги в отдельные PDF-файлы, эта статья также окажется вам полезной.

Используйте кнопку управления для сохранения активного листа как Файлы PDF с помощью кода VBA
Легко сохраняйте активный или каждый лист как отдельные файлы Файлы PDF с помощью Kutools для Excel

Используйте кнопку управления для сохранения активного листа как Файлы PDF с помощью кода VBA

Вы можете сохранить активный лист в формате PDF, нажав кнопку управления и выполнив следующий код VBA. Сделайте следующее:

1. Сначала создайте папку с именем PDF для сохранения преобразованных файлов. В данном примере она создаётся на локальном диске (C:).

2. Вставьте кнопку управления, выбрав Разработчик > Вставить > Кнопка управления (элемент управления ActiveX). См. снимок экрана:

щелкните кнопку «Элемент управления» на вкладке «Разработчик»

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

выберите «Свойства» в контекстном меню

3. В диалоговом окне Свойства введите отображаемый текст кнопки управления в поле Надпись на вкладке По категориям и закройте диалоговое окно.

введите отображаемый текст кнопки «Элемент управления» в диалоговом окне «Свойства»

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

отображаемый текст кнопки «Элемент управления» изменен

4. Щёлкните правой кнопкой мыши по кнопке управления ещё раз и выберите пункт Просмотреть код из контекстного меню.

выберите «Просмотреть код» в контекстном меню

5. В открывшемся окне Microsoft Visual Basic для приложений замените исходный код в окне редактора приведённым ниже кодом VBA.

Код VBA: Кнопка управления для сохранения активного листа как PDF

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

Примечание: В коде CommandButton1 — это имя управляющей кнопки, с помощью которой вы будете сохранять текущий лист в формате PDF. «C:\PDF\Export.pdf» — путь и имя файла для сохранения PDF-документа.

6. Нажмите клавиши Alt+Q одновременно, чтобы закрыть окно Microsoft Visual Basic для приложений. Затем отключите режим Конструктор на вкладке Разработчик.

Теперь при нажатии кнопки управления активный лист будет сохранён в указанном расположении как файл PDF с именем «Export».

Сохранение каждого листа как отдельных файлов Файлы PDF из Текущая книга с помощью Kutools для Excel

Здесь рекомендуется воспользоваться утилитой Разделить книгу из Kutools для Excel, чтобы легко сохранить активный лист как файл PDF. Более того, с помощью этой утилиты вы также можете сохранить каждый лист в текущей книге как отдельные файлы PDF.

Kutools для Excelпредлагает более 300 расширенных функций для упрощения сложных задач, повышая креативность и эффективность.Интегрировано с возможностями ИИ, Kutools автоматизирует задачи с высокой точностью, делая управление данными простым и удобным.Подробная информация о Kutools для Excel…         Бесплатная пробная версия…

1. В книге, где требуется сохранить каждый лист как отдельный файл PDF, нажмите KUTOOLS PLUS > Книга > Разделить книгу. См. снимок экрана:

щелкните функцию «Разделить книгу» Kutools

2. В диалоговом окне Разделить книгу выполните следующие настройки:

2,1) Установите флажок только напротив имени Текущий лист в поле Имя листа;
2,2) Выберите вариант PDF (*.pdf)в списке Указать формат сохраненияРаскрывающийся список;
2,3) Нажмите кнопку Разделить, после чего появится диалоговое окно Выбор папки, в котором укажите папку для сохранения файлов Файлы PDF;

укажите параметры в диалоговом окне «Разделить книгу»

Затем выбранный лист сразу же сохраняется в формате PDF.

выбранный лист сохранен как файл PDF

Примечания:

1. Вы можете выбрать несколько листов Имя листа в поле Имя листа, чтобы сохранить их как отдельные файлы Файлы PDF одновременно;
2. Помимо сохранения листов как файлов Файлы PDF, вы также можете сохранять листы в форматах txt или csv по необходимости.

Связанные статьи:

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

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

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек