Uneori, poate doriți să convertiți mai multe registre de lucru Excel în PDF fișiere. Aici, în acest articol, vom introduce 2 metode pentru a-l obține în loturi.
În unele cazuri, poate fi necesar să convertiți un registru de lucru Excel într-un PDF dosar în acel a PDF fișierul nu poate fi modificat de către alții cu ușurință. După cum știm cu toții, este considerabil de ușor să convertiți un registru de lucru Excel în PDF, care poate fi realizată prin caracteristica nativă „Salvare ca”, cum ar fi următoarea Metodă 1. Cu toate acestea, dacă există multe registre de lucru pentru a fi convertite PDF, ar fi bine să utilizați Metoda 2 introdusă în continuare, care este mult mai eficientă. Acum, citiți mai departe pentru a le obține în detaliu.
Metoda 1: convertiți unul câte unul
- Mai întâi, deschideți un registru de lucru Excel în care doriți să îl convertiți PDF fișier.
- Apoi, accesați meniul „Fișier” și faceți clic pe opțiunea „Salvare ca”.
- Apoi, în fereastra „Salvare ca”, selectați „PDF” din lista verticală „Salvare ca tip”.
- După aceea, faceți clic pe butonul „Opțiuni” din fereastra „Salvare ca”.
- Apoi, în caseta de dialog ulterioară „Opțiuni”, selectați „Întregul registru de lucru”.
- În cele din urmă, faceți clic pe „OK” și „Salvați” pentru a finaliza conversia.
- În acest fel, puteți converti celelalte registre de lucru Excel în PDF fișierele unul câte unul manual.
Metoda 2: Conversie în lot prin VBA
- De la bun început, colectați toate registrele de lucru Excel în care trebuie convertite PDF în același folder Windows.
- Apoi, lansați aplicația Excel.
- Apoi, accesați editorul Excel VBA făcând referire la „Cum să rulați codul VBA în Excel".
- Apoi, introduceți următorul cod într-un modul sau proiect.
Sub BatchOpenMultiplePSTFiles() Dim objShell As Object Dim objWindowsFolder As Object Dim strWindowsFolder As String 'Selectați folderul Windows specific Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder(0, "Folder" 0, "") Dacă nu objWindowsFolder nu este nimic, atunci strWindowsFolder = objWindowsFolder.self.Path & "\" Apelați ProcessFolders(strWindowsFolder) 'Deschideți folderul Windows Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus End If End Sub Sub ProcessFolders(strPath As String) Dim objFileSystem As Object Dim objFolder As Object Dim objFile As Object Dim objExcelFile As Object Dim objWorkbook As Excel.Workbook Dim strWorkbookName As String Set objFileSystem = CreateObject = "ObjectSystem. etFolder( strPath) Pentru fiecare objFile din objFolder.Files strFileExtension = objFileSystem.GetExtensionName(objFile) Dacă LCase(strFileExtension) = "xls" Sau LCase(strFileExtension) = "xlsx" Apoi Setați objExcelFile = objExcelFile = objFileSet aplicație obj.Wpenorkobbooks = "xls". .Path) strWorkbookName = Left(objWorkbook.Name, (Len(objWorkbook.Name) - Len(strFileExtension)) -1) objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & strWorkbookName & ".pdf" objWorkbook.Close False End If Next 'Procesează toate folderele și subfolderele Dacă objFolder.SubFolders.Count > 0 Apoi pentru fiecare objSubFolder din objFolder.SubFolders Dacă ((objSubFolder.Attributes And 2) = 0) And ((objSubFolders) ) = 4) Apoi ProcessFolders (objSubFolder.Path) End If Next End If End Sub
- Apoi, faceți clic în prima subrutină și apăsați tasta „F5”.
- În fereastra de dialog pop-up, selectați folderul Windows specific în care sunt colectate fișierele Excel.
- Apoi, faceți clic pe „OK”.
- Când macro-ul se termină, se va deschide folderul Windows, în care puteți vedea PDF fișiere, cum ar fi următoarea captură de ecran.
Comparaţie
| Avantaje | Dezavantaje | |
| Metoda 1 | Destul de ușor de operat | Prea deranjant la conversia mai multor registre de lucru Excel |
| Metoda 2 | Mult mai convenabil și mai rapid decât metoda 1 atunci când procesați multe registre de lucru | Utilizatorii trebuie să fie atenți la macrocomenzile externe rău intenționate. |
În cazul corupției fișierului Excel
Mai mulți utilizatori Excel s-au confruntat vreodată cu corupția fișierelor Excel. Uneori, caracteristica nativă de recuperare a Excel poate restabili Excel corupt fişier. Cu toate acestea, uneori nu se poate. Prin urmare, este foarte recomandat să pregătiți un instrument puternic de remediere Excel, cum ar fi DataNumen Excel Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com
Bonjour, un de mes collègue a fait un cod de acest tip și mai mult pe adaugă un format de papier mais cette ligne semble a cauzat probleme și nu înțelegem pentru ce.
voici la partie du code
„Asigurați-vă că s-a deschis Registrul de lucru înainte de a trece la următoarea linie de cod
Cu wsA.PageSetup
.PaperSize = xlPaperLetter
'.CenterHorizontal = Adevărat
‘ .CenterVertically = True
‘ .Orientation = xlLandscape
‘ .Zoom = False
‘ .FitToPagesWide = 1
‘ .FitToPagesTall = 1
‘ .BottomMargin = 0
‘ .TopMargin = 0
‘ .RightMargin = 0
‘ .LeftMargin = 0
Se termina cu
DoEvents
wsA.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=myPath & myFile2 & „.pdf”, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnoraPrintAreas:=fals, _
OpenAfterPublish: = False
„Salvați și închideți registrul de lucru
wb.Close SaveChanges:=False
multumesc in avans pentru ajutor
Conceptul Leuk Batchconversie prin VBA:
Codul este folosit în text Set objFolder („Scripting.FileSystemObject = strPath) nu mai mult.
Zou mooi zijn als de scherm afdruk groter was dan wis je wat erin kon komen te staan.
Pop up Venster Komt wel op.
1
Thank you for this. I have workbooks which have two sheets in each, is there a way for this to work so it creates the PDF cu cele două pagini întregi așa cum se creează în prezent PDFare peste 5 pagini.
ce se întâmplă dacă vrem o singură foaie de lucru în registrul de lucru?
This is so amazing, can’t thank you enough!!! What a time saver