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

Hvordan bruges kommandoknappen til at gemme aktivt regneark som PDF-fil i Excel?

Mens du arbejder i Microsoft Excel, står du muligvis over for problemet med at gemme aktivt regneark som PDF-fil. I denne artikel kan du lære at gemme aktivt regneark som PDF-fil med VBA-kode via en kommandoknap. Og hvis du også vil gemme et område eller hvert regneark i aktiv projektmappe som individuel PDF-fil, kan denne artikel også hjælpe dig.

Brug kommandoknappen til at gemme aktivt regneark som PDF-fil med VBA-kode
Gem nemt aktivt eller hvert regneark som individuel PDF-fil med Kutools til Excel


Brug kommandoknappen til at gemme aktivt regneark som PDF-fil med VBA-kode

Du kan køre følgende VBA-kode for at gemme et aktivt regneark som PDF-fil ved at klikke på en kommandoknap. Gør som følger.

1. For det første skal du oprette en mappe med navnet PDF for at gemme din nye konverterede PDF-fil. Her opretter jeg denne mappe på min lokale disk (C :).

2. Indsæt en kommandoknap ved at klikke på Udvikler > indsatte > Kommando-knap (ActiveX-kontrol). Se skærmbillede:

2. Træk derefter en kommandoknap til det regneark, du skal tilføje nye rækker, højreklik på kommandoknappen og klik Ejendomme fra højreklikmenuen.

3. i Ejendomme dialogboksen, skal du indtaste den viste tekst på kommandoknappen i Caption under boksen kategoriseret fanen, og luk derefter dialogboksen.

Du kan se den viste tekst på kommandoknappen ændres som vist nedenstående skærmbillede.

4. Højreklik på kommandoknappen igen, og klik derefter på Vis kode fra højreklikmenuen.

5. I åbningen Microsoft Visual Basic til applikationer vindue, skal du udskifte den originale kode i vinduet Kode med følgende VBA-kode.

VBA-kode: Kommandoknap for at gemme aktivt regneark som PDF

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

Bemærk: I koden er CommandButton1 det kommandoknapnavn, du vil bruge til at gemme aktivt ark som PDF-fil. "C: \ PDF \ Export.pdf" er stien og navnet på din gemte PDF-fil.

6. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue. Sluk derefter for Design Mode under Udvikler fane.

Klik nu på kommandoknappen, det aktive regneark gemmes som en PDF-fil med navnet Export og placeres på den angivne placering.


Gem hvert regneark som individuel PDF-fil af den aktive projektmappe med Kutools til Excel

Her anbefaler Opdelt arbejdsbog nytte af Kutools til Excel for nemt at gemme aktivt regneark som en PDF-fil. Desuden kan du også gemme hvert regneark i den aktuelle projektmappe som individuel PDF-fil med dette værktøj.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. I projektmappen skal du gemme hvert regneark som individuel PDF-fil, og klik derefter på Kutools Plus > Workbook > Opdelt arbejdsbog. Se skærmbillede:

2. i Opdelt arbejdsbog dialogboks, skal du konfigurere som følger:

2.1) Kontroller kun det aktive arknavn i Navn på regneark boks;
2.2) Vælg PDF (* .pdf) mulighed fra Filtype rulleliste
2.3) Klik på Dele knappen, derefter en Vælg mappe dialog vises, angiv en mappe for at gemme PDF-filen;

Derefter gemmes det valgte regneark straks som PDF-fil.

Noter:

1. Du kan kontrollere flere regnearknavne i feltet Arbejdsarknavn for at gemme dem som individuelle pdf-filer på én gang.
2. Bortset fra at gemme regneark som pdf-filer, kan du gemme regneark som txt. eller csv. fil, som du har brug for.

  Hvis du vil have en gratis prøveperiode (30-dag) for dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Demo: Gem valg eller hvert regneark som PDF med Kutools til Excel


Relaterede artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (33)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Hvordan vil man tillade brugeren at indtaste filnavnet i modsætning til "Export.pdf"? Tak, Ian
Denne kommentar blev minimeret af moderatoren på webstedet
Sub GemAsPDF()
Application.Screen Update = Falsk
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filnavn:=Application.InputBox("Indtast filnavn")

strExcelPath = "H:\Mine dokumenter"

Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har en lignende anmodning Jeg ønsker, at filen skal have samme navn som en bestemt celle i fanen , IE: G19 (Dette er fakturanummeret, og jeg vil have filen til at gemme som PDF med det navn) ? . Det er lykkedes mig at få export.pdf til at virke, men dette vil ikke fungere ved flere lagringer. Alle tanker tak
Denne kommentar blev minimeret af moderatoren på webstedet
Good Day,
Følgende VBA-kode kan hjælpe dig med at løse problemet. Vælg venligst celle G19 i dialogboksen Kutoos til Excel, der dukker op efter at have kørt koden. Tak for din kommentar.

Privat Sub CommandButton1_Click ()
Dim xRg As Range
Dim xName Som streng
On Error Resume Next
Application.ScreenUpdating = False
Indstil xRg = Application.InputBox("Vælg den celle, du vil navngive PDF'en med celleværdien:", "Kutools for Excel", Selection.Address, , , , , 8)
Hvis xRg ikke er noget, skal du afslutte Sub
xNavn = xRg(1).Værdi
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filnavn:="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish: = Falsk
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ændrede stien til D-drevet, men det gemmer ikke i D-drevet. Hvad skal man gøre?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Akshay MN,
Hvis du har ændret ovenstående sti til D-drev, skal du sørge for, at der er en mappe med navnet PDF i dit D-drev.
Hvis du kun vil gemme filen i D-drevet uden at oprette en undermappe, skal du bruge denne mappesti: "C:\" & xName & ".pdf"
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg kan konvertere mine filer til PDF nu med en kommandoknap, men kan jeg også få den samme funktion for at tillade et andet navn til hver fil; baseret på en eksisterende talstruktur?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Randy,
Beklager, jeg kan ikke hjælpe med dette, velkommen til at stille spørgsmål i vores forum: https://www.extendoffice.com/forum.html for at få mere Excel-støtte fra vores professionelle.
Denne kommentar blev minimeret af moderatoren på webstedet
DET VISER Run-Time fejl '1004'
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Nzee,
Jeg har brug for at kende din Excel-version. Tak for din kommentar.
Denne kommentar blev minimeret af moderatoren på webstedet
Plz indsæt kodning for at gemme som pdf-knap i Microsoft Excel
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan gør jeg dette til MS Word? Jeg har en masse spørgsmål med alternativknapper som svar. Så jeg vil oprette en kommandoknap til kun at udlæse spørgsmålene med de valgte svar på et andet word-dokument. Hvordan gør jeg dette? En kode ville virkelig hjælpe! Jeg sender dig dokumentet, hvis du har brug for det. Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
God dag,
Jeg kan desværre ikke hjælpe dig med det endnu.
Denne kommentar blev minimeret af moderatoren på webstedet
Sub ZapiszPDF()
Dim sNazwaPliku As String

sNazwaPliku = ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Vis sNazwaPliku, 57

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har fulgt koden, dette er hvad jeg har:

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

Jeg har brug for filen til at gemme på det sted, hvor den originale fil er placeret. også brug for en kopi af excel-filen for at gemme også med samme navn.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Matt Bentley,
Koden fungerer perfekt. Tak fordi du deler.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

kann jemand mir helfen?

Ich nutze disse Zeilen und möchte jedoch, das from dem Blatt en Zellenwert as Filename gespeichert wird:

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

Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

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


Privat Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filnavn:="c:/" & G3 & ".pdf", _
OpenAfterPublish: = Falsk
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej sasha
Følgende kode kan hjælpe. Inden du anvender koden, skal du ændre 'C:\Users\Win10x64Test\Documents\PDF' i den fjerde linje til din egen destinationsmappesti.
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
Denne kommentar blev minimeret af moderatoren på webstedet
Что это за кнопка - "другой" + Q клавиши одновременно ?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Диана,
Det er "Alt"-tasten på dit tastatur. Microsoft Excel giver brugerne mulighed for at trykke på tasterne "Alt" + "Q" for at lukke Microsoft Visual Basic for Applications-vinduet og vende tilbage til regnearket.
Denne kommentar blev minimeret af moderatoren på webstedet
Goededag

er det muligt at lave en filmpje af et eksempel excelblad til Command-Knop Om Een ​​Actief Werkblad Op Te Slaan Som PDF-Bestand Met VBA-Code.
kom er ikke helt ud med koderne.
tak alvast
Denne kommentar blev minimeret af moderatoren på webstedet
Hej max,
Undskyld jeg forstår ikke hvad du mener. Du skal muligvis vedhæfte et skærmbillede af, hvad du forsøger at gøre. Beklager ulejligheden.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Team,

Tænkte bare på, om nogen kunne hjælpe med at ændre destinationen for den oprettede fil til enhver brugers skrivebord? Mit firma tillader ikke adgang til C: så scriptet virker ikke.

MANGE MANGE MANGE tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Ben Stoddart,
Du skal blot åbne en hvilken som helst mappe på dit skrivebord og kopiere mappestien i adressefeltet, og derefter erstatte mappestien i VBA-koden med stien, du kopierede.
Her er den nye filnavnlinje (erstat venligst brugernavnet med dit eget brugernavn), Export.pdf er PDF-filens navn og filtypenavn:
Filnavn:="C:\Brugere\Brugernavn\Desktop\PDF\Export.pdf", _
Denne kommentar blev minimeret af moderatoren på webstedet
Når jeg kører dette, gemmer det en PDF på mit lokale drev, hvor excel-arkene er gemt, hvordan stopper jeg dette fra automatisk at gemme?

Privat Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
OpenAfterPublish:=Sandt
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Når jeg kører nedenstående, opretter den automatisk en lokal version af PDF'en - hvordan forhindrer jeg, at denne gemmes automatisk?

Privat Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
OpenAfterPublish:=Sandt
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej James,
Vil du åbne et vindue for at vælge en mappe til at gemme PDF-filen manuelt?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Crystal, ideelt set ja så jeg kan vælge hvor jeg vil gemme PDF'en.
Denne kommentar blev minimeret af moderatoren på webstedet
H James,

Følgende VBA-kode kan hjælpe dig med at løse problemet.
Bemærk: Du kan ikke håndtere både destinationen og filnavnet på samme tid. Efter tilføjelse af følgende VBA-kode, når du klikker på knappen, vises en dialogboks, hvor du kan vælge en destinationsmappe. Når du har valgt en destinationsmappe, vil en boks poppe op, hvor du kan give PDF-filen et navn.

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
Denne kommentar blev minimeret af moderatoren på webstedet
Ich nutze disse Zeilen und das funktioniert auch gut, mein Problem ist nur, shoulde this file bereits vorhanden sein, wird diese simple überschrieben!
Hvis du kan undgå, skal du en melding komme, filen eksisterer, og du skal have dem?
Denne kommentar blev minimeret af moderatoren på webstedet
Ich nutze disse Zeilen und das funktioniert auch gut, mein Problem ist nur, shoulde this file bereits vorhanden sein, WIRD diese simple überschrieben!
Hvis du kan undgå, skal du en melding komme, filen eksisterer, og du skal have dem?


Privat Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filnavn:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=Sandt
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej sasha
Følgende VBA-kode kan hjælpe. Prøv det.

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
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL