-------- Forwarded Message --------
Subject: [AstroDigi] Membuat Function Untuk Mengekspor Record Dari
Microsoft Access Ke Microsoft Excel
Date: Wed, 08 Mar 2017 22:21:23 +0000
www.AstroDigi.com <http://www.astrodigi.com/> AstroDigi.com
<http://www.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 <http://www.astrodigi.com/> (Nino Guevara Ruwano)
--
Posted By Blogger to AstroDigi
<http://www.astrodigi.com/2017/03/membuat-function-untuk-mengekspor.html>
at 3/09/2017 02:00:00 AM
