Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

Сохранить диапазон выбранных ячеек в виде файла PDF с помощью Kutools for Excel

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


Легко сохранять выбор в формате PDF в Excel:

щелчок Предприятие > Импорт Экспорт > Диапазон экспорта в файл, Kutools for Excel's Диапазон экспорта в файл утилита позволяет легко экспортировать выделение в виде файла PDF в Excel. См. Снимок экрана ниже:

Kutools for Excel включает в себя более удобные инструменты Excel 300. Бесплатно, без ограничений, в 30-дни. Загрузите бесплатную пробную версию

выбор документа в pdf

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Kutools работает с Office 2007-2019 и 365. Он поддерживает все языки и очень прост в установке и развертывании. Полнофункциональная 60-дневная бесплатная пробная версия.

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

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

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


Сохранить диапазон выбранных ячеек в виде файла PDF с помощью Kutools for Excel

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

1. Выберите диапазон, который необходимо сохранить в формате PDF, затем нажмите Предприятие > Импорт / Экспорт > Диапазон экспорта в файл, Смотрите скриншот:

2. в Диапазон экспорта в файл диалогового окна, вам необходимо:

2.1 Выберите PDF в разделе Формат файла;

2.2 Укажите папку для сохранения файла PDF в Сохранить направление раздел;

2.3 Нажмите OK Кнопка.

2.4 Назовите свой файл PDF во втором диалоговом окне «Экспорт диапазона в файл», а затем нажмите OK кнопка. Смотрите скриншот:

Внимание: Вы можете проверить любое форматирование Preserve, сохранить высоту строки, а также сохранить ширину столбцов в разделе параметров рабочей книги по мере необходимости. И вы можете открыть экспортированный файл PDF автоматически, проверив Открыть файл после экспорта коробка.

Теперь выбранный диапазон сохраняется как файл PDF.

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


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

Вы можете использовать Сплит-книга полезности Kutools for Excel чтобы сохранить каждый рабочий лист в активной книге как отдельный PDF-файл.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

1. В рабочей книге вам нужно сохранить каждый рабочий лист в виде отдельного PDF-файла, затем нажмите Предприятие > Workbook > Сплит-книга, Смотрите скриншот:

2. в Сплит-книга диалоговое окно, вы можете увидеть, что все листы перечислены внутри, выберите PDF (* .pdf) из файла Сохранить как в раскрывающемся списке, а затем нажмите Трещина кнопка. И в появлении Просмотр папки диалоговое окно, укажите папку, в которой вы хотите сохранить файлы PDF, а затем нажмите OK кнопка. Смотрите скриншот:

Затем все рабочие листы в активной книге автоматически сохраняются в виде отдельного файла PDF.

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


Демонстрация: сохранение выбора или каждого рабочего листа в формате PDF с помощью Kutools for Excel

Kutools for Excel включает в себя более удобные инструменты Excel 300. Бесплатно, без ограничений, в 60-дни. Скачайте бесплатную пробную версию прямо сейчас!


Статьи по теме:


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    atul tailor · 2 months ago
    plz paste coding for save as pdf button in microsoft excel
  • To post as a guest, your comment is unpublished.
    Nzee · 8 months ago
    IT SHOWS Run-Time error '1004'
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Hi Nzee,
      I need to know your Excel version. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Randy · 1 years ago
    I can convert my files to PDF now with a command button, but can I also get that same function to allow a different name to each file; based on an existed number structure?
  • To post as a guest, your comment is unpublished.
    Jo Colenso · 1 years ago
    I have a similar request I want the file to be named the same as a particular cell in the tab , IE: G19 ( This is the invoice number and I want the file to save as PDF with that name) ? . I have managed to get the export.pdf working but this isn't going to work on multiple saves.Any thoughts thanks
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      The following VBA code can help you solve the problem. Please select cell G19 in the popping up Kutoos for Excel dialog box after running the code. Thank you for your comment.

      Private Sub CommandButton1_Click()
      Dim xRg As Range
      Dim xName As String
      On Error Resume Next
      Application.ScreenUpdating = False
      Set xRg = Application.InputBox("Select the cell you will name the PDF with the cell value:", "Kutools for Excel", Selection.Address, , , , , 8)
      If xRg Is Nothing Then Exit Sub
      xName = xRg(1).Value
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:="C:\PDF\" & xName & ".pdf", _
      OpenAfterPublish:=False
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Ian · 2 years ago
    Hi,
    How would one allow the user to enter the file name as opposed to "Export.pdf"?
    Thanks,
    Ian
    • To post as a guest, your comment is unpublished.
      Mayur · 1 years ago
      Sub SaveAsPDF()
      Application.Screen Updating = False
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=Application.InputBox("Enter File Name")

      strExcelPath = "H:\My Documents"

      Application.ScreenUpdating = True
      End Sub