Export Data Menjadi File (WorkBook) Baru Menggunakan Macro VBA

 Aplikasi Excelku. Hallo Sobat Excel semuanya, selamat datang kembali di blog sederhana Saya ini, masih mengenai Macro VBA Excel pada kesempatan kali ini Saya akan berbagi sebuah tutorial sederhana mengenai Export Data Menjadi File (WorkBook) Baru Menggunakan Macro VBA. Oh iya, sebelumnya Saya sudah memposting artikel mengenai Mengambil (Import) Data Dari Workbook Lain Menggunakan Macro VBA Excel, dan kali ini adalah kebalikannya ya,..

Export maupun Import sangatlah penting, apalagi jika kita merancang/membuat aplikasi berbasis VBA Excel, dengan adanya fitur export maupun import ini pastinya akan menjadikan lebih mudah untuk pengguna (user) dalam menjalankan/menggunakan aplikasi kita tersebut. Tutorial kali ini masih Saya adaptasi dari artikel web mtsbmtumbrasanom.id yang ada di link ini : https://www.mtsbmtumbrasanom.id/2017/03/kode-macro-export-file-excel-ke-excel.html. Disini Saya sedikit memodifikasi apa yang sudah ada di artikel tersebut. 

Pada contoh ini Saya sudah memiliki data siswa yang Saya tempatkan di sheet1, data inilah yang nantinya akan Saya export menjadi file/workBook baru. Dan berikut screenshot dari data tersebut:

Baiklah, langsung saja kita praktekan mengenai Cara Export Data Menjadi File (WorkBook) Baru Menggunakan Macro VBA, dan berikut langkah-langkahnya:

1. Membuat Range Dinamis

Range Dinamis nantinya akan mempermudah kita dalam memanggil range yang akan kita copy/export dan cara membuat range dinamis adalah sebagai berikut:

a. Klik pada menu formulas kemudian klik pada Name Manager:

b. Selanjutnya klik pada pilihan New 

c. Berikutnya tuliskan BackUp_Data pada baris Name dan tuliskan kode ini didalam baris Refers to :

=OFFSET(Sheet1!$A$1;0;0;COUNTA(Sheet1!$H:$H);8), perhatikan gambar di bawah ini:

Jangan lupa akhiri dengan klik OK,.. 😅

2. Membuat/menyisipkan Userform

Silahkan Sobat Excel buka halaman/lembar kerja Visual Basic dari aplikasi Excel kita:

a. Klik pada menu insert kemudian klik Userform, untuk ukuran atau pun desainnya sesuaikan;
b. Sisipkan dua buah CommandButton, kemudian ganti nama CommandButton1 menjadi CmdExport, ubah captionnya menjadi Export kemudian ubah nama CommandButton2 menjadi CmdCancel dan captionnya menjadi Batal.

Hasil akhir:

Untuk tahap pembuatan Userform selesai.

3. Menyisipkan kode/script macro 

Tahap kedua adalah menyisipkan kode/script macro kedalam Userform, dan berikut kode/script Macro tersebut:

Copas kode/script di bawah ini kedalam Userform:

Private Sub UserForm_Activate()

'https://aplikasiexcelku.blogspot.com

On Error Resume Next

'Membuat Folder "data"

MkDir ThisWorkbook.PATH & "\" & "Data_BackUp" & "\"

On Error GoTo 0

End Sub

Private Sub CmdEkspor_Click()

On Error Resume Next

'https://aplikasiexcelku.blogspot.com

Dim ws As Worksheet, wb As Workbook

Dim FPath As String

Set ws = Sheet1

Set wb = Workbooks.Add(xlWBATWorksheet)

FPath = ThisWorkbook.PATH

ws.Range("BackUp_Data").Copyx

wb.Sheets(1).Range("a1").PasteSpecial Paste:=xlPasteColumnWidths

wb.Sheets(1).Range("a1").PasteSpecial Paste:=xlPasteValues

wb.Sheets(1).Range("a1").PasteSpecial Paste:=xlPasteFormats

ws.Range("BackUp_Data").Copy

wb.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll 'Formats

wb.Sheets(1).Name = "BackUp"

On Error Resume Next

Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:=FPath & "\Data_BackUp\" & "BackUp" & Format(Date, "ddmmyyyy") & Format(time, "hmm") & ".xlsx"

MsgBox "Ekspor Data Selesai!!!", vbInformation, "sistem aplikasi"

ActiveWorkbook.Close savechanges:=True

On Error GoTo 0

'https://aplikasiexcelku.blogspot.com

End Sub

Private Sub CmdCancel_Click()

If MsgBox("KONFIRMASI :" & Chr(13) & _

    "Yakin Ingin Membatalkan Export Data Siswa???", vbExclamation + vbYesNo, " Aplikasi Excelku") = vbYes Then

'https://aplikasiexcelku.blogspot.com

        Unload Me 

        Else        

        Exit Sub

End If

End Sub

Penjelasan:

Nantinya file hasil export akan disimpan di sebuah folder yang bernama Data_BackUp, dimana folder tersebut berada satu tempat/folder/direktori kita menyimpan aplikasi utama kita, dan nama hasil dari export nantinya adalah BakUp+Tanggal+Waktu pada saat kita melakukan export data. Kemudian teks yang ditulis tebal (bold) merupakan range dinamis yang sudah kita buat sebelumnya.

Silahkan jalankan userform dengan cara tekan tombol F5 pada keyboard kemudian jalankan, jika semua langkah-langkah di atas dilakukan dengan benar, maka hasilnya akan menjadi seperti pada video di bawah ini:

Progress---->>

Demikian artikel mengenai Export Data Menjadi File (WorkBook) Baru Menggunakan Macro VBA, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semua, terimakasih, dan Salam Belajar!!!.

Share :