Export hasil query data di access 2007 ke file excel 2013 dengan menggunakan modul

Kali ini saya akan membahas tentang bagaimana cara mengeksport data dari hasil query pada access 2007 menjadi file excel 2013.
Setelah mencari dimana-mana akhirnya ketemu juga caranya, adappun langkah - langkahnya adalah sebagai berikut :
1. Buatlah button pada form access dengan nama : ExportExcel
2. Buat event on click pada button tersebut :
   
Private Sub ExportExcel_Click()

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "vwJualDetailHarian", "D:\Mail to\SparePart\" & Format(Date, "yyyyMMdd") & " Historical Spare part out Pool3" & ".xls", True

End Sub

yang mempunyai makna : export lah data dari query : vwJualDetailHarian ke dalam folder : D:\Mail to\SparePart\ dengan menggunakan nama diawali tanggal hari ini ( tahun_bulan_hari) diakhiri dengan Historical Spare part out Pool3 dengan format .xls

catatan :
a. Kita dapat mengexport data sesuai hasil olahan query yang kita inginkan, dengan sedikit memberikan perintah misalnya kita ingin mengexport data pada tanggal - tanggal tertentu dengan terlebih dulu memberikan parameter pada query kita vwJualDetailHarian ( misal : [Tanggal Diminta (tgl/bln)]  ) sehingga event yang ada menjadi :

Private Sub ExportExcel_Click()

DoCmd.OpenQuery "vwJualDetailHarian"
DoCmd.Close acQuery, "vwJualDetailHarian"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "vwJualDetailHarian", "D:\Mail to\SparePart\" & Format(Date, "yyyyMMdd") & " Historical Spare part out Pool3" & ".xls", True

End Sub

b. Yang masih saya tidak ketahui bahwa kenapa saat kita klik button tersebut muncul permintaan mengisikan tanggal yang diminta sebanyak 2 kali ??. --> ketik aja tanggal yang sama. ini bisa diterapkan sesuai dengan parameter yang kita inginkan.

b. Yang perlu di ingat bahwa bila akan membuka file tersebut muncul peringatan bahwa file akan dibuka dengan format yang lain, klik aja yes.

Demikian solusi yang telah saya dapatkan hari ini, semoga membantu.