Bagaimana cara mengonversi beberapa lembar excel ke beberapa pdf?

Terkadang, Anda mungkin ingin mengonversi beberapa buku kerja Excel ke file PDF. Di sini, di artikel ini, kami akan memperkenalkan 2 metode untuk mendapatkannya secara berkelompok

Dalam beberapa kasus, Anda mungkin perlu mengonversi buku kerja Excel menjadi file PDF karena file PDF tidak dapat dimodifikasi oleh orang lain dengan mudah. Seperti yang kita semua tahu, sangat mudah untuk mengonversi buku kerja Excel ke PDF, yang dapat dicapai dengan fitur "Simpan Sebagai" asli, seperti Metode 1 berikut. Namun, jika ada banyak buku kerja yang akan dikonversi ke PDF, sebaiknya gunakan Metode 2 yang diperkenalkan setelahnya, yang jauh lebih efisien. Sekarang, baca terus untuk mengetahuinya secara detail

Metode 1. Mengkonversi Satu per Satu

1. Pertama, buka buku kerja Excel yang ingin Anda ubah menjadi file PDF
2. Lalu, buka menu "File" dan klik opsi "Save as".
   
3. Selanjutnya, di jendela "Simpan Sebagai", pilih "PDF" dari daftar drop-down "Simpan sebagai jenis"
   
4. Setelah itu, klik tombol "Opsi" di jendela "Simpan Sebagai".
5. Kemudian, di kotak dialog "Opsi" berikutnya, pilih "Seluruh buku kerja"
   
6. Terakhir, klik "OK" dan "Simpan" untuk menyelesaikan konversi
7. Dengan cara ini, Anda dapat mengonversi buku kerja Excel lainnya menjadi file PDF satu per satu secara manual

Metode 2. Konversi Batch melalui VBA

1. Pada awalnya, kumpulkan semua buku kerja Excel untuk diubah menjadi PDF di folder Windows yang sama
2. Kemudian, luncurkan aplikasi Excel
3. Selanjutnya, akses editor VBA Excel dengan mengacu pada “Cara Menjalankan Kode VBA di Excel Anda“
4. Kemudian, masukkan kode berikut ke dalam modul atau proyek

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

1. Setelah itu, klik subrutin pertama dan tekan tombol "F5".
2. Dalam dialog sembulan, pilih folder Windows tertentu tempat file Excel dikumpulkan
   
3. Kemudian, klik "OK"
4. Saat makro selesai, folder Windows akan dibuka, di mana Anda dapat melihat file PDF, seperti tangkapan layar berikut
   

Perbandingan

Dalam Kasus Korupsi File Excel

Beberapa pengguna Excel pernah mengalami kerusakan file Excel. Terkadang, fitur pemulihan asli Excel dapat memulihkan file Excel yang rusak. Namun, terkadang tidak bisa. Oleh karena itu, sangat disarankan untuk menyiapkan alat perbaikan Excel yang kuat, seperti DataNumen Excel Repair

Pengantar Pengarang

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc. , yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan sql dan produk perangkat lunak perbaikan prospek. Untuk informasi lebih lanjut kunjungi www. datanumen. com

Bagaimana cara mengonversi semua spreadsheet Excel ke PDF?

Bagaimana cara menyimpan banyak tab di Excel sebagai makro file PDF terpisah?