Export table atau query data menggunakan transfer spread sheet

Para programmer yang handal2 sekalian, di sini saya akan kembali posting bagaimana caranya export table atau query data mengguakan perintah transfer spreadsheet yang sudah ada di Microsoft access database.

di sini akan dilengkapi dengan scripting runtime, tujuannya untuk menentukan target penyimpanan file export dengan membuat folder baru.

Sub Export_DataA()
On Error Resume Next
Dim fold
Dim filepath As String
Set fold = CreateObject("Scripting.FileSystemObject")
fold.createfolder "C:\My Database"
fold.createfolder "C:\My Database\My Export Data"
filepath = "C:\My Database\My Export Data\"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table_Roster" & Format(Date, "mmmm yyyy"), filepath & "my data.xls", 1

End Sub
Ok, maka data akan tersimpan di C:\My Database\My Export Data\My Data.xls

Salam...