2 učinkovite metode za skupno pretvaranje više Excel radnih knjiga u PDF Slika

Ponekad ćete možda htjeti pretvoriti više Excel radnih knjiga u PDF datoteke. Ovdje, u ovom članku, predstavit ćemo 2 metode za dobivanje u serijama.

U nekim ćete slučajevima možda morati pretvoriti Excel radnu knjigu u PDF datoteka u tom a PDF Datoteku drugi ne mogu lako mijenjati. Kao što svi znamo, vrlo je jednostavno pretvoriti Excel radnu knjigu u PDF, što se može postići izvornom značajkom "Spremi kao", kao što je sljedeća 1. metoda. Ipak, ako postoji mnogo radnih knjiga u koje treba pretvoriti PDF, bilo bi bolje da upotrijebite Metodu 2 predstavljenu u nastavku, koja je mnogo učinkovitija. Sada čitajte dalje da biste ih dobili u detalje.

Metoda 1: Pretvorite jedan po jedan

1. Najprije otvorite Excel radnu knjigu u koju želite pretvoriti PDF file.
2. Zatim idite na izbornik "Datoteka" i kliknite opciju "Spremi kao".
3. Zatim u prozoru "Spremi kao" odaberite "PDF” s padajućeg popisa „Spremi kao vrstu”.
4. Nakon toga kliknite gumb "Opcije" u prozoru "Spremi kao".
5. Zatim u sljedećem dijaloškom okviru "Opcije" odaberite "Cijela radna knjiga".
6. Na kraju kliknite "U redu" i "Spremi" za dovršetak pretvaranja.
7. Na taj način možete pretvoriti druge Excel radne knjige u PDF datoteke jednu po jednu ručno.

Metoda 2: Skupno pretvaranje putem VBA

1. Na samom početku prikupite sve Excel radne knjige u koje želite pretvoriti PDF u istoj Windows mapi.
2. Zatim pokrenite Excel aplikaciju.
3. Zatim pristupite uređivaču Excel VBA tako što ćete pogledati "Kako pokrenuti VBA kod u vašem Excelu".
4. Zatim stavite sljedeći kod u modul ili projekt.

Sub BatchOpenMultiplePSTFiles()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String

    'Select the specific Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       Call ProcessFolders(strWindowsFolder)

       'Open the windows folder
       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("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)

    For Each objFile In objFolder.Files
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "xls" Or LCase(strFileExtension) = "xlsx" Then
           Set objExcelFile = objFile
           Set objWorkbook = Application.Workbooks.Open(objExcelFile.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

    'Process all folders and subfolders
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              ProcessFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

5. Zatim kliknite na prvu potprogram i pritisnite tipku “F5”.
6. U skočnom dijaloškom okviru odaberite određenu Windows mapu u kojoj su prikupljene Excel datoteke.
7. Zatim kliknite "OK".
8. Kada makro završi, otvorit će se mapa Windows u kojoj možete vidjeti PDF datoteke, poput sljedeće snimke zaslona.

usporedba

U slučaju oštećenja Excel datoteke

Više korisnika programa Excel ikada je doživjelo oštećenje Excel datoteke. Ponekad Excelova izvorna značajka oporavka može vratiti pokvaren Excel datoteka. Ipak, ponekad ne može. Stoga je vrlo preporučljivo pripremiti moćan Excel alat za popravke, kao što je DataNumen Excel Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com