Cara Export Excel ke PDF menggunakan VBA

Di artikel sebelumnya sudah dijelaskan tentang cara Membuat File PDF di microsoft office dan juga dijelaskan tentang Cara Export dari Excel ke Notepad hal ini sebenarnya berkaitan dengan Cara Export Excel ke PDF menggunakan VBA. Komponen yang diperlukan sama hanya tambahan pdf viewers saja. Pastikan pada PC kamu sudah terinstall PDF Reader seperti Adobe PDF atau Foxit misalnya.. Jika belum kamu bisa install dulu ya..
Setelah PC kamu terinstall PDF Reader kamu bisa buka Excel kamu lalu buka jendela VBA dengan Alt+F11 atau yang menggunakan Laptop dengan fitur fn bisa tekan fn+Alt+F11. Lalu insert 1 Modul dan masukkna kode berikut

Sub BuatFolder()
Dim Path As String
    Dim Folder As String
    Dim Answer As VbMsgBoxResult

    Path = ThisWorkbook.Path & "\Nama Folder"
    Folder = Dir(Path, vbDirectory)
    If Folder = vbNullString Then
        VBA.FileSystem.MkDir (Path)
    Else
    End If
End sub

Kode diatas digunakan untuk membuat folder sebagai media hasil export PDF, pada "\Nama Folder" bisa kamu ganti sesuka kamu tapi harus sama dengan Path di kode ExportPDF. Setelah itu kamu masukkan kode berikut

Sub ExportPDF()
    On Error Resume Next
    Dim szPath As String
    Dim szName As String
    
    Sheets(Array("Sheet1")).Select
    szName = "Nama File PDF"
    szPath = ThisWorkbook.Path & "\Folder PDF"
    
    ChDir szPath
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        szPath & "\" & szName & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Shell "explorer.exe """ & szPath & """", vbNormalFocus
End Sub

Lalu kamu simpan dan coba jalankan

✕

Cara Export Excel ke PDF menggunakan VBA

Harga : *Free Ongkir, dikirim melalui Whatsapp

BCA - 3220 341 185 BRI - 508 601 032 577 535 BUKOPIN - 5101 001 476 DANA OVO Paypal

Pesan via whatsapp Pesan via Email

Tags

Belajar Excel

Excel Trick

VBA

Previous article

Next Post

Next article

Previous Post