Note: The other languages of the website are Google-translated. Back to English

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

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.

Tips: Jika Anda memiliki beberapa buku kerja yang perlu dikonversi, terapkan langkah-langkah di atas untuk menyimpan buku kerja ke file PDF satu per satu.

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.

Tips:Untuk menerapkan ini Format Converter fitur, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools Plus > 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:

Catatan: Pada kotak dialog di atas:
  • 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.

Tips:Untuk menerapkan ini Pisahkan Buku Kerja fitur, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Buka buku kerja yang ingin Anda simpan setiap lembar sebagai file PDF, lalu klik Kutool Plus > 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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (5)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
saya mengedit dan memperbarui data saya di pdf explorer dan saya sudah memiliki data saya di lembar excel jadi sekarang saya ingin mengekspor ke log excel saya ke pdf explorer bagaimana caranya
Komentar ini diminimalkan oleh moderator di situs
Ini sempurna untuk apa yang saya cari. Terima kasih untuk berbagi. Dulu saya convert file excel ke file PDF dengan Acethinker PDF Creator, satu persatu, tidak begitu cepat, share disini sebagai alternatif solusi.
Komentar ini diminimalkan oleh moderator di situs
vba sangat bagus dan melayani tujuan saya dengan baik. tetapi bisakah kode ini tidak diubah untuk membuat pdf dari lembar tertentu untuk beberapa file excel (katakanlah lembar kerja ke-3 dari semua 100 buku kerja excel yang saya miliki).
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak untuk kode ini.
Komentar ini diminimalkan oleh moderator di situs
Halo ini mungkin terlalu banyak, tetapi apakah ada cara untuk membuat VBA yang akan memisahkan beberapa lembar kerja buku kerja menjadi file pdf mereka sendiri dan untuk setiap header menjadi teks dalam sel tertentu di lembar kerja untuk masing-masing?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL