Saturday, January 9, 2016

Export Database Dari UserForm VBA Excel

Expor Data dari Database ke WorkBook Baru Excel seperti terlihat pada gambar format gif dibawah..!! Export Data sangatlah penting untuk mengcopy data ke workbook baru agar database aplikasi tidak diganggu agar terhindar dari error dan sebagainya. Bila ingin mengambil data sesuai dengan database pada aplikasi kita dapat membuat tombol Export Data. Untuk mengexport data dari laporan, kode yang akan saya jadikan juga bisa, Tinggal anda memodifikasikannya sendiri letak sheet dan range yang akan di export datanya. Ngak susah-susah amatlah...!!! Belajar otodidak mainkan logikamu.. Copy.. Modifikasi..Paste...!!!



Langkah-langkah membuat Tombol Export Database dari UserForm :
  • Download Sampel File Export Data
  • Buka Visual Basic selanjutnya klik kanan CommandButton1 pilih View Code tempatkan kode dibawah ini pada CommanButton1
Private Sub CommandButton1_Click()
On Error Resume Next
Dim ws As Worksheet, wb As Workbook
Dim FPath As String
Dim kls As String
kls = Worksheets("DATA").Range("RNAMADATA").Value
Worksheets("DATA").Activate
Set ws = ActiveSheet
Set wb = Workbooks.Add(xlWBATWorksheet)
FPath = ThisWorkbook.Path
ws.Range("A1:H1").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("A2:G100").Copy
wb.Sheets(1).Range("A2").PasteSpecial Paste:=xlPasteAll 'Formats
wb.Sheets(1).Name = "DATABASE"
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=FPath & "\" & "DATABASE " & kls & " - " & Format(Date, "ddmmyy") & ".xlsx"
MsgBox "Sukses..!!, Export Database selesai", vbInformation, "ExportData"
ActiveWorkbook.Close savechanges:=True
On Error GoTo 0
End Sub
  • Selesai..!!! semoga dapat dimodifikasi sendiri sebagaimana kemauan dan kebutuhan masing-masing.
Demikian yang dapat di tulis tentang kode atau cara membuat tombol Export Database Dari UserForm VBA Excel. Semoga dapat dikembangkan dengan sesuai dengan keinginan dan kebutuhan masing-masing. Semoga posting ini bisa menjadi referensi bagi mereka yang mau belajar Vba Excel secara otodidak seperti Admin blog ini. Bila Posting ini dirasakan ada manfaatnya, mohon dapat dibagikan  dengan cara mengklik tombol share media sosial yang tersedia dibawah posting blog. bila ingin menyampaikan masukan kepada admin blog, maka dapat dituliskan pada kolom komentar.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon