Terdapat banyak Metode Mengexport File Excel Ke Excel dengan Kode Macro. Selaku contoh Kamu mau mengexport informasi yang terdapat didalam aplikasi kedalam satu folder aplikasi.
Informasi yang terdapat didalam aplikasi misalnya informasi siswa( sheet1) di export ke workbook baru serta workbook baru itu ditaruh didalam satu folder yang mana folder itu hendak dibuat secara otomatis kala klik tombol export, nah disitulah tempat exportnya informasi siswa yang diartikan. Export informasi ini dicoba lewat Userform.
Kami senantiasa berupaya buat membagikan yang terbaik serta original buat Kamu, sehingga ini hendak sangat perinci serta pendek. Buat mendapatkan hasil yang optimal silahkan sempatkan waktu 10 menit buat membaca uraian dibawah ini secara teliti.
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)
KODE MACRO EXPORT FILE EXCEL KE EXCEL
Anda juga dapat mengunduh file contoh Export File Excel Ke Excel Dalam Satu Folder Aplikasi
إرسال تعليق