Przejdź do głównej zawartości

Jak używać przycisku polecenia, aby zapisać aktywny arkusz roboczy jako plik PDF w programie Excel?

Pracując w programie Microsoft Excel możesz napotkać problem z zapisaniem aktywnego arkusza do pliku PDF. W tym artykule możesz dowiedzieć się, jak zapisać aktywny arkusz roboczy jako plik PDF z kodem VBA za pomocą przycisku polecenia. A jeśli chcesz również zapisać zakres lub każdy arkusz w aktywnym skoroszycie jako osobny plik PDF, ten artykuł również może Ci pomóc.

Użyj przycisku polecenia, aby zapisać aktywny arkusz jako plik PDF z kodem VBA
Z łatwością zapisz aktywny lub każdy arkusz roboczy jako osobny plik PDF za pomocą Kutools for Excel

Użyj przycisku polecenia, aby zapisać aktywny arkusz jako plik PDF z kodem VBA

Możesz uruchomić następujący kod VBA, aby zapisać aktywny arkusz jako plik PDF, klikając przycisk polecenia. Wykonaj następujące czynności.

1. Po pierwsze, musisz utworzyć folder o nazwie PDF, aby zapisać nowy przekonwertowany plik PDF. Tutaj tworzę ten folder na moim dysku lokalnym (C :).

2. Wstaw przycisk polecenia, klikając Deweloper > wstawka > Przycisk polecenia (formant ActiveX). Zobacz zrzut ekranu:

2. Następnie narysuj przycisk polecenia w arkuszu, w którym chcesz dodać nowe wiersze, kliknij prawym przyciskiem myszy przycisk polecenia i kliknij Właściwości z menu po kliknięciu prawym przyciskiem myszy.

3. w Właściwości W oknie dialogowym wprowadź wyświetlany tekst przycisku polecenia do pliku Podpis pole pod skategoryzowane a następnie zamknij okno dialogowe.

Możesz zobaczyć, że wyświetlany tekst przycisku polecenia zmienia się, jak pokazano poniżej.

4. Ponownie kliknij prawym przyciskiem myszy przycisk polecenia, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.

5. W otwarciu Microsoft Visual Basic for Applications oknie, zamień oryginalny kod w oknie Kod na następujący kod VBA.

Kod VBA: przycisk polecenia do zapisywania aktywnego arkusza roboczego jako PDF

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

Note: W kodzie CommandButton1 to nazwa przycisku polecenia, której będziesz używać do zapisywania aktywnego arkusza jako pliku PDF. „C: \ PDF \ Export.pdf” to ścieżka i nazwa zapisywanego pliku PDF.

6. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno. Następnie wyłącz Tryb projektowania pod Deweloper patka.

Teraz kliknij przycisk polecenia, aktywny arkusz zostanie zapisany jako plik PDF o nazwie Eksportuj i umieszczony w określonej lokalizacji.

Zapisz każdy arkusz roboczy jako osobny plik PDF aktywnego skoroszytu za pomocą Kutools for Excel

Tutaj polecam Podziel skoroszyt użyteczność Kutools dla programu Excel aby łatwo zapisać aktywny arkusz jako plik PDF. Poza tym za pomocą tego narzędzia możesz również zapisać każdy arkusz roboczy w bieżącym skoroszycie jako osobny plik PDF.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. W skoroszycie musisz zapisać każdy arkusz jako osobny plik PDF, a następnie kliknij Kutools Plus > skoroszyt > Podziel skoroszyt. Zobacz zrzut ekranu:

2. w Podziel skoroszyt okno dialogowe, skonfiguruj w następujący sposób:

2.1) Sprawdź tylko nazwę aktywnego arkusza w Nazwa arkusza pudełko;
2.2) Wybierz PDF (* .pdf) opcja z Zapisz jako typ Lista rozwijana;
2.3) Kliknij Split przycisk, a następnie a Wybierz folder pojawi się okno dialogowe, określ folder do zapisania pliku PDF;

Następnie wybrany arkusz roboczy jest natychmiast zapisywany jako plik PDF.

Uwagi:

1. Możesz zaznaczyć wiele nazw arkuszy w polu Nazwa arkusza, aby zapisać je od razu jako pojedynczy plik PDF;
2. Oprócz zapisywania arkusza roboczego jako plików PDF, możesz zapisywać arkusze jako txt. lub csv. plik, jak potrzebujesz.

  Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.

Demo: Zapisz wybór lub każdy arkusz roboczy jako plik PDF za pomocą Kutools for Excel

Powiązane artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (33)
No ratings yet. Be the first to rate!
Sascha
Sascha
This comment was minimized by the moderator on the site
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?


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub
Reply
0
0
crystal
crystal     Sascha
This comment was minimized by the moderator on the site
Hi Sascha,
The following VBA code can help. Please give it a try.

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
Reply
Report
0
0
Sascha
Sascha
This comment was minimized by the moderator on the site
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?
Reply
0
0
CovStu
CovStu
This comment was minimized by the moderator on the site
When I run the below it creates a local version of the PDF automatically - how do I stop this from automatically saving?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub
Reply
Report
0
0
crystal
crystal     CovStu
This comment was minimized by the moderator on the site
Hi James,
Do you want to pop up a window to select a folder to save the PDF file manually?
Reply
Report
0
0
CovStu
CovStu     crystal
This comment was minimized by the moderator on the site
Hi Crystal, ideally yes so I can then choose where to save the PDF.
Reply
Report
0
0
crystal
crystal     CovStu
This comment was minimized by the moderator on the site
H James,

The following VBA code can help you solve the problem.
Note: You can't handle both the destination and the file name at the same time. After adding the following VBA code, when you click the button, a dialog box will pop up for you to select a destination folder. After selecting a destination folder, a box will pop up for you to give a name to the PDF file. 

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
Reply
Report
0
0
James
James
This comment was minimized by the moderator on the site
Whenever I run this it saves a PDF to my local drive where the excel sheets saved, how do I stop this from auto saving?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub
Reply
0
0
Ben Stoddart
Ben Stoddart
This comment was minimized by the moderator on the site
Hi Team,

Just wondering if anyone could help with changing the destination of the created file to any user's desktop? My compnay doesn't allow access to C: so the script doesn't work.

MANY MANY MANY thanks!
Reply
0
0
crystal
crystal     Ben Stoddart
This comment was minimized by the moderator on the site
Hi Ben Stoddart,
You just need to open any folder on your desktop and copy the folder path in the address box, then replace the folder path in the VBA code with the path you copied.
Here is the new Filename line (please replace the Username with your own username), Export.pdf is the name and the file extension of the PDF file:
Filename:="C:\Users\Username\Desktop\PDF\Export.pdf", _
Reply
Report
0
0
max
max
This comment was minimized by the moderator on the site
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.
alvast bedankt
Reply
0
0
crystal
crystal     max
This comment was minimized by the moderator on the site
Hi max,
Sorry I don't understand what you mean. You may need to attach a screenshot of what you are trying to do. Sorry for the inconvenience.
Reply
Report
0
0
Диана
Диана
This comment was minimized by the moderator on the site
Что это за кнопка - "другой" + Q клавиши одновременно" ? Не поняла что нажимать, подскажите, пожалуйста
Reply
0
0
crystal
crystal     Диана
This comment was minimized by the moderator on the site
Hi Диана,
It is the "Alt" key on your keyboard. Microsoft Excel allows users to press the "Alt" + "Q" keys to close the Microsoft Visual Basic for Applications window and return to the worksheet.
Reply
Report
0
0
Sascha
Sascha
This comment was minimized by the moderator on the site
Hallo,

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


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="c:/" & G3 & ".pdf", _
OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub
Reply
0
0
crystal
crystal     Sascha
This comment was minimized by the moderator on the site
Hi Sascha,
The following code can help. Before applying the code, please change 'C:\Users\Win10x64Test\Documents\PDF' in the fourth line to you own destination folder path.
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
Reply
Report
0
0
Sascha
Sascha
This comment was minimized by the moderator on the site
Hallo,

kann jemand mir helfen?

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

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

Danke
Reply
0
0
Matt Bentley
Matt Bentley
This comment was minimized by the moderator on the site
ive followed the code, this is what i have:

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Range("P2"), _
OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub

i need the file to save to the location that the orignal file is located. also need a copy of the excel file to save aswell with the same name.
Reply
0
0
crystal
crystal     Matt Bentley
This comment was minimized by the moderator on the site
Hi Matt Bentley,
The code works perfectly. Thank you for sharing.
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations