Note: The other languages of the website are Google-translated. Back to English

Kako uporabiti ukazni gumb za shranjevanje aktivnega delovnega lista kot datoteke PDF v Excelu?

Med delom v programu Microsoft Excel se lahko soočite s težavo shranjevanja aktivnega delovnega lista kot datoteke PDF. V tem članku se lahko naučite, kako prek ukaznega gumba shranite aktivni delovni list kot datoteko PDF s kodo VBA. Če želite tudi obseg ali vsak delovni list shraniti v aktivni delovni zvezek kot posamezno datoteko PDF, vam lahko pomaga tudi ta članek.

Z ukaznim gumbom shranite aktivni delovni list kot datoteko PDF s kodo VBA
Kutools za Excel z lahkoto shranite aktivni ali vsak delovni list kot posamezno datoteko PDF


Z ukaznim gumbom shranite aktivni delovni list kot datoteko PDF s kodo VBA

Za zagon naslednje kode VBA lahko aktiven delovni list shranite kot datoteko PDF s klikom na ukazni gumb. Naredite naslednje.

1. Najprej morate ustvariti mapo z imenom PDF, da shranite novo pretvorjeno datoteko PDF. Tu ustvarim to mapo na svojem lokalnem disku (C :).

2. S klikom vstavite ukazni gumb Razvojni > Vstavi > Ukazni gumb (nadzor ActiveX). Oglejte si posnetek zaslona:

2. Nato na delovni list narišite ukazni gumb, ki ga želite dodati nove vrstice, z desno miškino tipko kliknite ukazni gumb in kliknite Nepremičnine v meniju z desnim klikom.

3. V Ljubljani Nepremičnine v pogovorno okno vnesite prikazano besedilo ukaznega gumba v napis polje pod Kategorizirani in nato zaprite pogovorno okno.

Vidite lahko, da se prikazano besedilo ukaznega gumba spremeni, kot je prikazano spodaj.

4. Znova z desno tipko miške kliknite ukazni gumb in nato kliknite Ogled kode v meniju z desnim klikom.

5. Na odprtju Microsoft Visual Basic za aplikacije okno, zamenjajte izvirno kodo v oknu Code z naslednjo kodo VBA.

Koda VBA: ukazni gumb za shranjevanje aktivnega delovnega lista v obliki PDF

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

Opombe: V kodi je CommandButton1 ime ukaznega gumba, ki ga boste uporabili za shranjevanje aktivnega lista kot datoteke PDF. "C: \ PDF \ Export.pdf" je pot in ime vaše shranjene datoteke PDF.

6. Pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual Basic za aplikacije okno. Nato izklopite Način oblikovanja pod Razvojni tab.

Zdaj kliknite na ukazni gumb, aktivni delovni list bo shranjen kot datoteka PDF z imenom Izvoz in se nahaja na določenem mestu.


Shranite vsak delovni list kot posamezno datoteko PDF aktivnega delovnega zvezka s programom Kutools za Excel

Tukaj priporočite Razdeljeni delovni zvezek uporabnost Kutools za Excel za enostavno shranjevanje aktivnega delovnega lista kot datoteke PDF. Poleg tega lahko s tem pripomočkom vsak delovni list shranite tudi v trenutni delovni zvezek kot posamezno datoteko PDF.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. V delovnem zvezku morate vsak delovni list shraniti kot posamezno datoteko PDF in nato klikniti Kutools Plus > Delovni zvezek > Razdeljeni delovni zvezek. Oglejte si posnetek zaslona:

2. V Ljubljani Razdeljeni delovni zvezek pogovorno okno, nastavite na naslednji način:

2.1) Ime aktivnega lista preverite samo v Ime delovnega lista škatla;
2.2) Izberite PDF (* .pdf) možnost iz Shrani kot vrsto spustni seznam;
2.3) Kliknite Split gumb, nato a Izberite mapo pokaže se pogovorno okno, določite mapo za shranjevanje datoteke PDF;

Nato se izbrani delovni list takoj shrani kot datoteka PDF.

Opombe:

1. V polju Ime delovnega lista lahko preverite več imen delovnih listov, da jih hkrati shranite kot posamezne datoteke pdf;
2. Razen za shranjevanje delovnega lista kot datotek pdf, lahko delovne liste shranite tudi kot txt. ali csv. datoteko, kot jo potrebujete.

  Če želite imeti brezplačen preizkus (30-dan) tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Predstavitev: Izbor ali vsak delovni list shranite kot PDF s programom Kutools za Excel


Sorodni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (33)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, kako bi uporabniku dovolili, da vnese ime datoteke v nasprotju z "Export.pdf"? Hvala, Ian
Ta komentar je moderator na spletnem mestu minimiziral
Sub SaveAsPDF()
Application.Screen Updated = False
Vrsta ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ime datoteke:=Application.InputBox("Vnesite ime datoteke")

strExcelPath = "H:\Moji dokumenti"

Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Imam podobno zahtevo. Želim, da se datoteka poimenuje enako kot določena celica v zavihku, IE: G19 (To je številka računa in želim, da se datoteka shrani kot PDF s tem imenom)? . Uspelo mi je poskrbeti, da je export.pdf deloval, vendar to ne bo delovalo pri več shranjenih. Hvala za kakršne koli misli
Ta komentar je moderator na spletnem mestu minimiziral
Dober dan,
Naslednja koda VBA vam lahko pomaga rešiti težavo. Po zagonu kode izberite celico G19 v pojavnem pogovornem oknu Kutoos za Excel. Hvala za vaš komentar.

Zasebni podukazni gumb1_Klik()
Dim xRg As Range
Dim xName kot niz
On Error Resume Next
Application.ScreenUpdating = Napačno
Nastavite xRg = Application.InputBox("Izberite celico, ki jo boste poimenovali PDF z vrednostjo celice:", "Kutools for Excel", Selection.Address, , , , , 8)
Če xRg ni nič, zapustite Sub
xName = xRg(1).Vrednost
Vrsta ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ime datoteke:="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish: = False
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Spremenil sem pot v pogon D, vendar se ne shranjuje v pogon D. Kaj storiti?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Akshay MN,
Če ste zgornjo pot spremenili do pogona D, se prepričajte, da je na vašem pogonu D mapa z imenom PDF.
Če želite datoteko shraniti samo na pogon D brez ustvarjanja podmape, uporabite to pot do mape: "C:\" & xName & ".pdf"
Ta komentar je moderator na spletnem mestu minimiziral
Svoje datoteke lahko zdaj pretvorim v PDF z ukaznim gumbom, lahko pa dobim tudi isto funkcijo, da omogočim drugačno ime vsaki datoteki; na podlagi obstoječe številske strukture?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo Randy,
Žal ne morem pomagati s tem, dobrodošli, da objavite katero koli vprašanje na našem forumu: https://www.extendoffice.com/forum.html da pridobite več podpore za Excel od našega strokovnjaka.
Ta komentar je moderator na spletnem mestu minimiziral
PRIKAŽE napako med izvajanjem '1004'
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Nzee,
Moram poznati vašo različico Excela. Hvala za vaš komentar.
Ta komentar je moderator na spletnem mestu minimiziral
prilepite kodiranje za gumb shrani kot pdf v microsoft excelu
Ta komentar je moderator na spletnem mestu minimiziral
Kako to naredim za MS Word? Imam kup vprašanj z možnostmi izbirnega gumba kot odgovori. Zato želim ustvariti ukazni gumb za izpis vprašanj z izbranimi odgovori samo v drugem word dokumentu. Kako to naredim? Koda bi res pomagala! Dokument vam pošljem po e-pošti, če ga potrebujete. Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Dober dan,
Žal ti pri tem še ne morem pomagati.
Ta komentar je moderator na spletnem mestu minimiziral
Sub ZapiszPDF()
Dim sNazwaPliku As String

sNazwaPliku = ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Show sNazwaPliku, 57

End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Sledil sem kodi, tole imam:

Zasebni podukazni gumb2_Klik()
Application.ScreenUpdating = Napačno
Vrsta ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ime datoteke:=Obseg("P2"), _
OpenAfterPublish:=True
Application.ScreenUpdating = Res
End Sub

Datoteko moram shraniti na lokacijo, kjer se nahaja izvirna datoteka. prav tako potrebujete kopijo datoteke excel, da jo shranite z istim imenom.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Matt Bentley,
Koda deluje brezhibno. Hvala za delitev.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,

kann jemand mir helfen?

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

Zasebni podukazni gumb1_Klik()
Application.ScreenUpdating = Napačno
Vrsta ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ime datoteke:="C:\PDF\Export.pdf", _
OpenAfterPublish: = False
Application.ScreenUpdating = Res
End Sub

Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,

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


Zasebni podukazni gumb1_Klik()
Application.ScreenUpdating = Napačno
Vrsta ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ime datoteke:="c:/" & G3 & ".pdf", _
OpenAfterPublish: = False
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Sascha,
Naslednja koda vam lahko pomaga. Pred uporabo kode spremenite 'C:\Users\Win10x64Test\Documents\PDF' v četrti vrstici do lastne poti ciljne mape.
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
Ta komentar je moderator na spletnem mestu minimiziral
Kaj je to za gumb - "drugo" + Q tipke hkrati" ? Ni ponjala, da nažimati, podskazujte, prosim
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Diana,
To je tipka "Alt" na vaši tipkovnici. Microsoft Excel omogoča uporabnikom, da pritisnejo tipki "Alt" + "Q", da zaprejo okno Microsoft Visual Basic for Applications in se vrnejo na delovni list.
Ta komentar je moderator na spletnem mestu minimiziral
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
Ta komentar je moderator na spletnem mestu minimiziral
himax,
Oprosti, ne razumem, kaj misliš. Morda boste morali priložiti posnetek zaslona tega, kar poskušate narediti. Oprostite za nevšečnosti.
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo ekipa,

Zanima me, ali bi lahko kdo pomagal spremeniti cilj ustvarjene datoteke na namizje katerega koli uporabnika? Moje podjetje ne dovoljuje dostopa do C:, zato skript ne deluje.

VELIKO VELIKO VELIKO hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Ben Stoddart,
Samo odpreti morate katero koli mapo na namizju in kopirati pot mape v naslovno polje, nato zamenjati pot mape v kodi VBA s potjo, ki ste jo kopirali.
Tukaj je nova vrstica za ime datoteke (zamenjajte uporabniško ime s svojim uporabniškim imenom), Izvozi.pdf je ime in pripona datoteke PDF:
Ime datoteke:="C:\Uporabniki\Uporabniško ime\Desktop\PDF\Export.pdf", _
Ta komentar je moderator na spletnem mestu minimiziral
Kadarkoli to zaženem, shrani PDF na moj lokalni disk, kjer so shranjeni Excelovi listi, kako preprečim samodejno shranjevanje?

Zasebni podukazni gumb1_Klik()
Application.ScreenUpdating = Napačno
Vrsta ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
OpenAfterPublish:=True
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Ko zaženem spodnje, samodejno ustvari lokalno različico PDF-ja - kako preprečim samodejno shranjevanje?

Zasebni podukazni gumb1_Klik()
Application.ScreenUpdating = Napačno
Vrsta ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
OpenAfterPublish:=True
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Hi James,
Ali želite odpreti pojavno okno za izbiro mape za ročno shranjevanje datoteke PDF?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Crystal, v idealnem primeru da, da lahko nato izberem, kam naj shranim PDF.
Ta komentar je moderator na spletnem mestu minimiziral
H James,

Naslednja koda VBA vam lahko pomaga rešiti težavo.
Opombe: Ne morete obravnavati cilja in imena datoteke hkrati. Ko dodate naslednjo kodo VBA, se ob kliku gumba prikaže pogovorno okno, v katerem lahko izberete ciljno mapo. Ko izberete ciljno mapo, se prikaže okno, v katerem lahko poimenujete datoteko 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
Ta komentar je moderator na spletnem mestu minimiziral
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?
Ta komentar je moderator na spletnem mestu minimiziral
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?


Zasebni podukazni gumb1_Klik()
Application.ScreenUpdating = Napačno
Vrsta ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Ime datoteke:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=True
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Sascha,
Naslednja koda VBA vam lahko pomaga. Prosim poskusite.

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
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL