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

Cum se convertesc mai multe cărți de lucru sau foi de lucru în fișiere PDF simultan în Excel?

Uneori, trebuie să vă convertiți fișierele Excel în fișiere PDF, astfel încât să nu poată fi modificate de alții. În Excel, putem salva un fișier Excel ca fișier PDF utilizând funcția Salvare ca. Dar cum convertiți mai multe cărți de lucru în fișiere PDF în același timp în Excel?


Convertiți mai multe cărți de lucru în fișiere PDF cu funcția Salvați ca unul câte unul

În mod normal, funcția Salvare ca în Excel vă poate ajuta să salvați întregul registru de lucru într-un fișier PDF, vă rugăm să faceți acest lucru:

1. Lansați-vă registrul de lucru pe care doriți să îl convertiți în format PDF.

2. Clic Fișier > Salvare ca, și în Salvare ca caseta de dialog, vă rugăm să specificați un folder pentru salvarea noului fișier, apoi selectați PDF de la Salvați ca tip lista derulantă, apoi faceți clic pe Opţiuni buton, vezi captura de ecran:

3. Apoi, în pop-out Opţiuni casetă de dialog, bifați Întreg caietul, vezi captura de ecran:

4. Apoi faceți clic pe OK > Economisiți, întregul registru de lucru a fost salvat ca format de fișier PDF.

sfaturi: Dacă aveți mai multe registre de lucru care trebuie convertite, vă rugăm să aplicați pașii de mai sus pentru a salva registrele de lucru în fișiere PDF unul câte unul.

Convertiți mai multe cărți de lucru în fișiere PDF cu cod VBA simultan

Dacă există sute de fișiere Excel care trebuie convertite, metoda de mai sus va fi supărătoare, aici, voi vorbi despre un cod VBA pentru convertirea mai multor cărți de lucru în fișiere PDF simultan, vă rugăm să parcurgeți pașii următori:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: convertiți mai multe cărți de lucru în fișiere PDF simultan

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. Apoi, apăsați F5 tasta pentru a rula acest cod și se va afișa o fereastră, selectați un folder care conține registrele de lucru pe care doriți să le convertiți, vedeți captura de ecran:

4. Apoi apasa OK, se deschide o altă fereastră, selectați o cale a folderului în care doriți să scoateți noile fișiere PDF, vedeți captura de ecran:

5. Și apoi, clik OK, după terminarea conversiei, puteți merge la folderul specificat pentru a previzualiza rezultatul convertit, vedeți capturi de ecran:


Convertiți mai multe cărți de lucru în fișiere PDF cu o funcție puternică

Dacă aveţi Kutools pentru Excel, Cu său Convertor de format utilitar, puteți converti rapid mai multe cărți de lucru în fișiere PDF simultan.

sfaturi:Pentru a aplica acest lucru Convertor de format caracteristică, în primul rând, ar trebui să descărcați Kutools pentru Excel, apoi aplicați caracteristica rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Clic Kutools Plus > Workbook > Convertor de format, vezi captura de ecran:

2. Și se afișează o casetă de prompt pentru a vă reaminti că trebuie să închideți registrele de lucru pe care doriți să le convertiți.

3. Clic OK, apoi, în Convertor FileFormat , specificați următoarele opțiuni:

  • Sub Conversia tipului lista derulantă, selectați Caiet de lucru Excel în PDF;
  • Apoi faceți clic pe Adăuga butonul pentru a adăuga fișierele Excel pe care doriți să le convertiți, puteți adăuga registrele de lucru de pe discul computer sau OneDrive după cum aveți nevoie; 

4. După inserarea registrelor de lucru pe care doriți să le convertiți, încă în Convertor format de fișiere casetă de dialog, faceți clic pe butonul pentru a alege o cale de folder pentru a afișa fișierele convertite și apoi specificați câteva operații de care aveți nevoie în partea de jos a casetei de dialog, consultați captura de ecran:

notițe: În caseta de dialog de mai sus:
  • Dacă și registrele de lucru din subfoldere trebuiau convertite, verificați Includeți subfoldere atunci când adăugați dosare Caseta de bifat;
  • Dacă doriți să eliminați fișierele originale după conversie, vă rugăm să verificați Ștergeți fișierele sursă după conversie cutie;
  • Dacă doriți să păstrați data modificată a fișierelor originale, vă rugăm să verificați Păstrați data modificată a fișierelor originale cutie;
  • Structura directorului fișierului poate fi păstrată prin verificarea fișierului Structura directorului fișierului este păstrată când este convertită cutie;

5. Apoi apasa OK pentru a începe conversia, când toate fișierele Excel specificate au fost convertite în fișiere PDF, puteți merge la folderul specificat pentru a previzualiza rezultatul convertit, consultați capturi de ecran:


Convertiți mai multe foi de lucru dintr-un registru de lucru pentru a separa fișiere PDF cu cod VBA

În unele cazuri, poate doriți să convertiți fiecare foaie de lucru din registrul de lucru în fișiere PDF separate, dacă există o mulțime de foi în registrul de lucru, codul VBA de mai jos vă poate ajuta să salvați fiecare foaie de lucru ca fișier PDF simultan.

1. Deschideți un registru de lucru pe care doriți să îl convertiți, apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: convertiți mai multe foi de lucru dintr-un registru de lucru în fișiere PDF separate

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. Apoi, apăsați F5 pentru a rula acest cod și apare o fereastră, vă rugăm să alegeți o cale a folderului pentru localizarea fișierelor PDF convertite, a se vedea captura de ecran:

4. Apoi apasa OK buton, toate foile de lucru din registrul de lucru curent au fost convertite separat fișiere PDF, consultați captura de ecran:


Convertiți mai multe foi de lucru dintr-un registru de lucru pentru a separa fișiere PDF cu o caracteristică utilă

Kutools pentru Excel acceptă, de asemenea, o caracteristică utilă - Carnet de lucru divizat, cu această caracteristică, puteți salva mai multe foi de lucru în registrul de lucru pentru a separa fișierul Excel, fișierul Txt, fișierul CSV și fișierul PDF, după cum aveți nevoie.

sfaturi:Pentru a aplica acest lucru Carnet de lucru divizat caracteristică, în primul rând, ar trebui să descărcați Kutools pentru Excel, apoi aplicați caracteristica rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Deschideți registrul de lucru pe care doriți să salvați fiecare foaie ca fișier PDF, apoi faceți clic pe Kutool Plus > Workbook > Carnet de lucru divizat, vezi captura de ecran:

2. În Carnet de lucru divizat caseta de dialog, verificați foaia pe care doriți să o salvați, apoi alegeți PDF (* .pdf) de la Salvați ca tip lista derulantă, apoi faceți clic pe Despică , în butonul Selectați Dosar fereastră, specificați un folder pentru plasarea fișierelor convertite, consultați captura de ecran:

3. Și apoi, toate foile de lucru selectate din registrul de lucru curent au fost salvate în fișiere PDF individual, a se vedea captura de ecran:


Mai multe articole relative:

  • Convertiți mai multe fișiere Xls în fișiere Xlsx în Excel
  • Pentru a converti un fișier xls Excel vechi într-un fișier xlsx nou, puteți aplica caracteristica Salvare ca în Excel, dar, dacă sunt necesare mai multe fișiere xls pentru a fi convertite, cum ar putea face față acestei sarcini rapid și ușor?
  • Salvați toate foile de lucru numai ca valori
  • Dacă aveți un registru de lucru care conține mai multe formule, acum, trebuie să distribuiți acest fișier altor utilizatori, nu doriți să afișați formulele, ci numai valorile să fie afișate. În mod normal, putem salva rapid o foaie de lucru ca valori prin copierea și lipirea datelor numai ca valori. Dar, cum ați putea salva toate foile de lucru ca valori numai fără a copia și lipi una câte una?
  • Buton de comandă pentru a salva foaia de lucru activă ca fișier PDF
  • În timp ce lucrați în Microsoft Excel, vă puteți confrunta cu problema salvării foii de lucru active ca fișier PDF. În acest articol, puteți afla cum să salvați foaia de lucru activă ca fișier PDF cu cod VBA printr-un buton de comandă. Și dacă doriți, de asemenea, să salvați un interval sau fiecare foaie de lucru în registrul de lucru activ ca fișier PDF individual, acest articol vă poate ajuta, de asemenea.
  • Împărțiți o masă mare în mai multe mese mici
  • Dacă aveți o foaie de lucru mare care conține mai multe coloane și date de sute sau mii de rânduri, acum, doriți să împărțiți acest tabel mare în mai multe tabele mici pe baza valorii coloanei sau a numărului de rânduri pentru a obține următoarele rezultate. Cum ați putea face față acestei sarcini în Excel?
  • Împărțiți un registru de lucru pentru a separa fișierele Excel
  • Poate fi necesar să împărțiți un registru de lucru mare pentru a separa fișierele Excel salvând fiecare foaie de lucru a registrului de lucru ca fișier Excel individual. De exemplu, puteți împărți un registru de lucru în mai multe fișiere Excel individuale și apoi livrați fiecare fișier unei persoane diferite pentru a-l gestiona. Procedând astfel, puteți determina anumite persoane să gestioneze date specifice și să vă păstreze datele în siguranță. Acest articol va introduce modalități de a împărți un registru de lucru mare pentru a separa fișierele Excel pe baza fiecărei foi de lucru.

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (5)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Editez și actualizez datele mele în pdf explorer și am deja datele mele în foaia excel, așa că acum vreau să export în jurnalul meu excel în pdf explorer cum
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta este perfect pentru ceea ce căutam. Multumesc pentru partajare. Obișnuiam să convertesc fișierul Excel în fișier PDF cu Acethinker PDF Creator, unul câte unul, nu atât de rapid, partajați-l aici ca o soluție alternativă.
Acest comentariu a fost redus la minimum de moderatorul de pe site
vba este foarte bun și îmi servește bine scopul. dar acest cod nu poate fi modificat pentru a crea pdf dintr-o anumită foaie pentru mai multe fișiere Excel (să spunem a treia foaie de lucru din toate cele 3 de registre Excel pe care le am).
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumesc mult pentru acest cod.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua, acest lucru ar putea fi prea mult, dar există o modalitate de a crea un VBA care să separe mai multe fișe de lucru din registrele de lucru în propriul fișier pdf și ca fiecare antet să fie un text într-o anumită celulă din foaia de lucru pentru fiecare?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL