eli;

Try the following sub. You will need to modify the path
and file name for yours.

Sub try()

ChDir "C:\Data"
ActiveWorkbook.SaveAs Filename:="C:\Data\Book1.csv",
FileFormat:=xlCSV, _
CreateBackup:=False
End Sub

Thanks

Greg



-----Original Message-----
I am using the following code from a VB app to create an
excel object, populate some information and then save the
excel file.
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.workbooks.Add
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = "EntryNumber"
oSheet.Range("B1").Value = "CheckNumber"
oSheet.Range("C1").Value = "CheckAmount"
oSheet.Range("D1").Value = "InvoiceNumber"
oSheet.Range("E1").Value = "invoicetype"
oBook.Saveas rptpath & "\cashreceipts.xls"
oExcel.quit
although not displayed here I am populating the worksheet
with the results of an ADODB recordset
using the copyfromrecordset method.
This works fine but I actually want to save the file in
CSV format.
i saw the .fileformat property in excel but can't seem to
get it to work properly.
Any suggestions on how to get my existing code to save
the file as a csv would be greatly appreciated.
Thanks in advance.
.