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

Як за допомогою кнопки команди зберегти активний аркуш як файл 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-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (33)
Поки немає оцінок. Оцініть першим!
Ian
Ian
Цей коментар був мінімізований модератором на сайті
Привіт, як дозволити користувачеві ввести ім'я файлу, а не "Export.pdf"? Дякую, Ян
відповісти
0
0
Маюр
Маюр     Ian
Цей коментар був мінімізований модератором на сайті
Зберегти як PDF()
Application.Оновлення екрана = False
ActiveSheet.ExportAsFixedFormat Тип:=xlTypePDF, _
Ім'я файлу:=Application.InputBox("Введіть ім'я файлу")

strExcelPath = "H:\Мої документи"

Application.ScreenUpdating = True
End Sub
відповісти
0
0
Джо Коленсо
Джо Коленсо
Цей коментар був мінімізований модератором на сайті
У мене є подібний запит. Я хочу, щоб файл мав назву так само, як і конкретну клітинку на вкладці, IE: G19 (Це номер рахунка-фактури, і я хочу, щоб файл зберігся як PDF з такою назвою)? . Мені вдалося запустити файл export.pdf, але це не спрацює під час кількох збережень. Будь-які думки, дякую
відповісти
доповідь
0
0
кристал
кристал     Джо Коленсо
Цей коментар був мінімізований модератором на сайті
Хороший день,
Наведений нижче код VBA може допомогти вам вирішити проблему. Виберіть клітинку G19 у спливаючому діалоговому вікні Kutoos for Excel після запуску коду. Дякуємо за коментар.

Приватна підкоманда CommandButton1_Click()
Dim xRg As Range
Dim xName як рядок
On Error Resume Next
Application.ScreenUpdating = Невірний
Встановіть xRg = Application.InputBox("Виберіть комірку, якій ви дасте назву PDF-файлу зі значенням комірки:", "Kutools for Excel", Selection.Address, , , , , 8)
Якщо xRg — нічого, вийдіть із Sub
xName = xRg(1).Значення
ActiveSheet.ExportAsFixedFormat Тип:=xlTypePDF, _
Ім'я файлу:="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub
відповісти
доповідь
0
0
Акшай М.Н
Акшай М.Н     кристал
Цей коментар був мінімізований модератором на сайті
Я змінив шлях до диска D, але він не зберігається на диску D. Що робити?
відповісти
0
0
кристал
кристал     Акшай М.Н
Цей коментар був мінімізований модератором на сайті
Привіт Akshay MN!
Якщо ви змінили наведений вище шлях до диска D, переконайтеся, що на вашому диску D є папка з назвою PDF.
Якщо ви хочете зберегти файл лише на диску D без створення підпапки, використовуйте цей шлях до папки: "C:\" & xName & ".pdf"
відповісти
доповідь
0
0
Хтивий
Хтивий
Цей коментар був мінімізований модератором на сайті
Тепер я можу конвертувати свої файли в PDF за допомогою командної кнопки, але чи можу я також отримати ту саму функцію, щоб дозволити різну назву для кожного файлу; на основі існуючої числової структури?
відповісти
0
0
кристал
кристал     Хтивий
Цей коментар був мінімізований модератором на сайті
Привіт Ренді,
На жаль, я не можу допомогти з цим. Ласкаво просимо опублікувати будь-які запитання на нашому форумі: https://www.extendoffice.com/forum.html щоб отримати додаткову підтримку Excel від нашого професіонала.
відповісти
доповідь
0
0
Nzee
Nzee
Цей коментар був мінімізований модератором на сайті
ПОКАЗАЄ помилку під час виконання "1004"
відповісти
0
0
кристал
кристал     Nzee
Цей коментар був мінімізований модератором на сайті
Привіт, Нзі,
Мені потрібно знати вашу версію Excel. Дякуємо за коментар.
відповісти
доповідь
0
0
атул кравець
атул кравець
Цей коментар був мінімізований модератором на сайті
Будь ласка, вставте кодування для кнопки "Зберегти як pdf" в Microsoft Excel
відповісти
0
0
Сулейман
Сулейман
Цей коментар був мінімізований модератором на сайті
Як це зробити для MS Word? У мене є купа запитань із варіантами перемикачів як відповідями. Тому я хочу створити командну кнопку, щоб виводити запитання з вибраними відповідями лише в інший документ Word. Як мені це зробити? Код дійсно допоможе! Я надішлю вам документ електронною поштою, якщо він вам знадобиться. Спасибі!
відповісти
0
0
кристал
кристал     Сулейман
Цей коментар був мінімізований модератором на сайті
Добрий день,
На жаль, поки що не можу вам допомогти.
відповісти
доповідь
0
0
Міклем
Міклем
Цей коментар був мінімізований модератором на сайті
Sub ZapiszPDF()
Dim sNazwaPliku As String

sNazwaPliku = ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Show sNazwaPliku, 57

End Sub
відповісти
0
0
Метт Бентлі
Метт Бентлі
Цей коментар був мінімізований модератором на сайті
я дотримувався коду, ось що у мене є:

Приватна підкоманда CommandButton2_Click()
Application.ScreenUpdating = Невірний
ActiveSheet.ExportAsFixedFormat Тип:=xlTypePDF, _
Ім'я файлу:=Діапазон ("P2"), _
OpenAfterPublish:=Правда
Application.ScreenUpdating = True
End Sub

Мені потрібен файл для збереження в місці, де знаходиться вихідний файл. також потрібна копія файлу excel, щоб зберегти його з тим же ім’ям.
відповісти
0
0
кристал
кристал     Метт Бентлі
Цей коментар був мінімізований модератором на сайті
Привіт Метт Бентлі,
Код працює ідеально. Дякую, що поділився.
відповісти
доповідь
0
0
Sascha
Sascha
Цей коментар був мінімізований модератором на сайті
Привіт

kann jemand mir helfen?

Ich nutze diese Zeilen und möchte jedoch, das aus dem Blatt ein Zellenwert als Dateiname gespeichert wird:

Приватна підкоманда CommandButton1_Click()
Application.ScreenUpdating = Невірний
ActiveSheet.ExportAsFixedFormat Тип:=xlTypePDF, _
Ім'я файлу:="C:\PDF\Export.pdf", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub

Спасибо
відповісти
0
0
Sascha
Sascha
Цей коментар був мінімізований модератором на сайті
Привіт

ich nutze diese Zeilen und möchte das eine Zelle als Dateiname verwenden wird!
Kann mir jemand ein Tipp geben?


Приватна підкоманда CommandButton1_Click()
Application.ScreenUpdating = Невірний
ActiveSheet.ExportAsFixedFormat Тип:=xlTypePDF, _
Ім'я файлу:="c:/" & G3 & ".pdf", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub
відповісти
0
0
кристал
кристал     Sascha
Цей коментар був мінімізований модератором на сайті
Привіт Саша,
Наступний код може допомогти. Перед застосуванням коду змініть "C:\Users\Win10x64Test\Documents\PDF' у четвертому рядку до власного шляху цільової папки.
Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220929
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Win10x64Test\Documents\PDF\" & Range("G3").Value, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
відповісти
доповідь
0
0
Діана
Діана
Цей коментар був мінімізований модератором на сайті
Що це за кнопка - "другой" + Q клавіші одночасно" ? Не поняла, що натискати, підскажіть, будь ласка
відповісти
0
0
кристал
кристал     Діана
Цей коментар був мінімізований модератором на сайті
Привіт Діана,
Це клавіша «Alt» на клавіатурі. Microsoft Excel дозволяє користувачам натискати клавіші «Alt» + «Q», щоб закрити вікно Microsoft Visual Basic для програм і повернутися до робочого аркуша.
відповісти
доповідь
0
0
Макс
Макс
Цей коментар був мінімізований модератором на сайті
Goededag

is het mogelijk om een ​​filmpje of een voorbeeld excelblad te maken voor de Command-Knop Om Een ​​Actief Werkblad Op Te Slaan Als PDF-Bestand Met VBA-Code.
kom er niet helemaal uit met de codes.
дуже дякую
відповісти
0
0
кристал
кристал     Макс
Цей коментар був мінімізований модератором на сайті
Привіт Макс,
Вибачте, я не розумію, що ви маєте на увазі. Можливо, вам знадобиться додати знімок екрана того, що ви намагаєтеся зробити. Вибачте за незручності.
відповісти
доповідь
0
0
Бен Стоддарт
Бен Стоддарт
Цей коментар був мінімізований модератором на сайті
Привіт Team,

Просто цікаво, чи може хтось допомогти змінити місце призначення створеного файлу на робочий стіл будь-якого користувача? Моя компанія не дозволяє доступ до C:, тому сценарій не працює.

БАГАТО БАГАТО ДУЖЕ дякую!
відповісти
0
0
кристал
кристал     Бен Стоддарт
Цей коментар був мінімізований модератором на сайті
Привіт, Бен Стоддарт,
Вам просто потрібно відкрити будь-яку папку на робочому столі та скопіювати шлях до папки в адресному полі, а потім замінити шлях до папки в коді VBA на скопійований шлях.
Ось новий рядок імені файлу (будь ласка, замініть ім’я користувача своїм власним іменем користувача), Експорт.pdf це ім'я та розширення файлу PDF:
Ім'я файлу:="C:\Users\Username\Desktop\PDF\Export.pdf", _
відповісти
доповідь
0
0
Джеймс
Джеймс
Цей коментар був мінімізований модератором на сайті
Кожного разу, коли я запускаю це, PDF-файл зберігається на моєму локальному диску, де зберігаються аркуші Excel. Як мені зупинити автоматичне збереження?

Приватна підкоманда CommandButton1_Click()
Application.ScreenUpdating = Невірний
ActiveSheet.ExportAsFixedFormat Тип:=xlTypePDF, _
OpenAfterPublish:=Правда
Application.ScreenUpdating = True
End Sub
відповісти
0
0
Джеймс
Джеймс
Цей коментар був мінімізований модератором на сайті
Коли я запускаю наведений нижче, він автоматично створює локальну версію PDF-файлу. Як зупинити автоматичне збереження?

Приватна підкоманда CommandButton1_Click()
Application.ScreenUpdating = Невірний
ActiveSheet.ExportAsFixedFormat Тип:=xlTypePDF, _
OpenAfterPublish:=Правда
Application.ScreenUpdating = True
End Sub
відповісти
доповідь
0
0
кристал
кристал     Джеймс
Цей коментар був мінімізований модератором на сайті
Привіт Джеймс,
Бажаєте відкрити спливаюче вікно для вибору папки для збереження PDF-файлу вручну?
відповісти
доповідь
0
0
Джеймс
Джеймс     кристал
Цей коментар був мінімізований модератором на сайті
Вітаю, Кристал, в ідеалі так, щоб потім я міг вибрати, де зберегти PDF-файл.
відповісти
доповідь
0
0
кристал
кристал     Джеймс
Цей коментар був мінімізований модератором на сайті
H Джеймс,

Наведений нижче код VBA може допомогти вам вирішити проблему.
примітки: Ви не можете обробляти призначення та назву файлу одночасно. Після додавання наступного коду VBA, коли ви натискаєте кнопку, з’являється діалогове вікно, у якому ви можете вибрати папку призначення. Після вибору цільової папки з’явиться вікно, у якому ви зможете дати ім’я PDF-файлу. 

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221223
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    Dim xStrName As String
    If xDlg.Show <> -1 Then Exit Sub
    
    xFolder = xDlg.SelectedItems(1)
    
    xStart = InputBox("file name", "KuTools for Excel", ActiveSheet.Name & ".pdf")

    Application.ScreenUpdating = False

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=xFolder & "\" & xStart, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True

End Sub
відповісти
доповідь
0
0
Sascha
Sascha
Цей коментар був мінімізований модератором на сайті
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, wird diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll beendet werden?
відповісти
0
0
Sascha
Sascha
Цей коментар був мінімізований модератором на сайті
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, WIRD diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll beendet werden?


Приватна підкоманда CommandButton1_Click()
Application.ScreenUpdating = Невірний
ActiveSheet.ExportAsFixedFormat Тип:=xlTypePDF, _
Ім'я файлу:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=Правда
Application.ScreenUpdating = True
End Sub
відповісти
0
0
кристал
кристал     Sascha
Цей коментар був мінімізований модератором на сайті
Привіт Саша,
Наведений нижче код VBA може допомогти. Будь ласка, спробуйте.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221230
    Dim xPDFName As String
    Dim xPDFPath As String
    Dim xObjFS As Object
    Dim xNum As Integer
    Dim xStr As String
    
    xPDFName = "Export" 'The file name
    xPDFPath = "D:\work\Jan\test\" 'The file path
    Application.ScreenUpdating = True
    On Error Resume Next
    Set xObjFS = CreateObject("Scripting.FileSystemObject")
    xStr = xPDFPath & xPDFName & ".pdf"
    xNum = 1
    If xObjFS.FileExists(xStr) Then
    xResponse = MsgBox("The file already exists, do you want to overwrite it?", vbYesNo, "www.extendoffice.com", "", 0)
       If xResponse <> vbYes Then
       Exit Sub
      End If
    End If
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=xStr, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
відповісти
доповідь
0
0
There are no comments posted here yet
Залишайте свої коментарі
гість
Публікація як гість
Увійти
×
Оцініть цю публікацію:
скидання
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL