Bagaimana cara mengubah atau mengekspor file Excel menjadi PDF?
Di bawah ini adalah contoh mengekspor file excel ke PDF.
Contoh 1
Simpan Spreadsheet sebagai File PDF!
Misalnya, lihat data atau bagan di bawah ini, yang memperlihatkan hierarki departemen dalam sebuah organisasi.
Kita tinggal memilih Save As dari opsi File dan memilih Save as type as "PDF".
Ini akan tetap file sebagai PDF tetapi lihat, tampilannya saat Anda membukanya.
Dalam PDF, itu datang dalam dua lembar berbeda, yang sama sekali tidak masuk akal. Jika Anda hanya menggunakan Save As dan memilih jenis file sebagai PDF, inilah yang terjadi ketika konten file atau spreadsheet lebih dari area pas dari satu lembar PDF.
Untuk ini, yang perlu kita lakukan adalah memilih area konten yang ingin kita simpan sebagai file PDF. Kemudian tekan Ctrl + P untuk membuka di bawah jendela pratinjau cetak.
Di bawah Pengaturan, pilih "Sesuaikan Lembar di Satu Halaman".
Sekarang klik Save As di jendela yang sama dan pilih PDF sebagai jenis file.
Ini akan memasukkan seluruh data ke dalam satu halaman PDF.
Ini adalah teknik umum yang kita semua gunakan secara teratur.
Namun, bagaimana jika sebuah tombol dapat menghasilkan file PDF dari spreadsheet excel ??? Ya, ini dapat dilakukan dengan menggunakan VBA Coding; ikuti langkah-langkah di bawah ini untuk membuat kode VBA untuk mengubah lembar excel menjadi PDF.
Contoh # 2 - Menggunakan Kode VBA
Langkah-langkah untuk mengonversi lembar excel ke PDF menggunakan Kode VBA.
Langkah 1: Deklarasikan variabel di VBA, seperti yang ditunjukkan di bawah ini.
Langkah 2: Sekarang setel referensi Buku Kerja dan Lembar Kerja ke variabel "Ws" & "Wb."
Langkah 3: Untuk memberi nama pada file, kita perlu mencatat waktu saat ini, yaitu waktu pada saat menjalankan kode. Setel waktu ke variabel "SaveTime".
Langkah 4: Sekarang, kita perlu menyimpan file PDF ke lokasi yang tepat dari buku kerja yang sedang kita kerjakan. Tetapkan nilai ini ke variabel "Simpan Jalur".
Langkah 5: Sekarang, kita perlu menggabungkan nama file dan waktu untuk membuat nama file yang unik.
Langkah 6: Kita perlu memberikan opsi untuk memilih jalur tujuan untuk menyimpan file.
Langkah 7: Sekarang, kita perlu membuat file PDF.
Jika ada kesalahan yang datang, kami perlu menangani ini juga. Jadi kode di bawah ini akan melakukan hal yang sama.
Di bawah ini adalah kode lengkap untuk Anda.
Kode:
Sub Excel_To_PDF () 'Deklarasikan Variabel 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' Set Variables On Error GoTo EH Set Wb = ActiveWorkbook Set Ws = ActiveSheet 'Rekam Waktu Saat Ini SaveTime = Format (Sekarang (), "yyyy mm dd _ hhmm")' Rekam Alamat Jalur Folder Buku Kerja Saat Ini SavePath = Wb.Path Jika SavePath = "" Kemudian SavePath = Application.DefaultFilePath End If SavePath = SavePath & " " 'Beri Nama File SaveName = "PDF" FileName = SaveName & "_" & SaveTime & ".pdf"' Instruct Where to save FullPath = SavePath & FileName 'Aktifkan pemetik folder untuk memilih tempat penyimpanan file SelectFolder = Aplikasi.GetSaveAsFilename _ (InitialFileName: = FullPath, _ FileFilter: = "File PDF (* .pdf), * .pdf", _ Title: = "Pilih Folder dan Nama File yang akan disimpan") 'Buat File PDF Jika SelectFolder "False" Kemudian Ws .ExportAsFixedFormat _ Type: = xlTypePDF, _ FileName: = SelectFolder, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = False, _ OpenAfterPublish: = False End Jika exitHandler: Keluar Sub EH: MsgBox "Not A buat file PDF "Resume exitHandler End Sub= False, _ OpenAfterPublish: = False End Jika exitHandler: Keluar Sub EH: MsgBox "Tidak Mampu membuat file PDF" Lanjutkan exitHandler End Sub= False, _ OpenAfterPublish: = False End Jika exitHandler: Keluar Sub EH: MsgBox "Tidak Mampu membuat file PDF" Lanjutkan exitHandler End Sub
Salin kode ini dan tempelkan di modul Editor Visual Basic untuk membuka editor visual basic tekan alt = "" + F11. Ketika kami menjalankan kode ini dengan menekan tombol F5, kami mendapatkan opsi berikut.
Anda dapat melihat bahwa file excel Anda sekarang diubah menjadi PDF.
Hal-hal untuk diingat
- Jika datanya tidak cukup untuk satu halaman, maka PDF akan mendorong konten tambahan ke lembar berikutnya.
- Kode ini akan membuat seluruh konten lembar kerja sebagai file PDF.
- Setelah Anda menyalin kode makro, Anda perlu menyimpan buku kerja sebagai buku kerja dengan makro aktif.
