save excel to csv problem

[borsker]

i am using this code to save an excel document to a csv.

loExcel = Createobject([Excel.application])
With loExcel
   STORE 'mcInFile = "'+GETFILE('XLS')+'"' TO excelfile
   &excelfile
   loExcel.workbooks.Open(mcInFile)
   loSheet = .activesheet
   With loSheet
      .Range([A1]).Select
   Endwith
ENDWITH
loExcel.Workbooks(1).SaveAs('MyCSV.csv',xlCSV)
loExcel.workbooks.CLOSE
loExcel.Quit
Release loExcel

the problem is the xlCSV part.

loExcel.Workbooks(1).SaveAs('MyCSV.csv',xlCSV)

vfp errors and says "Variable 'XLCSV' is not found. any ideas?

 

[Mike Lewis]

Borsker,

Very simple. xlCSV is not a variable in your VFP code. It is a constant, defined within Excel.

If you change it to 6, it should work fine.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[borsker]

I've got the save thing down now, but how do I get rid of the pesky save problem that keeps coming up when i run it.
I am erasing all instances of the file then saving, but it still wants to give me the save warning before i close the excel list. Here is the code.

***************************************************************************************
************************************************************  excel sheet
***************************************************************************************
loExcel = Createobject([Excel.application])
With loExcel
    mcInFile = "c:\temp_data\MyExcel.xls"
    loExcel.workbooks.Open(mcInFile)
    loExcel.visible=.F.
    loSheet = .activesheet
    With loSheet
    	.Range([A1]).Select
      Endwith
ENDWITH
erase Mylist.csv
mcOutDBF = "c:\temp_data\Mylist.csv"
loSheet.SAVEas (mcOutDBF,6)

* --- Close the Worksheet ---
loExcel.workbooks.CLOSE
loExcel.Quit
Release loExcel
Close All
*****************************
*****************************

The save question keeps coming up right before the workbook closes. And it will ask me to save the file i just saved, just like in excel. Any ideas?

 

[borsker]

Sorry about that, I found it.

loExcel.DisplayAlerts = .f.

i knew it was somthing simple, i just could not find it.