Bagaimana cara mengonversi beberapa buku kerja atau lembar kerja ke file PDF sekaligus di Excel?

Mengonversi file Excel ke PDF merupakan tugas umum saat Anda ingin berbagi data sambil mencegah modifikasi. Meskipun fitur Save As Excel memungkinkan Anda mengonversi satu buku kerja ke PDF, fitur ini dapat memakan waktu untuk beberapa file. Panduan ini membahas berbagai metode, termasuk kode VBA dan Kutools for Excel, untuk mengonversi beberapa buku kerja atau lembar kerja ke file PDF sekaligus dengan cepat.

• Ubah beberapa buku kerja menjadi file PDF dengan fungsi Save As satu per satu
• Konversi beberapa buku kerja ke file PDF dengan kode VBA sekaligus
• Konversikan beberapa buku kerja ke file PDF dengan fitur canggih
• Ubah beberapa lembar kerja dari buku kerja untuk memisahkan file PDF dengan kode VBA
• Ubah beberapa lembar kerja dari buku kerja untuk memisahkan file PDF dengan fitur praktis

Ubah beberapa buku kerja menjadi file PDF dengan fungsi Save As satu per satu

Biasanya, fitur Save As di Excel dapat membantu Anda untuk menyimpan seluruh workbook ke file PDF, lakukan seperti ini:

1Luncurkan buku kerja yang ingin Anda ubah ke format PDF.

2. Klik File > Save As, dan di Save As kotak dialog, tentukan folder untuk menyimpan file baru, lalu pilih PDF dari Save as type daftar drop-down, dan kemudian, klik Opsi tombol, lihat tangkapan layar:

3. Lalu, di pop out Opsi kotak dialog, periksa Seluruh buku kerja, lihat tangkapan layar:

4. Dan kemudian klik OK > Simpan, seluruh buku kerja ini telah disimpan sebagai format file PDF.

Konversikan beberapa buku kerja ke file PDF dengan kode VBA sekaligus

Jika ada ratusan file Excel yang perlu dikonversi, cara di atas akan merepotkan, di sini, saya akan membahas kode VBA untuk mengonversi beberapa buku kerja menjadi file PDF sekaligus, silakan lakukan dengan langkah-langkah berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut ke dalam Modul Jendela.

Kode VBA: Ubah beberapa buku kerja ke file PDF sekaligus

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. tekan F5 kunci untuk menjalankan kode ini, dan sebuah jendela akan ditampilkan, pilih folder yang berisi buku kerja yang ingin Anda ubah, lihat tangkapan layar:

4. Klik OK, jendela lain muncul, pilih jalur folder tempat Anda ingin mengeluarkan file PDF baru, lihat tangkapan layar:

5. Klik OK, setelah menyelesaikan konversi, Anda dapat pergi ke folder yang ditentukan untuk melihat hasil konversi, lihat tangkapan layar:

Konversikan beberapa buku kerja ke file PDF dengan fitur canggih

Jika Anda memiliki Kutools untuk Excel, Dengan yang Format Converter utilitas, Anda dapat dengan cepat mengonversi beberapa buku kerja ke file PDF sekaligus.

1. Klik Kutools Ditambah > Buku catatan > Format Converter, lihat tangkapan layar:

2Kotak perintah akan muncul mengingatkan Anda untuk menutup buku kerja yang ingin dikonversi.

3. Klik OK, lalu, di Konverter Format File dialog, tentukan opsi berikut:

• Di bawah Jenis konversi daftar drop-down, pilih Buku kerja Excel ke PDF;
• klik Add tombol untuk memilih file Excel yang ingin Anda konversi. Anda dapat memilih buku kerja dari komputer atau OneDrive sesuai kebutuhan

4. Setelah menyisipkan buku kerja yang ingin Anda konversi, masih dalam file Pengonversi Format File kotak dialog, silakan klik untuk memilih satu jalur folder untuk mengeluarkan file yang dikonversi, dan kemudian tentukan beberapa operasi yang Anda butuhkan di bagian bawah kotak dialog, lihat tangkapan layar:

5. Lalu klik OK untuk memulai konversi. Setelah semua file Excel yang ditentukan dikonversi ke PDF, navigasikan ke folder yang ditentukan untuk melihat hasilnya. Lihat cuplikan layar di bawah ini:

Ubah beberapa lembar kerja dari buku kerja untuk memisahkan file PDF dengan kode VBA

Dalam beberapa kasus, Anda mungkin ingin mengonversi setiap lembar kerja dalam buku kerja menjadi file PDF terpisah. Jika buku kerja Anda berisi banyak lembar, kode VBA di bawah ini dapat membantu menyimpan setiap lembar kerja sebagai file PDF terpisah secara bersamaan.

1. Buka buku kerja yang ingin Anda konversi, lalu tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut ke dalam Modul Jendela.

Kode VBA: Konversi beberapa lembar kerja dari buku kerja ke file PDF terpisah

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. tekan F5 untuk menjalankan kode ini, dan sebuah jendela akan muncul; silakan pilih jalur folder untuk menyimpan file PDF yang dikonversi. Lihat tangkapan layar:

4. Klik OK tombol, dan semua lembar kerja di buku kerja saat ini akan diubah menjadi file PDF terpisah:

Ubah beberapa lembar kerja dari buku kerja untuk memisahkan file PDF dengan fitur praktis

Kutools untuk Excel juga mendukung fitur yang berguna - Pisahkan Buku Kerja, dengan fitur ini, Anda dapat menyimpan beberapa lembar kerja di dalam workbook untuk memisahkan file Excel, file Txt, file CSV dan file PDF sesuai kebutuhan.

1Buka buku kerja tempat Anda ingin menyimpan setiap lembar sebagai file PDF terpisah, lalu klik Kutool Ditambah > Buku catatan > Pisahkan Buku Kerja, lihat tangkapan layar:

2. di Pisahkan Buku Kerja kotak dialog, centang lembar yang ingin Anda simpan, lalu pilih PDF (* .pdf) dari Save as type daftar drop-down, lalu klik Split tombol, di Pilih Folder jendela, tentukan folder untuk meletakkan file yang dikonversi, lihat tangkapan layar:

3. Dan kemudian, semua lembar kerja yang dipilih di buku kerja saat ini telah disimpan ke file PDF satu per satu, lihat tangkapan layar:

Artikel yang lebih relatif: