Hi all,
I have been searching all over to resolve this problem and cannot find any help.
I have creates an Excel Object in VFP to access a Excel file but VFP dose only reads Excel 5.0 format. So I then save the excel file to the new format.
This works well I get a popup which the user has to select "No" for the Excel to save in the required format.
This is the message:
Saving this workbook's VBA project in Excel 5.0/95 file format requires a component that is not currently installed. Do you want to save in the latest Excel format? ...etc
As I said, the answer will be "No" but what parameter would I use to do this.
SCRIPT:
x=GETFILE("xlsm","Select Agent excel file","Select")
oExcel=CREATEOBJECT("Excel.Application")
oExcel.EnableEvents=.f.
oExcel.workbooks.open(x)
SET SAFETY OFF
NewXLS="L:\ExcelToSun\VFP\new.xls"
IF FILE(NewXLS)
DELETE FILE &NewXLS
ENDIF
SET SAFETY OFF
oExcel.WorkBooks(1).SaveAs(NewXLS,39) &&& Save the excel file in a Microsoft Excel 5.0/95 Workbook format
oExcel.quit()
Thanks very much for your help in advance.
I have been searching all over to resolve this problem and cannot find any help.
I have creates an Excel Object in VFP to access a Excel file but VFP dose only reads Excel 5.0 format. So I then save the excel file to the new format.
This works well I get a popup which the user has to select "No" for the Excel to save in the required format.
This is the message:
Saving this workbook's VBA project in Excel 5.0/95 file format requires a component that is not currently installed. Do you want to save in the latest Excel format? ...etc
As I said, the answer will be "No" but what parameter would I use to do this.
SCRIPT:
x=GETFILE("xlsm","Select Agent excel file","Select")
oExcel=CREATEOBJECT("Excel.Application")
oExcel.EnableEvents=.f.
oExcel.workbooks.open(x)
SET SAFETY OFF
NewXLS="L:\ExcelToSun\VFP\new.xls"
IF FILE(NewXLS)
DELETE FILE &NewXLS
ENDIF
SET SAFETY OFF
oExcel.WorkBooks(1).SaveAs(NewXLS,39) &&& Save the excel file in a Microsoft Excel 5.0/95 Workbook format
oExcel.quit()
Thanks very much for your help in advance.