Bagaimana Mengubah atau Mengeksport Fail Excel ke dalam PDF?
Berikut adalah contoh mengeksport fail excel ke dalam PDF.
Contoh # 1
Simpan Spreadsheet sebagai Fail PDF!
Contohnya, lihat data atau carta di bawah, yang menunjukkan hierarki jabatan dalam organisasi.
Kita hanya boleh memilih Save As dari pilihan File dan memilih Save as type sebagai "PDF."
Ini akan tetap menjadi fail sebagai PDF tetapi lihat, bagaimana ia kelihatan semasa anda membukanya.
Dalam PDF, ia terdapat dalam dua helaian yang berbeza, yang sama sekali tidak masuk akal. Sekiranya anda hanya menggunakan Save As dan memilih jenis fail sebagai PDF, inilah yang berlaku apabila kandungan fail atau spreadsheet lebih daripada bidang yang sesuai untuk satu helaian PDF.
Untuk ini, apa yang perlu kita lakukan adalah memilih kawasan kandungan yang ingin kita simpan sebagai fail PDF. Kemudian tekan Ctrl + P untuk membuka di bawah tetingkap pratonton cetak.
Di bawah Tetapan, pilih "Lembar yang Sesuai di Satu Halaman."
Sekarang klik Save As di tetingkap yang sama dan pilih PDF sebagai jenis fail.
Ini akan memasukkan keseluruhan data ke dalam satu halaman PDF.
Ini adalah teknik biasa yang selalu kita semua gunakan.
Namun, bagaimana jika butang dapat menghasilkan fail PDF spreadsheet excel ??? Ya, ini dapat dilakukan dengan menggunakan Pengekodan VBA; ikuti langkah-langkah di bawah untuk membuat kod VBA untuk menukar lembaran excel sebagai PDF.
Contoh # 2 - Menggunakan Kod VBA
Langkah-langkah untuk menukar lembaran excel ke PDF menggunakan VBA Code.
Langkah 1: Nyatakan pemboleh ubah dalam VBA, seperti gambar di bawah.
Langkah 2: Sekarang tetapkan rujukan Buku Kerja dan Lembaran Kerja ke pemboleh ubah "Ws" & "Wb."
Langkah 3: Untuk memberi nama pada fail, kita perlu mencatat waktu semasa, iaitu, pada masa menjalankan kod. Tetapkan masa ke pemboleh ubah "SaveTime."
Langkah 4: Sekarang, kita perlu menyimpan fail PDF ke lokasi sebenar buku kerja yang sedang kita jalankan. Tetapkan nilai ini ke pemboleh ubah "Save Path."
Langkah 5: Sekarang, kita perlu menggabungkan nama fail dan masa untuk membuat nama fail yang unik.
Langkah 6: Kita perlu memberi pilihan memilih jalan tujuan untuk menyimpan fail.
Langkah 7: Sekarang, kita perlu membuat fail PDF.
Sekiranya terdapat sebarang kesilapan, kami juga harus menangani perkara ini. Jadi kod di bawah akan melakukan perkara yang sama.
Berikut adalah kod lengkap untuk anda.
Kod:
Sub Excel_To_PDF () 'Declare Variables Dim Ws As Worksheet Dim Wb As Workbook Dim SaveTime As String Dim SaveName As String Dim SavePath As String Dim FileName As String Dim FullPath As String Dim SelectFolder As Variant' Tetapkan Variabel Pada Kesalahan GoTo EH Set Wb = ActiveWorkbook Tetapkan Ws = ActiveSheet 'Rekod Masa Semasa SaveTime = Format (Sekarang (), "yyyy mm dd _ hhmm")' Rekod Alamat Buku Kerja Folder Laluan Alamat SavePath = Wb.Path If SavePath = "" Kemudian SavePath = Application.DefaultFilePath Tamat Jika SavePath = SavePath & " " 'Beri Nama Fail SaveName = "PDF" FileName = SaveName & "_" & SaveTime & ".pdf"' Instruct Where to save FullPath = SavePath & FileName 'Dayakan pemilih folder untuk memilih tempat yang akan disimpan fail SelectFolder = Aplikasi.GetSaveAsFilename _ (InitialFileName: = FullPath, _ FileFilter: = "Fail PDF (* .pdf), * .pdf", _ Judul: = "Pilih Folder dan FileName untuk disimpan") 'Buat Fail PDF Jika SelectFolder "False" Kemudian Ws .ExportAsFixedFormat _ Type: = xlTypePDF, _ FileName: = SelectFolder, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = False, _ OpenAfterPublish: = False End If exitHandler: ExitBukan buat fail PDF "Resume exitHandler End Sub= False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: MsgBox "Tidak Mampu membuat fail PDF" Resume exitHandler End Sub= False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: MsgBox "Tidak Mampu membuat fail PDF" Resume exitHandler End Sub
Salin kod ini dan tampal di modul Visual Basic Editor untuk membuka editor asas visual tekan alt = "" + F11. Apabila kita menjalankan kod ini dengan menekan kekunci F5, kita mendapat pilihan berikut.
Anda dapat melihat bahawa fail excel anda kini ditukar menjadi PDF.
Perkara yang Perlu Diingat
- Sekiranya data tidak cukup sesuai untuk satu halaman, maka PDF akan mendorong kandungan tambahan ke helaian berikutnya.
- Kod ini akan membuat keseluruhan kandungan lembaran kerja sebagai fail PDF.
- Sebaik sahaja anda menyalin kod makro, anda perlu menyimpan buku kerja sebagai Buku Kerja yang Diaktifkan Makro.
