KODE MACRO EXPORT FILE EXCEL KE EXCEL

KODE MACRO EXPORT FILE EXCEL KE EXCEL
Anda juga dapat mengunduh file contoh Export File Excel Ke Excel Dalam Satu Folder Aplikasi

Ada banyak Cara Mengexport File Excel Ke Excel dengan Kode Macro. Sebagai contoh Anda ingin mengexport data yang ada didalam aplikasi kedalam satu folder aplikasi. Seperti yang sudah kami utarakan di artikel sebelumnya Kode Macro Cara Import File Excel Ke Excel.

Penjelasan Mendalam

Data yang ada didalam aplikasi misalnya data siswa (sheet1) di export ke workbook baru dan workbook baru itu disimpan didalam satu folder yang mana folder itu akan terbuat secara otomatis ketika klik tombol export, nah disitulah tempat exportnya data siswa yang dimaksud. Export data ini dilakukan melalui Userform.

Kami selalu berusaha untuk memberikan yang terbaik dan original untuk Anda, sehingga ini akan sangat detail dan singkat. Untuk memperoleh hasil yang maksimal silahkan luangkan waktu sepuluh menit untuk membaca penjelasan dibawah ini secara cermat.

Cara Export Data Excel Ke Excel Dalam Satu Folder Aplikasi

Buka Microsoft Excel
Buatlah data sembarang di Sheet1 > Range A1:D10
Tekan Alt+F11 maka Anda disajikan dengan jendela Visial Basic for Application (VBA)
Buatlah satu UserForm dan dua CammandButton
Ganti tulisan CommandButton1 menjadi Export
Ganti tulisan CommandButton2 menjadi Kembali
Klik dua kali CommandButton dan salin Kode Macro dibawah ini

Private Sub CommandButton1_Click()
On Error Resume Next
Dim ws As Worksheet, wb As Workbook
Dim FPath As String
Dim kls As String
Worksheets("Sheet1").Activate
Set ws = ActiveSheet
Set wb = Workbooks.Add(xlWBATWorksheet)
FPath = ThisWorkbook.Path
ws.Range("A1:D10").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("A1").Copy
wb.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll 'Formats
wb.Sheets(1).Name = "export"
On Error Resume Next
Application.CutCopyMode = False
Set ws = Worksheets("Sheet1")
ActiveWorkbook.SaveAs Filename:=FPath & "\File Export\" & "DataAnda" & kls & " - " & Format(Date, "ddmmyy") & Format(Time, "hmm") & ".xlsx"
MsgBox "Export Data Sudah Selesai", vbInformation, "sistem aplikasi"
ActiveWorkbook.Close savechanges:=True
On Error GoTo 0
End Sub

Private Sub UserForm_Activate()
On Error Resume Next
'Membuat Folder "data"
MkDir ThisWorkbook.Path & "\" & "File Export" & "\"
On Error GoTo 0
End Sub

Setelah itu klik dua kali CommandButton2 dan salin Kode Macro dibawah ini

pesan = MsgBox"apakah Anda ingin keluar dari aplikasi ?",vbyesNo, "sistem aplikasi")
Select Case pesan
Case vbYes
Unload Me
Application.Visible = False
Applicatin.Quit
Case vbNo
Unload Me
End Select

Simpan file dan taruh di Data D pada komputer Anda
Setelah tersimpan sekarang silahkan mencobanya dengan cara tekan F5 (RUN)

Apabila Anda melakukan langkah-langkah diatas dengan benar dan penempatan kode dengan benar maka sistem aplikasi akan berjalan dengan baik. Semoga Anda suka dan terbantu dengan artikel ini, dan apabila Anda merasa bahwa artikel ini bagus silahkan di bagikan ke sosial media yang Anda punya dengan tujuan saling berbagi ilmu pengetahuan.

"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"

Jabat Erat@Hak Cipta 2015