Jak převést více sešitů nebo listů do souborů PDF najednou v aplikaci Excel?
Někdy je třeba převést soubory aplikace Excel na soubory PDF, aby je ostatní nemohli upravovat. V aplikaci Excel můžeme uložit soubor Excel jako soubor PDF pomocí funkce Uložit jako. Jak ale převést více sešitů do souborů PDF najednou v aplikaci Excel?
- Převádějte více sešitů do souborů PDF pomocí funkce Uložit jako jeden po druhém
- Převeďte více sešitů na soubory PDF pomocí kódu VBA najednou
- S výkonnou funkcí můžete převést více sešitů na soubory PDF
- Převeďte více pracovních listů ze sešitu na samostatné soubory PDF pomocí kódu VBA
- Převod více listů ze sešitu na samostatné soubory PDF pomocí praktické funkce
Převádějte více sešitů do souborů PDF pomocí funkce Uložit jako jeden po druhém
Funkce Uložit jako v aplikaci Excel vám obvykle pomůže uložit celý sešit do souboru PDF, postupujte takto:
1. Spusťte sešit, který chcete převést do formátu PDF.
2, klikněte Soubor > Uložit jako, a v Uložit jako V dialogovém okně zadejte složku pro uložení nového souboru a poté vyberte PDF z Uložit jako typ rozevírací seznam a poté klikněte na možnosti tlačítko, viz screenshot:
3. Pak, v vyskočil možnosti v dialogovém okně zaškrtněte Celý sešit, viz screenshot:
4. A pak klikněte na tlačítko OK > Uložit, celý tento sešit byl uložen ve formátu souboru PDF.
Převeďte více sešitů na soubory PDF pomocí kódu VBA najednou
Pokud je třeba převést stovky souborů aplikace Excel, výše uvedená metoda bude obtížná, zde budu hovořit o kódu VBA pro převod více sešitů do souborů PDF najednou, proveďte následující kroky:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Převod více sešitů do souborů PDF najednou
Sub ExcelSaveAsPDF()
'Updateby Extendoffice
Dim strPath As String
Dim xStrFile1, xStrFile2 As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath, xWBName As String
Dim xBol As Boolean
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the Excel files you want to convert:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a destination folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
xStrFile1 = Dir(strPath & "*.*")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While xStrFile1 <> ""
xBol = False
If Right(xStrFile1, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xls", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsx" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsm" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
xBol = True
End If
If xBol Then
xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
xWbk.Close SaveChanges:=False
End If
xStrFile1 = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno, vyberte složku obsahující sešity, které chcete převést, viz screenshot:
4. Poté klikněte OK, vyskočí další okno, vyberte cestu ke složce, kam chcete odeslat nové soubory PDF, viz screenshot:
5. A pak, klik OKpo dokončení převodu můžete přejít do určené složky a zobrazit náhled převedeného výsledku, viz screenshoty:
S výkonnou funkcí můžete převést více sešitů na soubory PDF
Pokud máte Kutools pro Excel, S jeho Převaděč formátů nástroj, můžete rychle převést více sešitů do souborů PDF najednou.
Po instalaci Kutools pro Excel, udělejte prosím toto:
1, klikněte Kutools Plus > Cvičebnice > Převaděč formátů, viz screenshot:
2. Zobrazí se okno s výzvou, které vám připomene, že musíte zavřít sešity, které chcete převést.
3, klikněte OKpak v Převaděč FileFormat dialogové okno, zadejte následující možnosti:
- Pod Převést typ rozevírací seznam vyberte Sešit aplikace Excel do formátu PDF;
- Pak klikněte na tlačítko přidat tlačítko pro přidání souborů Excel, které chcete převést, můžete sešity přidat z disku počítače nebo OneDrive podle potřeby;
4. Po vložení sešitů, které chcete převést, stále do Převodník formátů souborů dialogové okno, klikněte prosím Tlačítko pro výběr jedné cesty ke složce pro výstup převedených souborů a poté v dolní části dialogového okna zadejte některé operace, které potřebujete, viz screenshot:
- Pokud bylo třeba převést také sešity v podsložkách, zkontrolujte Při přidávání složek zahrňte podsložky zaškrtávací políčko;
- Pokud chcete po převodu původní soubory odstranit, zkontrolujte Po převodu smažte zdrojové soubory krabice;
- Pokud si chcete ponechat upravené datum původních souborů, zkontrolujte Ponechat upravené datum původních souborů krabice;
- Adresářovou strukturu souboru lze zachovat zaškrtnutím Po převodu je adresářová struktura souboru zachována krabice;
5. Pak klikněte na tlačítko OK Chcete-li zahájit převod, když jsou všechny zadané soubory aplikace Excel převedeny na soubory PDF, můžete přejít do určené složky a zobrazit náhled převedeného výsledku, viz screenshoty:
Převeďte více pracovních listů ze sešitu na samostatné soubory PDF pomocí kódu VBA
V některých případech možná budete chtít převést každý list v sešitu na samostatné soubory PDF. Pokud je v sešitu spousta listů, může vám níže uvedený kód VBA pomoci uložit každý list jako soubor PDF najednou.
1. Otevřete sešit, který chcete převést, a podržte klávesu ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Převod více listů ze sešitu do samostatných souborů PDF
Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Poté stiskněte F5 klíč ke spuštění tohoto kódu a vyskakovací okno, vyberte cestu ke složce pro vyhledání převedených souborů PDF, viz screenshot:
4. Potom klepněte na tlačítko OK tlačítko, všechny listy v aktuálním sešitu byly převedeny samostatně na soubory PDF, viz screenshot:
Převod více listů ze sešitu na samostatné soubory PDF pomocí praktické funkce
Kutools pro Excel také podporuje užitečnou funkci - Rozdělit sešitDíky této funkci můžete v sešitu uložit více listů a oddělit je podle potřeby soubor Excel, Txt, CSV a PDF.
Po instalaci Kutools pro Excel, udělejte prosím toto:
1. Otevřete sešit, který chcete uložit každý list jako soubor PDF, a klikněte na Kutool Plus > Cvičebnice > Rozdělit sešit, viz screenshot:
2. V Rozdělit sešit V dialogovém okně zaškrtněte list, který chcete uložit, a poté vyberte PDF (* .pdf) z Uložit jako typ rozevírací seznam a poté klikněte na Rozdělit tlačítko v Vybrat složku okno, určete složku pro umístění převedených souborů, viz screenshot:
3. A poté byly všechny vybrané listy v aktuálním sešitu uloženy do souborů PDF jednotlivě, viz screenshot:
Více relativních článků:
- Převeďte více souborů Xls na soubory Xlsx v aplikaci Excel
- Chcete-li převést starý soubor xls Excel na nový soubor xlsx, můžete použít funkci Uložit jako v aplikaci Excel, ale pokud je potřeba převést více souborů xls, jak by bylo možné rychle a snadno zvládnout tento úkol?
- Uložte všechny pracovní listy pouze jako hodnoty
- Pokud máte sešit, který obsahuje více vzorců, musíte tento soubor distribuovat dalším uživatelům, nechcete zobrazovat vzorce, ale zobrazovat pouze hodnoty. Normálně můžeme list rychle uložit jako hodnoty kopírováním a vložením dat pouze jako hodnoty. Jak ale můžete uložit všechny listy jako hodnoty pouze bez kopírování a vkládání jeden po druhém?
- Příkazové tlačítko pro uložení aktivního listu jako souboru PDF
- Při práci v aplikaci Microsoft Excel se můžete setkat s problémem uložení aktivního listu jako souboru PDF. V tomto článku se naučíte, jak uložit aktivní list jako soubor PDF s kódem VBA pomocí příkazového tlačítka. A pokud také chcete uložit rozsah nebo každý list do aktivního sešitu jako samostatný soubor PDF, může vám tento článek také pomoci.
- Rozdělte velký stůl na několik malých stolů
- Pokud máte velký list, který obsahuje více sloupců a stovky nebo tisíce dat řádků, nyní chcete rozdělit tuto velkou tabulku na několik malých tabulek na základě hodnoty sloupce nebo počtu řádků, abyste získali následující výsledky. Jak jste se mohli s tímto úkolem vypořádat v aplikaci Excel?
- Rozdělte sešit a oddělte soubory aplikace Excel
- Možná budete muset rozdělit velký sešit a oddělit soubory aplikace Excel uložením každého listu sešitu jako samostatného souboru aplikace Excel. Například můžete sešit rozdělit na několik samostatných souborů aplikace Excel a poté každý soubor doručit jiné osobě, aby jej zvládla. Tímto způsobem můžete zajistit, aby určité osoby zpracovávaly konkrétní údaje, a vaše data budou v bezpečí. Tento článek představí způsoby, jak rozdělit velký sešit na samostatné soubory aplikace Excel na základě každého listu.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!