Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як за допомогою кнопки команди зберегти активний аркуш як файл PDF у програмі Excel?

Працюючи в Microsoft Excel, ви можете зіткнутися з проблемою збереження активного аркуша як PDF-файлу. У цій статті ви можете дізнатись, як зберегти активний аркуш як PDF-файл із кодом VBA за допомогою командної кнопки. І якщо ви також хочете зберегти діапазон або кожен аркуш в активній книзі як окремий файл PDF, ця стаття також може вам допомогти.

Використовуйте командну кнопку, щоб зберегти активний аркуш як файл PDF із кодом VBA
Легко зберігайте активний або кожен аркуш як окремий файл PDF за допомогою Kutools для Excel

Використовуйте командну кнопку, щоб зберегти активний аркуш як файл PDF із кодом VBA

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

1. По-перше, вам потрібно створити папку з іменем PDF для збереження нового перетвореного файлу PDF. Тут я створюю цю папку на своєму локальному диску (C :).

2. Вставте командну кнопку, клацнувши Розробник > Insert > Кнопка керування (керування 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 Натисніть кнопку інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікно. Потім вимкніть Режим дизайну під Розробник Вкладка.

Тепер натисніть кнопку команди, активний аркуш буде збережений у вигляді PDF-файлу з назвою Експорт та розміщений у вказаному місці.

Збережіть кожен аркуш як окремий файл PDF активної книги за допомогою Kutools для Excel

Тут рекомендуємо Роздільна робоча книга корисність Kutools для Excel для легкого збереження активного аркуша у вигляді PDF-файлу. Крім того, ви також можете зберегти кожен аркуш у поточній книзі як окремий файл PDF за допомогою цієї утиліти.

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

1. У книзі потрібно зберегти кожен аркуш як окремий файл PDF, а потім клацнути Kutools Plus > робочий зошит > Роздільна робоча книга. Дивіться знімок екрана:

2 В Роздільна робоча книга діалогове вікно, будь ласка, налаштуйте наступним чином:

2.1) Перевіряйте лише активну назву аркуша в Назва робочого аркуша коробка;
2.2) Виберіть PDF (* .pdf) опція від Зберегти як випадаючий список;
2.3) Клацніть на розщеплений кнопку, потім a Вибір папки спливає діалогове вікно, вкажіть папку для збереження PDF-файлу;

Потім вибраний аркуш негайно зберігається у форматі PDF.

примітки:

1. Ви можете перевірити кілька імен робочих аркушів у полі Ім'я робочого аркуша, щоб зберегти їх як окремий файл PDF одночасно;
2. За винятком збереження аркуша як PDF-файлів, ви можете зберігати аркуші у форматі txt. або csv. файл, як вам потрібно.

  Якщо ви хочете отримати безкоштовну (30-денну) пробну програму, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.

Демонстрація: Збережіть виділення або кожен аркуш у форматі PDF за допомогою Kutools для Excel

Статті по темі:

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
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.
    Sulaiman · 1 years ago
    How do I do this for MS Word? I have a bunch of questions with radio button options as answers. So I want to create a command button to output the questions with the selected answers only on another word document. How do I do this? A code would really help! I'll email you the document if you need it. Thanks!
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good day,
      Sorry can't help you with that yet.
  • To post as a guest, your comment is unpublished.
    atul tailor · 2 years ago
    plz paste coding for save as pdf button in microsoft excel
  • To post as a guest, your comment is unpublished.
    Nzee · 2 years ago
    IT SHOWS Run-Time error '1004'
    • To post as a guest, your comment is unpublished.
      crystal · 2 years 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 · 3 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.
      crystal · 3 years ago
      Hi Randy,
      Sorry I can’t help with this, welcome to post any question in our forum: https://www.extendoffice.com/forum.html to get more Excel supports from our professional.
  • To post as a guest, your comment is unpublished.
    jo.colenso@gmail.com · 3 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 · 3 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 · 4 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 · 3 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