2 metode eficiente pentru a converti în loturi mai multe registre de lucru Excel PDF Fişiere

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

1. Mai întâi, deschideți un registru de lucru Excel în care doriți să îl convertiți PDF fișier.
2. Apoi, accesați meniul „Fișier” și faceți clic pe opțiunea „Salvare ca”.
3. Apoi, în fereastra „Salvare ca”, selectați „PDF” din lista verticală „Salvare ca tip”.
4. După aceea, faceți clic pe butonul „Opțiuni” din fereastra „Salvare ca”.
5. Apoi, în caseta de dialog ulterioară „Opțiuni”, selectați „Întregul registru de lucru”.
6. În cele din urmă, faceți clic pe „OK” și „Salvați” pentru a finaliza conversia.
7. Î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

1. De la bun început, colectați toate registrele de lucru Excel în care trebuie convertite PDF în același folder Windows.
2. Apoi, lansați aplicația Excel.
3. Apoi, accesați editorul Excel VBA făcând referire la „Cum să rulați codul VBA în Excel".
4. 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

    '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. Apoi, faceți clic în prima subrutină și apăsați tasta „F5”.
6. În fereastra de dialog pop-up, selectați folderul Windows specific în care sunt colectate fișierele Excel.
7. Apoi, faceți clic pe „OK”.
8. 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

Î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