Salt la conținutul principal

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 de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

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!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations