Membuat Function Untuk Mengekspor Record Dari Microsoft Access Ke Microsoft Excel

AstroDigi.com | Kamis, 9 Mar 2017 | Salah satu keunggulan Microsoft Excel dibandingkan dengan Microsoft Access adalah kemudahannya dalam membuat "custom spreadsheet". Dengan Microsoft Excel user dapat dengan mudah mengatur sendiri seperti apa nantinya print out dari pekerjaannya.

Dengan Microsoft Excel user dapat dengan mudah mengatur lebar kolom, mengatur ketinggian baris, merubah desain kop laporan, mengedit record, melakukan copy-paste dari record tertentu, dan lain sebagainya. Hal seperti ini yang tidak bisa didapatkan pada Microsoft Access. Untuk itulah maka cara termudah untuk membuat laporan yang fleksibel adalah mengekspor record (data) dari Microsoft Access ke Microsoft Excel.

Berikut ini adalah function untuk melakukan eksport data ke Microsoft Excel, dan sekaligus dilanjutkan dengan membuka file .XLS yang sudah menerima data tersebut. Untuk keperluan ini, user harus menambahkan "Microsoft Excel Object Library" ke "references" (referensi). Sedangkan instruksinya adalah sebagai berikut:

Function trnXLS(tableKu As String, fileKu As String) As Boolean
trnXLS = False
On Error GoTo errtrnXls

fileKu = Application.CurrentProject.Path & "\" & fileKu
DoCmd.TransferSpreadsheet acExport, 8, tableKu, fileKu, False, ""
'--------------
Dim excelKu As Excel.Application
Dim fileNameKu As Excel.Workbook

Set excelKu = CreateObject("Excel.Application")
Set fileNameKu = excelKu.Workbooks.Open(fileKu)
  
excelKu.Visible = True
Set excelKu = Nothing
Set fileNameKu = Nothing

'------------------
trnXLS = True
errtrnXls:
End Function
'----------------------------------------------

Cara penggunaannya adalah:

Call trnXLS(nama_tabel_yang_diekspor, nama_file_excel)

Dengan sebaris instruksi ini saja aplikasi akan dapat melakukan ekspor record dari sebuah tabel ke sebuah sheet dalam file .XLS (file Microsoft Excel).

Selamat mencoba .. have a nice day :-)

www.AstroDigi.com (Nino Guevara Ruwano)

AllBlogToolsFacebook comments for blogger brought to you by AllBlogTools.com , Get Yours?