Export to a CSV file

Originally Posted by ramdil

Hi All
Can any one please help me in problem.I want to export details of a access table to a csv file
for that i have written the following code

filepath = "\\accs03-003fs\Databases\Development\ACCFIN_Group_Sales\v2. 0 Development\filename"

DoCmd.TransferText acExportDelim, , "tab_Customers", filepath

but after executing the above command i am getting "Cannot update database or Object is read only".Why is it so..

Originally Posted by cori25

Function test()
Dim db As dao.Database
Set db = CurrentDb

Dim strTemp As String

strTemp = "C:\Database\test.csv"


DoCmd.OutputTo acOutputTable, "TableName", acFormatXLS, strTemp, 1

'Save the workbook
Dim strSavePath As String
Dim strFileNm As String
strSavePath = "C:\Database\Example.xls"

xlApp.ActiveWorkbook.SaveAs strSavePath

'Close Excel
xlApp.Quit
Set xlApp = Nothing


End Function

Originally Posted by cori25

Function test()
Dim db As dao.Database
Set db = CurrentDb
...
'Close Excel
xlApp.Quit
Set xlApp = Nothing

End Function