Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menggunakan Butang Perintah untuk menyimpan lembaran kerja yang aktif sebagai fail PDF dalam Excel?

Semasa bekerja di Microsoft Excel, anda mungkin menghadapi masalah menyimpan lembaran kerja aktif sebagai fail PDF. Dalam artikel ini, anda boleh mempelajari cara menyimpan lembaran kerja aktif sebagai fail PDF dengan kod VBA melalui Butang Perintah. Dan jika anda juga ingin menyimpan pelbagai atau setiap lembaran kerja dalam buku kerja aktif sebagai fail PDF individu, artikel ini juga dapat membantu anda.

Gunakan Butang Perintah untuk menyimpan lembaran kerja yang aktif sebagai fail PDF dengan kod VBA

Simpan pelbagai sel terpilih sebagai fail PDF dengan Kutools untuk Excel

Simpan setiap lembaran kerja sebagai fail PDF individu buku kerja aktif dengan Kutools untuk Excel


Mudah simpan pemilihan sebagai fail PDF dalam Excel:

Klik Enterprise > Import / Eksport > Julat Eksport ke Fail. Yang Kutools untuk Excel's Julat Eksport ke Fail utiliti membantu anda dengan mudah mengeksport pemilihan sebagai fail PDF dalam Excel. Lihat tangkapan skrin di bawah:

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 30. Muat turun percubaan percuma Sekarang

pemilihan doc ke pdf


Gunakan Butang Perintah untuk menyimpan lembaran kerja yang aktif sebagai fail PDF dengan kod VBA


Anda boleh menjalankan kod VBA berikut untuk menyimpan lembaran kerja yang aktif sebagai fail PDF dengan mengklik pada Butang Perintah. Sila buat seperti berikut.

1. Pertama, anda perlu membuat folder bernama PDF untuk menyimpan fail PDF ditukar baru anda. Di sini saya buat folder ini di cakera setempat saya (C :).

2. Sila masukkan Button Perintah dengan mengklik Pemaju > Memasukkan > Butang Perintah (Kawalan ActiveX). Lihat tangkapan skrin:

2. Kemudian lukis Button Command ke dalam lembaran kerja yang anda perlukan untuk menambah baris baru, klik kanan Command Button dan klik Hartanah dari menu klik kanan.

3. Di dalam Hartanah kotak dialog, masukkan teks yang dipaparkan Button Perintah ke dalam Caption kotak di bawah Dikategorikan tab, dan kemudian tutup kotak dialog.

Anda boleh melihat teks Perintah Button yang dipaparkan ditukar seperti di bawah skrin yang ditunjukkan.

4. Klik kanan butang Perintah lagi, dan kemudian klik Lihat Kod dari menu klik kanan.

5. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi tetingkap, sila ganti kod asal dalam tetingkap Kod dengan kod VBA yang berikut.

Kod VBA: Butang Perintah untuk menyimpan lembaran 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

Nota: Dalam kod, CommandButton1 adalah nama Butang Perintah yang akan anda gunakan untuk menyimpan lembaran aktif sebagai fail PDF. "C: \ PDF \ Export.pdf" ialah laluan dan nama fail PDF simpanan anda.

6. Tekan butang Alt + Q kunci pada masa yang sama untuk menutup Microsoft Visual Basic untuk Aplikasi tingkap. Kemudian matikan Mod Reka Bentuk di bawah Pemaju tab.

Sekarang, klik pada Butang Perintah, lembaran kerja yang aktif akan disimpan sebagai fail PDF bernama Eksport dan terletak di lokasi yang ditentukan.


Simpan pelbagai sel terpilih sebagai fail PDF dengan Kutools untuk Excel

Jika anda hanya mahu menyimpan pelbagai sel terpilih sebagai fail PDF, anda boleh mencuba Julat Eksport ke Fail utiliti Kutools untuk Excel. Sila buat seperti berikut.

1. Pilih julat yang anda perlukan untuk disimpan sebagai fail PDF, kemudian klik Enterprise > Import / Eksport > Julat Eksport ke Fail. Lihat tangkapan skrin:

2. Di dalam Julat Eksport ke Fail kotak dialog, anda perlu:

2.1 Pilih PDF pilihan dalam seksyen format Fail;

2.2 Tentukan folder untuk menyimpan fail PDF anda dalam Simpan arah seksyen;

2.3 Klik pada OK butang.

2.4 Namakan fail PDF anda dalam Rentang Eksport kedua ke kotak dialog Fail, kemudian klik OK butang. Lihat tangkapan skrin:

Nota: Anda boleh menyemak mana-mana format Pemeliharaan, Mempertahankan ketinggian baris serta lajur lajur Memelihara dalam bahagian pilihan Buku kerja yang anda perlukan. Dan anda boleh membuka fail PDF yang dieksport secara automatik dengan menyemak Buka fail selepas mengeksport kotak.

Kini julat yang dipilih disimpan sebagai fail PDF.

Petua.Jika anda ingin mendapatkan percubaan percuma utiliti ini, sila pergi ke muat turun perisian percuma pertama, dan kemudian pergi untuk memohon operasi mengikut langkah di atas.


Simpan setiap lembaran kerja sebagai fail PDF individu buku kerja aktif dengan Kutools untuk Excel

Anda boleh menggunakan Buku Kerja Split utiliti Kutools untuk Excel untuk menyelamatkan setiap lembaran kerja dalam buku kerja aktif sebagai fail PDF individu dengan mudah.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

1. Dalam buku kerja, anda perlu menyimpan setiap lembaran kerja sebagai fail PDF individu, kemudian klik Enterprise > Buku kerja > Buku Kerja Split. Lihat tangkapan skrin:

2. Di dalam Buku Kerja Split kotak dialog, anda boleh melihat semua lembaran kerja disenaraikan di dalam, sila pilih PDF (* .pdf) Pilihan dari Simpan sebagai jenis senarai juntai bawah, dan kemudian klik Split butang. Dan dalam bermunculan Semak imbas Untuk Folder kotak dialog, nyatakan folder di mana anda ingin menyimpan fail PDF, dan kemudian klik OK butang. Lihat tangkapan skrin:

Kemudian semua lembaran kerja dalam buku kerja aktif disimpan sebagai fail PDF individu dengan serta-merta.

Petua.Jika anda ingin mendapatkan percubaan percuma utiliti ini, sila pergi ke muat turun perisian percuma pertama, dan kemudian pergi untuk memohon operasi mengikut langkah di atas.


Demo: Simpan pilihan atau setiap lembaran kerja sebagai PDF dengan Kutools untuk Excel

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 60. Muat turun percubaan percuma sekarang!


Related articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    atul tailor · 18 days ago
    plz paste coding for save as pdf button in microsoft excel
  • To post as a guest, your comment is unpublished.
    Nzee · 6 months ago
    IT SHOWS Run-Time error '1004'
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi Nzee,
      I need to know your Excel version. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Randy · 10 months ago
    I can convert my files to PDF now with a command button, but can I also get that same function to allow a different name to each file; based on an existed number structure?
  • To post as a guest, your comment is unpublished.
    Jo Colenso · 1 years ago
    I have a similar request I want the file to be named the same as a particular cell in the tab , IE: G19 ( This is the invoice number and I want the file to save as PDF with that name) ? . I have managed to get the export.pdf working but this isn't going to work on multiple saves.Any thoughts thanks
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      The following VBA code can help you solve the problem. Please select cell G19 in the popping up Kutoos for Excel dialog box after running the code. Thank you for your comment.

      Private Sub CommandButton1_Click()
      Dim xRg As Range
      Dim xName As String
      On Error Resume Next
      Application.ScreenUpdating = False
      Set xRg = Application.InputBox("Select the cell you will name the PDF with the cell value:", "Kutools for Excel", Selection.Address, , , , , 8)
      If xRg Is Nothing Then Exit Sub
      xName = xRg(1).Value
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:="C:\PDF\" & xName & ".pdf", _
      OpenAfterPublish:=False
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Ian · 2 years ago
    Hi,
    How would one allow the user to enter the file name as opposed to "Export.pdf"?
    Thanks,
    Ian
    • To post as a guest, your comment is unpublished.
      Mayur · 1 years ago
      Sub SaveAsPDF()
      Application.Screen Updating = False
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=Application.InputBox("Enter File Name")

      strExcelPath = "H:\My Documents"

      Application.ScreenUpdating = True
      End Sub