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

Hogyan használható a Parancs gomb az aktív munkalap PDF fájlként történő mentésére az Excelben?

Miközben a Microsoft Excel programban dolgozik, szembesülhet az aktív munkalap PDF fájlként történő mentésével. Ebben a cikkben megtudhatja, hogyan mentheti az aktív munkalapot PDF fájlként VBA kóddal a Parancsgomb segítségével. Ha pedig egy tartományt vagy minden munkalapot el akar menteni az aktív munkafüzetbe külön PDF fájlként, akkor ez a cikk is segítségére lehet.

A Parancsgombbal mentse az aktív munkalapot PDF fájlként VBA kóddal
Könnyen mentheti az aktív vagy az egyes munkalapokat különálló PDF fájlként a Kutools for Excel programmal


A Parancsgombbal mentse az aktív munkalapot PDF fájlként VBA kóddal

A következő VBA kódot futtathatja az aktív munkalap PDF fájlként történő mentéséhez a parancs gombra kattintva. Kérjük, tegye a következőket.

1. Először létre kell hoznia egy PDF nevű mappát az új konvertált PDF fájl mentéséhez. Itt hozom létre ezt a mappát a helyi lemezemen (C :).

2. Kattintson a gombra kattintva Fejlesztő > betétlap > Parancs gomb (ActiveX vezérlő). Lásd a képernyőképet:

2. Ezután rajzoljon egy Parancsgombot a munkalapra, amelyhez új sorokat kell hozzáadnia, kattintson a jobb gombbal a Parancs gombra, majd kattintson a ingatlanok a jobb egérgombbal kattintva.

3. Ban,-ben ingatlanok párbeszédpanelen írja be a Parancs gomb megjelenített szövegét a Képaláírás doboz a kategorizált lapot, majd zárja be a párbeszédpanelt.

Láthatja, hogy a Parancs gomb megjelenített szövege megváltozott az alábbi képernyőképen.

4. Kattintson ismét jobb gombbal a Parancs gombra, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

5. A nyílásban Microsoft Visual Basic for Applications ablakban, kérjük, cserélje ki a Kód ablak eredeti kódját a következő VBA kódra.

VBA kód: Parancs gomb az aktív munkalap PDF formátumú mentéséhez

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

Megjegyzések: A kódban a CommandButton1 a Command Button neve, amelyet az aktív lap PDF fájlként történő mentéséhez használ. A "C: \ PDF \ Export.pdf" a mentett PDF fájl elérési útja és neve.

6. megnyomni a más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak. Ezután kapcsolja ki a Tervezési mód alatt a Fejlesztő Tab.

Most kattintson a Parancs gombra, az aktív munkalap exportálásként PDF fájlként kerül mentésre, és a megadott helyen található.


Mentse el az egyes munkalapokat az aktív munkafüzet egyedi PDF fájljaként a Kutools for Excel programmal

Itt ajánlja a Felosztott munkafüzet hasznossága Kutools az Excel számára hogy az aktív munkalapot egyszerűen PDF fájlként mentse. Ezenkívül az egyes munkalapokat az aktuális munkafüzetbe külön PDF fájlként is elmentheti ezzel a segédprogrammal.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. A munkafüzetbe minden munkalapot külön PDF fájlként kell mentenie, majd kattintson a gombra Kutools Plus > Munkafüzet > Felosztott munkafüzet. Lásd a képernyőképet:

2. Ban,-ben Felosztott munkafüzet párbeszédpanelt, kérjük, konfigurálja az alábbiak szerint:

2.1) Csak az aktív lap nevét ellenőrizze a Munkalap neve doboz;
2.2) Válassza ki PDF (* .pdf) lehetőség a Mentés típus legördülő lista;
2.3) Kattintson a gombra Hasított gombot, majd a Válassza ki a Mappa megjelenik egy párbeszédpanel, adjon meg egy mappát a PDF fájl mentéséhez;

Ezután a kiválasztott munkalap azonnal PDF fájlként kerül mentésre.

Megjegyzések:

1. A Munkalap neve mezőben több munkalap nevét is ellenőrizheti, hogy egyszerre mentse el különálló PDF fájlként;
2. A munkalapok mentése txt fájlként, kivéve a munkalap pdf fájlként történő mentését. vagy csv. fájl, amire szüksége van.

  Ha szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogramból, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Bemutató: Mentse a kijelölt elemeket vagy az egyes munkalapokat PDF formátumban a Kutools for Excel programmal


Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (33)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Hogyan lehet engedélyezni a felhasználó számára a fájlnév megadását az "Export.pdf" helyett? Köszönöm, Ian
A weboldal moderátora ezt a megjegyzést minimalizálta
Sub SaveAsPDF()
Application.Screen Update = Hamis
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Fájlnév:=Application.InputBox("Írja be a fájlnevet")

strExcelPath = "H:\Saját dokumentumok"

Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Hasonló kérésem van, szeretném, ha a fájl neve ugyanaz lenne, mint egy adott cella a lapon, IE: G19 (Ez a számla száma, és szeretném, ha a fájl PDF-ként menthető ezzel a névvel)? . Sikerült működésre bírnom az export.pdf fájlt, de ez nem fog működni többszöri mentés esetén. Bármilyen ötletet köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day,
A következő VBA-kód segíthet a probléma megoldásában. A kód futtatása után válassza ki a G19 cellát a felugró Kutoos for Excel párbeszédpanelen. Köszönjük észrevételét.

Privát Sub CommandButton1_Click ()
Dim xrg mint tartomány
Dim xName As String
On Error Resume Next
Application.ScreenUpdating = Hamis
Set xRg = Application.InputBox("Válassza ki azt a cellát, amellyel a PDF-fájlt a cellaértékkel nevezi el:", "Kutools for Excel", Selection.Address, , , , , 8)
Ha az xRg semmi, akkor lépjen ki a Subból
xName = xRg(1).Érték
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Fájlnév:="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish: = Hamis
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Módosítottam az elérési utat a D meghajtóra, de nem menti a D meghajtóra. Mit kell tenni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Akshay MN!
Ha módosította a D meghajtó fenti elérési útját, győződjön meg arról, hogy van egy PDF nevű mappa a D meghajtón.
Ha csak a fájlt a D meghajtóra szeretné menteni almappa létrehozása nélkül, használja ezt a mappa elérési utat: "C:\" & xName & ".pdf"
A weboldal moderátora ezt a megjegyzést minimalizálta
A fájljaimat PDF formátumba konvertálhatom most egy parancsgombbal, de beszerezhetem-e ugyanazt a funkciót, amely minden fájlnak más nevet engedélyez; létező számszerkezet alapján?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Randy,
Sajnálom, hogy ebben nem tudok segíteni, üdvözöljük, ha bármilyen kérdése van a fórumunkban: https://www.extendoffice.com/forum.html hogy további Excel-támogatást kaphasson szakemberünktől.
A weboldal moderátora ezt a megjegyzést minimalizálta
'1004'-es futásidejű hibát MUTATJA
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Nzee!
Tudnom kell az Excel verzióját. Köszönjük észrevételét.
A weboldal moderátora ezt a megjegyzést minimalizálta
plz illessze be a kódot a mentéshez pdf-ként gomb a Microsoft Excelben
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan tudom ezt megtenni MS Word esetén? Van egy csomó kérdésem, válaszként választógomb opciókkal. Tehát szeretnék létrehozni egy parancsgombot, amely csak egy másik Word dokumentumra írja ki a kiválasztott válaszokat tartalmazó kérdéseket. Hogyan csináljam ezt? Egy kód nagyon sokat segítene! E-mailben elküldöm a dokumentumot, ha kell. Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó napot,
Sajnos ebben még nem tudok segíteni.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sub ZapiszPDF()
Dim sNazwaPliku As String

sNazwaPliku = ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Show sNazwaPliku, 57

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Követtem a kódot, ez van:

Privát Sub CommandButton2_Click ()
Application.ScreenUpdating = Hamis
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Fájlnév:=Tartomány("P2"), _
OpenAfterPublish:=Igaz
Application.ScreenUpdating = Igaz
End Sub

a fájlt arra a helyre kell mentenem, ahol az eredeti fájl található. az excel fájl másolatára is szüksége van a mentéshez ugyanazzal a névvel.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Matt Bentley!
A kód tökéletesen működik. Köszönöm a megosztást.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,

kann jemand mir helfen?

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

Privát Sub CommandButton1_Click ()
Application.ScreenUpdating = Hamis
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Fájlnév:="C:\PDF\Export.pdf", _
OpenAfterPublish: = Hamis
Application.ScreenUpdating = Igaz
End Sub

Köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,

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


Privát Sub CommandButton1_Click ()
Application.ScreenUpdating = Hamis
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Fájlnév:="c:/" & G3 & ".pdf", _
OpenAfterPublish: = Hamis
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Sasha,
A következő kód segíthet. A kód alkalmazása előtt módosítsaC:\Users\Win10x64Test\Documents\PDF' a negyedik sorban a saját célmappa elérési útjára.
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
A weboldal moderátora ezt a megjegyzést minimalizálta
Что это за кнопка - "другой" + Q клавиши одновременно ? Не поняла что нажимать, подскажите, пожалуйста
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Диана!
Ez az "Alt" billentyű a billentyűzeten. A Microsoft Excel lehetővé teszi a felhasználók számára, hogy lenyomják az "Alt" + "Q" billentyűket a Microsoft Visual Basic for Applications ablak bezárásához és a munkalaphoz való visszatéréshez.
A weboldal moderátora ezt a megjegyzést minimalizálta
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
A weboldal moderátora ezt a megjegyzést minimalizálta
himax,
Bocsánat, nem értem mire gondolsz. Lehet, hogy csatolnia kell egy képernyőképet arról, hogy mit próbál tenni. Elnézést a kellemetlenségért.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hi Team,

Csak arra lennék kíváncsi, tudna-e valaki segíteni a létrehozott fájl célhelyének megváltoztatásában bármely felhasználó asztalára? A cégem nem engedélyezi a hozzáférést a C:-hez, így a szkript nem működik.

SOK SOK KÖSZÖNÖM!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Ben Stoddart!
Csak meg kell nyitnia bármelyik mappát az asztalon, és be kell másolnia a mappa elérési útját a címmezőbe, majd a VBA-kódban le kell cserélnie a mappa elérési útját a másolt elérési úttal.
Itt van az új Fájlnév sor (kérjük, cserélje ki a Felhasználónevet a saját felhasználónevére), Exportálás.pdf a PDF fájl neve és fájlkiterjesztése:
Fájlnév:="C:\Felhasználók\Felhasználónév\Desktop\PDF\Export.pdf", _
A weboldal moderátora ezt a megjegyzést minimalizálta
Amikor ezt futtatom, elment egy PDF-fájlt a helyi meghajtómra, ahol az Excel-lapok mentve. Hogyan tudom megakadályozni az automatikus mentést?

Privát Sub CommandButton1_Click ()
Application.ScreenUpdating = Hamis
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
OpenAfterPublish:=Igaz
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Az alábbi futtatásakor automatikusan létrehozza a PDF helyi verzióját – hogyan akadályozhatom meg az automatikus mentést?

Privát Sub CommandButton1_Click ()
Application.ScreenUpdating = Hamis
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
OpenAfterPublish:=Igaz
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia James,
Szeretne felugró ablakot kiválasztani a PDF-fájl manuális mentéséhez?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Crystal, ideális esetben igen, így kiválaszthatom, hova mentse a PDF-fájlt.
A weboldal moderátora ezt a megjegyzést minimalizálta
H James,

A következő VBA-kód segíthet a probléma megoldásában.
Megjegyzések: Nem tudja egyszerre kezelni a célt és a fájlnevet. A következő VBA-kód hozzáadása után a gombra kattintva egy párbeszédpanel jelenik meg a célmappa kiválasztásához. A célmappa kiválasztása után felugrik egy mező, amelyben nevet adhat a PDF-fájlnak.

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
A weboldal moderátora ezt a megjegyzést minimalizálta
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?
A weboldal moderátora ezt a megjegyzést minimalizálta
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?


Privát Sub CommandButton1_Click ()
Application.ScreenUpdating = Hamis
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Fájlnév:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=Igaz
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Sasha,
A következő VBA kód segíthet. Kérjük, próbálja ki.

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
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi