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

Bagaimana cara menggunakan Tombol Perintah untuk menyimpan lembar kerja aktif sebagai file PDF di Excel?

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.

Gunakan Tombol Perintah untuk menyimpan lembar kerja aktif sebagai file PDF dengan kode VBA
Mudah menyimpan aktif atau setiap lembar kerja sebagai file PDF individu dengan Kutools for Excel


Gunakan Tombol Perintah untuk menyimpan lembar kerja aktif sebagai file PDF dengan kode VBA

Anda dapat menjalankan kode VBA berikut untuk menyimpan lembar kerja aktif sebagai file PDF dengan mengklik Tombol Perintah. Silakan lakukan sebagai berikut.

1. Pertama, Anda perlu membuat folder bernama PDF untuk menyimpan file PDF baru yang telah dikonversi. Di sini saya membuat folder ini di disk lokal saya (C :).

2. Harap masukkan Tombol Perintah dengan mengklik Pengembang > Menyisipkan > Tombol Perintah (Kontrol ActiveX). Lihat tangkapan layar:

2. Kemudian gambar Tombol Perintah ke lembar kerja yang Anda butuhkan untuk menambahkan baris baru, klik kanan Tombol Perintah dan klik Properties dari menu klik kanan.

3. Dalam Properties kotak dialog, masukkan teks yang ditampilkan dari Tombol Perintah ke dalam Keterangan kotak di bawah Dikategorikan tab, lalu tutup kotak dialog.

Anda dapat melihat teks yang ditampilkan dari Tombol Perintah berubah seperti gambar di bawah ini.

4. Klik kanan kembali Tombol Perintah, lalu klik Lihat kode dari menu klik kanan.

5. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi jendela, harap ganti kode asli di jendela Kode dengan kode VBA berikut.

Kode VBA: Tombol Perintah untuk menyimpan lembar kerja aktif sebagai PDF

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

Note: Dalam kode, CommandButton1 adalah nama Tombol Perintah yang akan Anda gunakan untuk menyimpan lembar aktif sebagai file PDF. "C: \ PDF \ Export.pdf" adalah jalur dan nama file PDF simpanan Anda.

6. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela. Kemudian matikan Mode Desain bawah Pengembang Tab.

Sekarang, klik pada Tombol Perintah, lembar kerja aktif akan disimpan sebagai file PDF bernama Ekspor dan terletak di lokasi yang ditentukan.


Simpan setiap lembar kerja sebagai file PDF individual dari buku kerja aktif dengan Kutools for Excel

Di sini merekomendasikan Pisahkan Buku Kerja kegunaan Kutools untuk Excel untuk dengan mudah menyimpan lembar kerja aktif sebagai file PDF. Selain itu, Anda juga dapat menyimpan setiap lembar kerja di buku kerja saat ini sebagai file PDF individual dengan utilitas ini.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Di buku kerja Anda perlu menyimpan setiap lembar kerja sebagai file PDF individual, lalu klik Kutools Plus > Buku catatan > Pisahkan Buku Kerja. Lihat tangkapan layar:

2. Dalam Pisahkan Buku Kerja kotak dialog, konfigurasikan sebagai berikut:

2.1) Hanya periksa nama lembar aktif di Nama lembar kerja kotak;
2.2) Pilih PDF (* .pdf) pilihan dari Save as type daftar drop-down;
2.3) Klik Split tombol, lalu a Pilih Folder dialog muncul, tentukan folder untuk menyimpan file PDF;

Kemudian lembar kerja yang dipilih segera disimpan sebagai file PDF.

Catatan:

1. Anda dapat memeriksa beberapa nama lembar kerja di kotak Nama lembar kerja untuk menyimpannya sebagai file pdf sekaligus;
2. Kecuali untuk menyimpan lembar kerja sebagai file pdf, Anda dapat menyimpan lembar kerja sebagai txt. atau csv. mengajukan yang Anda butuhkan.

  Jika Anda ingin memiliki uji coba gratis (30-day) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Demo: Simpan pilihan atau setiap lembar kerja sebagai PDF dengan Kutools for Excel


Terkait artikel:


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 (33)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai, Bagaimana cara mengizinkan pengguna memasukkan nama file sebagai lawan dari "Ekspor.pdf"? Terima kasih, Ian
Komentar ini diminimalkan oleh moderator di situs
Sub SaveAsPDF()
Pembaruan Aplikasi.Layar = Salah
Jenis ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Nama File:=Application.InputBox("Masukkan Nama File")

strExcelPath = "H:\Dokumen Saya"

Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki permintaan serupa Saya ingin file diberi nama yang sama dengan sel tertentu di tab, IE: G19 ( Ini adalah nomor faktur dan saya ingin file disimpan sebagai PDF dengan nama itu)? . Saya telah berhasil membuat export.pdf berfungsi tetapi ini tidak akan berfungsi pada banyak penyimpanan. Ada pemikiran, terima kasih
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Kode VBA berikut dapat membantu Anda memecahkan masalah. Silakan pilih sel G19 di kotak dialog Kutoos for Excel yang muncul setelah menjalankan kode. Terima kasih atas komentarmu.

Sub CommandButton1_Click Pribadi ()
Redupkan xRg Sebagai Rentang
Redupkan xName As String
On Error Resume Next
Application.ScreenUpdating = Salah
Set xRg = Application.InputBox("Pilih sel yang akan Anda beri nama PDF dengan nilai sel:", "Kutools for Excel", Selection.Address, , , , , 8)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
xNama = xRg(1).Nilai
Jenis ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Nama file:="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish:=Salah
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya mengubah jalur ke drive D, tetapi tidak disimpan di drive D. Apa yang harus dilakukan?
Komentar ini diminimalkan oleh moderator di situs
Halo Akshay MN,
Jika Anda telah memodifikasi jalur di atas ke drive D, pastikan ada folder bernama PDF di drive D Anda.
Jika Anda hanya ingin menyimpan file di drive D tanpa membuat subfolder, gunakan jalur folder ini: "C:\" & xName & ".pdf"
Komentar ini diminimalkan oleh moderator di situs
Saya dapat mengonversi file saya ke PDF sekarang dengan tombol perintah, tetapi bisakah saya juga mendapatkan fungsi yang sama untuk mengizinkan nama yang berbeda untuk setiap file; berdasarkan struktur bilangan yang ada?
Komentar ini diminimalkan oleh moderator di situs
Hi Randy,
Maaf saya tidak dapat membantu dengan ini, selamat datang untuk memposting pertanyaan apa pun di forum kami: https://www.extendoffice.com/forum.html untuk mendapatkan lebih banyak dukungan Excel dari profesional kami.
Komentar ini diminimalkan oleh moderator di situs
ITU MENUNJUKKAN kesalahan Run-Time '1004'
Komentar ini diminimalkan oleh moderator di situs
Hai Nzee,
Saya perlu tahu versi Excel Anda. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
tolong rekatkan kode untuk simpan sebagai tombol pdf di microsoft excel
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya melakukan ini untuk MS Word? Saya memiliki banyak pertanyaan dengan opsi tombol radio sebagai jawaban. Jadi saya ingin membuat tombol perintah untuk menampilkan pertanyaan dengan jawaban yang dipilih hanya pada dokumen kata lain. Bagaimana cara melakukannya? Sebuah kode akan sangat membantu! Saya akan mengirimkan dokumennya melalui email jika Anda membutuhkannya. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Maaf belum bisa membantu Anda.
Komentar ini diminimalkan oleh moderator di situs
Sub ZapiszPDF()
Redupkan sNazwaPliku As String

sNazwaPliku = LembarAktif.Nama

Application.Dialogs(xlDialogSaveAs).Tampilkan sNazwaPliku, 57

End Sub
Komentar ini diminimalkan oleh moderator di situs
saya mengikuti kodenya, ini yang saya miliki:

Sub CommandButton2_Click Pribadi ()
Application.ScreenUpdating = Salah
Jenis ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Nama File:=Rentang("P2"), _
OpenAfterPublish:=Benar
Application.ScreenUpdating = Benar
End Sub

saya perlu file untuk disimpan ke lokasi file asli berada. juga perlu salinan file excel untuk menyimpan juga dengan nama yang sama.
Komentar ini diminimalkan oleh moderator di situs
Hai Matt Bentley,
Kode bekerja dengan sempurna. Terima kasih sudah berbagi.
Komentar ini diminimalkan oleh moderator di situs
Halo,

kann jemand mir helfen?

Ich nutze diese Zeilen und möchte jedoch, das aus dem Blatt ein Zellenwert al Dateiname gespeichert wird:

Sub CommandButton1_Click Pribadi ()
Application.ScreenUpdating = Salah
Jenis ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Nama file:="C:\PDF\Export.pdf", _
OpenAfterPublish:=Salah
Application.ScreenUpdating = Benar
End Sub

Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Halo,

ich nutze diese Zeilen und möchte das eine Zelle ass Dateiname verwenden wird!
Kann mir jemand ein Tipp geben?


Sub CommandButton1_Click Pribadi ()
Application.ScreenUpdating = Salah
Jenis ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Nama file:="c:/" & G3 & ".pdf", _
OpenAfterPublish:=Salah
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Sascha,
Kode berikut dapat membantu. Sebelum menerapkan kode, harap ubah 'C:\Users\Win10x64Test\Documents\PDF' di baris keempat ke jalur folder tujuan Anda sendiri.
Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220929
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Win10x64Test\Documents\PDF\" & Range("G3").Value, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
Komentar ini diminimalkan oleh moderator di situs
о о а опка - "другой" + Q авиши одновременно" ? е оняла о ажимать, одскажите, ожалуйста
Komentar ini diminimalkan oleh moderator di situs
Hi Диана,
Ini adalah tombol "Alt" pada keyboard Anda. Microsoft Excel memungkinkan pengguna untuk menekan tombol "Alt" + "Q" untuk menutup jendela Microsoft Visual Basic for Applications dan kembali ke lembar kerja.
Komentar ini diminimalkan oleh moderator di situs
Goededag

ini adalah mogelijk dari een filmpje dari een excelblad terbaik yang dibuat untuk Command-Knop Om Een ​​Actief Werkblad Op Te Slaan Als PDF-Bestand Met VBA-Code.
kom er niet helemaal uit met de codes.
alvast bedankt
Komentar ini diminimalkan oleh moderator di situs
Hai maks,
Maaf saya tidak mengerti maksud Anda. Anda mungkin perlu melampirkan tangkapan layar dari apa yang Anda coba lakukan. Maaf untuk ketidaknyamanannya.
Komentar ini diminimalkan oleh moderator di situs
Hi Tim,

Hanya ingin tahu apakah ada yang bisa membantu mengubah tujuan file yang dibuat ke desktop pengguna mana pun? Perusahaan saya tidak mengizinkan akses ke C: jadi skrip tidak berfungsi.

BANYAK BANYAK BANYAK terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai Ben Stoddart,
Anda hanya perlu membuka folder apa pun di desktop Anda dan menyalin jalur folder di kotak alamat, lalu mengganti jalur folder di kode VBA dengan jalur yang Anda salin.
Ini adalah baris Filename baru (silakan ganti Nama Pengguna dengan nama pengguna Anda sendiri), Ekspor.pdf adalah nama dan ekstensi file dari file PDF:
Filename:="C:\Users\Username\Desktop\PDF\Export.pdf", _
Komentar ini diminimalkan oleh moderator di situs
Setiap kali saya menjalankan ini, ini menyimpan PDF ke drive lokal saya tempat lembar excel disimpan, bagaimana cara menghentikan ini dari penyimpanan otomatis?

Sub CommandButton1_Click Pribadi ()
Application.ScreenUpdating = Salah
Jenis ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
OpenAfterPublish:=Benar
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Ketika saya menjalankan di bawah ini, ini membuat versi lokal PDF secara otomatis - bagaimana cara menghentikan ini dari penyimpanan otomatis?

Sub CommandButton1_Click Pribadi ()
Application.ScreenUpdating = Salah
Jenis ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
OpenAfterPublish:=Benar
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hi James,
Apakah Anda ingin memunculkan jendela untuk memilih folder untuk menyimpan file PDF secara manual?
Komentar ini diminimalkan oleh moderator di situs
Hai Crystal, idealnya ya jadi saya bisa memilih tempat menyimpan PDF.
Komentar ini diminimalkan oleh moderator di situs
H James,

Kode VBA berikut dapat membantu Anda mengatasi masalah tersebut.
Note: Anda tidak dapat menangani tujuan dan nama file secara bersamaan. Setelah menambahkan kode VBA berikut, ketika Anda mengklik tombol tersebut, sebuah kotak dialog akan muncul untuk Anda memilih folder tujuan. Setelah memilih folder tujuan, sebuah kotak akan muncul untuk Anda memberi nama pada file PDF.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221223
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    Dim xStrName As String
    If xDlg.Show <> -1 Then Exit Sub
    
    xFolder = xDlg.SelectedItems(1)
    
    xStart = InputBox("file name", "KuTools for Excel", ActiveSheet.Name & ".pdf")

    Application.ScreenUpdating = False

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=xFolder & "\" & xStart, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True

End Sub
Komentar ini diminimalkan oleh moderator di situs
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem is nur, sollte diese Datei bereits vorhanden sein, wird diese einfach überschrieben!
Apakah Anda tahu apakah itu benar, itu adalah hal yang paling baik, Tanggal dan apakah ada yang salah?
Komentar ini diminimalkan oleh moderator di situs
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem is nur, sollte diese Datei bereits vorhanden sein, WIRD diese einfach überschrieben!
Apakah Anda tahu apakah itu benar, itu adalah hal yang paling baik, Tanggal dan apakah ada yang salah?


Sub CommandButton1_Click Pribadi ()
Application.ScreenUpdating = Salah
Jenis ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
Filename:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=Benar
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Sascha,
Kode VBA berikut dapat membantu. Ayo cobalah.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221230
    Dim xPDFName As String
    Dim xPDFPath As String
    Dim xObjFS As Object
    Dim xNum As Integer
    Dim xStr As String
    
    xPDFName = "Export" 'The file name
    xPDFPath = "D:\work\Jan\test\" 'The file path
    Application.ScreenUpdating = True
    On Error Resume Next
    Set xObjFS = CreateObject("Scripting.FileSystemObject")
    xStr = xPDFPath & xPDFName & ".pdf"
    xNum = 1
    If xObjFS.FileExists(xStr) Then
    xResponse = MsgBox("The file already exists, do you want to overwrite it?", vbYesNo, "www.extendoffice.com", "", 0)
       If xResponse <> vbYes Then
       Exit Sub
      End If
    End If
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=xStr, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
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