Birdən çox Excel İş Kitabını Dəstəyə çevirmək üçün 2 Effektiv Metod PDF Files

Bəzən birdən çox Excel iş kitabını çevirmək istəyə bilərsiniz PDF fayllar. Budur, bu məqalədə, onu qrup halında əldə etmək üçün 2 üsul təqdim edəcəyik.

Bəzi hallarda, Excel iş kitabını a. formata çevirmək lazım ola bilər PDF bu faylda a PDF fayl başqaları tərəfindən asanlıqla dəyişdirilə bilməz. Hamımızın bildiyimiz kimi, Excel iş kitabını PDF formatına çevirmək olduqca asandır və bu, aşağıdakı 1-ci Metod kimi yerli "Saxla Kimi" funksiyası ilə əldə edilə bilər. Bununla belə, PDF formatına çevriləcək bir çox iş kitabı varsa, daha səmərəli olan aşağıda təqdim olunan 2-ci Metoddan istifadə etməlisiniz. İndi onları ətraflı öyrənmək üçün oxumağa davam edin.

Metod 1: Bir-bir çevirin

1. Əvvəlcə çevirmək istədiyiniz Excel iş kitabını açın PDF file.
2. Sonra "Fayl" menyusuna keçin və "Fərqli saxla" seçimini basın.
3. Növbəti addım olaraq, "Saxla" pəncərəsində "Saxla növü" açılan siyahısından "PDF" seçin.
4. Bundan sonra, "Fərqli Saxla" pəncərəsində "Seçimlər" düyməsini basın.
5. Sonra, sonrakı "Seçimlər" informasiya qutusunda "Bütün iş kitabı" seçin.
6. Nəhayət, konvertasiyanı başa çatdırmaq üçün "OK" və "Saxla" düyməsini basın.
7. Bu şəkildə, digər Excel iş kitablarını çevirə bilərsiniz PDF faylları bir-bir əl ilə.

Metod 2: VBA vasitəsilə Batch Convert

1. Ən başlanğıcda, çevriləcək bütün Excel iş kitablarını toplayın PDF eyni Windows qovluğunda.
2. Sonra Excel proqramını işə salın.
3. Bundan sonra, “Excel VBA redaktoruna daxil olun”Excel-də VBA kodunu necə işlətmək olar".
4. Sonra aşağıdakı kodu modul və ya layihəyə yerləşdirin.

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. Bundan sonra, ilk alt proqrama daxil olun və "F5" düyməsini basın.
6. Açılan informasiya qutusunda Excel fayllarının toplandığı xüsusi Windows qovluğunu seçin.
7. Sonra, "OK" düyməsini basın.
8. Makro tamamlandıqda, Windows qovluğu açılacaq, orada görə bilərsiniz PDF aşağıdakı ekran görüntüsü kimi fayllar.

Müqayisə

Excel faylının zədələnməsi halında

Birdən çox Excel istifadəçisi heç vaxt Excel faylının pozulması ilə üzləşib. Bəzən Excel-in yerli bərpa funksiyası bərpa edə bilər korlanmış Excel fayl. Ancaq bəzən bacarmır. Buna görə də, güclü Excel düzəltmə aləti hazırlamaq tövsiyə olunur, məsələn DataNumen Excel Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com