Niekedy možno budete chcieť previesť viac zošitov programu Excel na PDF súbory. Tu v tomto článku predstavíme 2 spôsoby, ako ju získať v dávkach.
V niektorých prípadoch možno budete musieť previesť zošit programu Excel na a PDF spis v tom a PDF súbor nemôžu ostatní ľahko upraviť. Ako všetci vieme, je veľmi ľahké prevádzať zošit programu Excel PDF, ktoré je možné dosiahnuť pomocou natívnej funkcie „Uložiť ako“, ako je napríklad v nasledujúcej metóde 1. Ak však existuje veľa zošitov, ktoré je potrebné previesť na PDF, mali by ste lepšie použiť nižšie uvedenú metódu 2, ktorá je oveľa efektívnejšia. Teraz ich prečítajte a získate ich podrobne.
Metóda 1: Konvertujte jeden po druhom
- Najskôr otvorte zošit programu Excel, na ktorý chcete konvertovať PDF súbor.
- Potom choďte do ponuky „Súbor“ a kliknite na možnosť „Uložiť ako“.
- Ďalej v okne „Uložiť ako“ vyberte „PDF”Z rozbaľovacieho zoznamu„ Uložiť ako typ “.
- Potom kliknite na tlačidlo „Možnosti“ v okne „Uložiť ako“.
- Potom v nasledujúcom dialógovom okne „Možnosti“ vyberte „Celý zošit“.
- Nakoniec dokončite prevod kliknutím na „OK“ a „Uložiť“.
- Týmto spôsobom môžete previesť ďalšie zošity programu Excel do PDF súbory po jednom manuálne.
Metóda 2: Dávková konverzia pomocou VBA
- Hneď na začiatku zhromaždite všetky zošity programu Excel, do ktorých sa má konvertovať PDF v rovnakom priečinku Windows.
- Potom spustite aplikáciu Excel.
- Ďalej prejdite do editora Excel VBA podľa odkazu „Ako spustiť kód VBA v programe Excel".
- Potom vložte nasledujúci kód do modulu alebo projektu.
Sub BatchOpenMultiplePSTFiles () Dim objShell As Object Dim objWindowsFolder As Object Dim strWindowsFolder As String 'Vyberte konkrétny priečinok Windows Set objShell = CreateObject ("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder (0, "Vyberte priečinok Windows:", 0, "") Ak nie je objWindowsFolder nič, potom strWindowsFolder = objWindowsFolder.self.Path & "\" Zavolajte ProcessFolders (strWindowsFolder) 'Otvorte priečinok Windows Shell "Explorer.exe" & "" & strWindowsFolder, vbNormalFocus Koniec, ak koniec 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 ("Scripting.FileSystemObject") ObjectFolder =) strPath) Pre každý objFile v objFolder.Files strFileExtension = objFileSystem.GetExtensionName (objFile) Ak LCase (strFileExtension) = "xls" alebo LCase (strFileExtension) = "xlsx" Potom Set objExcelFile = objFile Set objWorkbook = Application.Workbooks.Open (objExcelFile.Path) strWorkbookName = Left (objWorkbook.Name, (Len (objWorkbook.Name) - Len (strFileExtension)) -1) objWorkbook.ExportAsFixedFormat Typ: = xlTypePDF, Názov súboru: = strPath & strWorkbookName & ".pdf"objWorkbook.Close False End If Next 'Spracovať všetky priečinky a podpriečinky If objFolder.SubFolders.Count> 0 potom pre každý objSubFolder v objFolder.SubFolders If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4 ) = 0) Potom ProcessFolders (objSubFolder.Path) Koniec Ak Ďalej Koniec Ak Koniec Sub
- Potom kliknite na prvý podprogram a stlačte kláves „F5“.
- V rozbaľovacom dialógovom okne vyberte konkrétny priečinok Windows, v ktorom sa zhromažďujú súbory programu Excel.
- Potom kliknite na „OK“.
- Po dokončení makra sa otvorí priečinok Windows, v ktorom môžete vidieť PDF nasledujúce súbory.
Porovnanie
výhody | Nevýhody | |
Metóda 1 | Veľmi ľahko sa ovláda | Príliš problematické pri prevode viacerých zošitov programu Excel |
Metóda 2 | Oveľa pohodlnejšie a rýchlejšie ako metóda 1 pri spracovávaní mnohých zošitov | Používatelia musia byť voči externým škodlivým makrám opatrní. |
V prípade poškodenia súboru programu Excel
S poškodením súborov programu Excel sa niekedy stretlo viac používateľov programu Excel. Nativní funkcia obnovenia v programe Excel môže občas obnoviť poškodený Excel spis. Napriek tomu to niekedy nejde. Preto sa dôrazne odporúča pripraviť si výkonný nástroj na opravu Excelu, ako je napr DataNumen Excel Repair.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane obnoviť sql a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S
Bonjour, un de mes collègue a fait un code de ce type aussi mais on ya ajouter un format de papier mais cette ligne semble causé des problème et je ne comprend pas pourquoi.
voici la partie du code
Pred prechodom na ďalší riadok kódu sa uistite, že sa zošit otvoril
Pomocou wsA.PageSetup
.Veľkosť papiera = xlPaperLetter
'.CenterHorizontally = True
' .CenterVertical = Pravda
' .Orientácia = xlKrajina
' .Zoom = False
' .FitToPagesWide = 1
' .FitToPagesTall = 1
.BottomMargin = 0
.TopMargin = 0
.RightMargin = 0
Ľavý okraj = 0
Koniec s
DoEvents
wsA.ExportAsFixedFormat _
Typ:=xlTypePDF, _
fileName:=myPath & myFile2 & “.pdf“, _
Kvalita: = xlQualityStandard, _
IncludeDocProperties: = True, _
Ignorovať tlačtAreas: = False, _
OpenAfterPublish: = False
'Uložiť a zatvoriť zošit
wb.Close SaveChanges:=False
vopred ďakujem za pomoc
Koncept Leuk Batchconversie cez VBA:
Vyhľadajte kód v texte Set objFolder („Scripting.FileSystemObject = strPath) nie je viac.
Zou mooi zijn als de scherm afdruk groter was dan wis je wat erin kon komen te staan.
Pop up vester komt wel op.
1
Ďakujem ti za to. Mám pracovné zošity, ktoré majú dva listy v každom, existuje spôsob, ako to fungovať, aby sa vytvorilo PDF s dvoma plnými stránkami, ako v súčasnosti vytvára PDFmá viac ako 5 strán.
čo ak chceme mať v zošite jeden pracovný hárok?
To je také úžasné, nemôžem vám dostatočne poďakovať!!! Čo šetrí čas