Bagaimana cara mengonversi beberapa buku kerja atau lembar kerja ke file PDF sekaligus di Excel?
Terkadang, Anda perlu mengonversi file Excel Anda ke file PDF, sehingga tidak dapat dimodifikasi oleh orang lain. Di Excel, kita dapat menyimpan file Excel sebagai file PDF dengan menggunakan fungsi Save As. Tetapi bagaimana Anda mengonversi beberapa buku kerja ke file PDF secara bersamaan di Excel?
- Ubah beberapa buku kerja menjadi file PDF dengan fungsi Save As satu per satu
- Konversikan 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:
1. Luncurkan buku kerja Anda 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 > Save, 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, metode di atas akan merepotkan, di sini, saya akan berbicara tentang kode VBA untuk mengonversi beberapa buku kerja ke file PDF sekaligus, 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 di 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. Lalu 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. Lalu klik OK, jendela lain muncul, pilih jalur folder tempat Anda ingin mengeluarkan file PDF baru, lihat tangkapan layar:
5. Dan kemudian, 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.
Setelah menginstal Kutools untuk Excel, lakukan seperti ini:
1. Klik Kutools Ditambah > Buku catatan > Format Converter, lihat tangkapan layar:
2. Dan kotak prompt muncul untuk mengingatkan Anda harus menutup buku kerja yang ingin Anda ubah.
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;
- Kemudian klik Add tombol untuk menambahkan file Excel yang ingin Anda konversi, Anda dapat menambahkan buku kerja dari disk 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:
- Jika buku kerja di subfolder perlu diubah juga, silakan periksa Sertakan subfolder saat menambahkan folder kotak centang;
- Jika Anda ingin menghapus file asli setelah mengonversi, silakan periksa Hapus file sumber setelah konversi kotak;
- Jika Anda ingin mempertahankan tanggal modifikasi dari file asli, silakan periksa Simpan tanggal modifikasi dari file asli kotak;
- Struktur direktori file dapat dipertahankan dengan memeriksa Struktur direktori file dipertahankan saat dikonversi kotak;
5. Lalu klik OK untuk memulai konversi, ketika semua file Excel yang ditentukan telah dikonversi ke file PDF, Anda dapat pergi ke folder yang ditentukan untuk melihat hasil konversi, lihat tangkapan layar:
|
|
|
Ubah beberapa lembar kerja dari buku kerja untuk memisahkan file PDF dengan kode VBA
Dalam beberapa kasus, Anda mungkin ingin mengonversi setiap lembar kerja di buku kerja menjadi file PDF terpisah, jika ada banyak lembar di buku kerja Anda, kode VBA di bawah ini dapat membantu Anda menyimpan setiap lembar kerja sebagai file PDF sekaligus.
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 di 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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan jendela muncul, pilih jalur folder untuk menemukan file PDF yang dikonversi, lihat tangkapan layar:
4. Lalu klik OK tombol, semua lembar kerja dalam buku kerja saat ini telah dikonversi file PDF secara terpisah, lihat tangkapan layar:
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.
Setelah menginstal Kutools untuk Excel, lakukan seperti ini:
1. Buka buku kerja yang ingin Anda simpan setiap lembar sebagai file PDF, 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:
- Ubah Beberapa File Xls Menjadi File Xlsx Di Excel
- Untuk mengonversi file xls Excel lama ke file xlsx baru, Anda dapat menerapkan fitur Save As di Excel, tetapi, jika ada beberapa file xls yang perlu dikonversi, bagaimana menangani tugas ini dengan cepat dan mudah?
- Simpan Semua Lembar Kerja Sebagai Nilai Saja
- Jika Anda memiliki buku kerja yang berisi beberapa rumus, sekarang, Anda perlu mendistribusikan file ini ke pengguna lain, Anda tidak ingin menampilkan rumus tetapi hanya nilai yang ditampilkan. Biasanya, kita dapat dengan cepat menyimpan lembar kerja sebagai nilai dengan menyalin dan menempelkan data sebagai nilai saja. Tapi, bagaimana Anda bisa menyimpan semua lembar kerja sebagai nilai saja tanpa menyalin dan menempel satu per satu?
- Tombol Perintah Untuk Menyimpan Lembar Kerja Aktif Sebagai File PDF
- Saat bekerja di Microsoft Excel, Anda mungkin menghadapi masalah menyimpan lembar kerja aktif sebagai file PDF. Pada artikel ini, Anda dapat mempelajari cara menyimpan lembar kerja aktif sebagai file PDF dengan kode VBA melalui Tombol Perintah. Dan jika Anda juga ingin menyimpan rentang atau setiap lembar kerja di buku kerja aktif sebagai file PDF individual, artikel ini juga dapat membantu Anda.
- Pisahkan Tabel Besar Menjadi Beberapa Tabel Kecil
- Jika Anda memiliki lembar kerja besar yang berisi beberapa kolom dan ratusan atau ribuan data baris, sekarang, Anda ingin memisahkan tabel besar ini menjadi beberapa tabel kecil berdasarkan nilai kolom atau jumlah baris untuk mendapatkan hasil berikut ini. Bagaimana Anda bisa menangani tugas ini di Excel?
- Pisahkan Buku Kerja Untuk Memisahkan File Excel
- Anda mungkin perlu membagi buku kerja besar untuk memisahkan file Excel dengan menyimpan setiap lembar kerja buku kerja sebagai file Excel individual. Misalnya, Anda bisa membagi buku kerja menjadi beberapa file Excel individual lalu mengirimkan setiap file ke orang yang berbeda untuk menanganinya. Dengan melakukan itu, Anda bisa mendapatkan orang tertentu menangani data tertentu, dan menjaga data Anda tetap aman. Artikel ini akan memperkenalkan cara untuk membagi buku kerja besar untuk memisahkan file Excel berdasarkan setiap lembar kerja.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
