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
     Hak Cipta

    Post a Comment for "KODE MACRO EXPORT FILE EXCEL KE EXCEL"