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

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

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

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

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

1. Сначала вам нужно создать папку с именем PDF для сохранения вашего нового преобразованного PDF-файла. Здесь я создаю эту папку на моем локальном диске (C:).

2. Пожалуйста, вставьте кнопку Command, нажав Разработчик > Вставить > Кнопка Command (Элемент управления ActiveX). Смотрите скриншот:

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

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

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

4. Щелкните правой кнопкой мыши по кнопке Command снова, а затем выберите Просмотр кода из контекстного меню.

5. В открывшемся окне Microsoft Visual Basic for Applications, пожалуйста, замените исходный код в окне Код на следующий код VBA.

Код VBA: Кнопка Command для сохранения активного листа в формате 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 — это имя кнопки Command, которую вы будете использовать для сохранения активного листа в формате PDF-файла. "C:\PDF\Export.pdf" — это путь и имя вашего сохраняемого PDF-файла.

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

Теперь, нажав на кнопку Command, активный лист будет сохранен в виде PDF-файла с именем Export и размещен в указанном месте.

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

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

1. В книге, где вам нужно сохранить каждый лист в виде отдельного PDF-файла, нажмите Kutools Plus > Книга > Разделить книгу. Смотрите скриншот:

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

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

Примечания:

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

• Как автоматически вставить новую пустую строку с помощью кнопки Command в Excel?
• Как отформатировать ячейку, чтобы она выглядела как 3D-кнопка в Excel?
• Как скрыть или показать кнопку Command на основе указанного значения ячейки в Excel?