Excel saveas question

[Jeff Barnes]

Hi Everybody,

I am trying (without success) to have my app save an excel document as an XMLSpreadsheet.

Does anyone know the correct syntax to do this?

[Enrico Maria Giordano]

Code: Select all  Expand view

#define adOpenForwardOnly 0
#define adOpenKeyset      1
#define adOpenDynamic     2
#define adOpenStatic      3

#define adLockReadOnly        1
#define adLockPessimistic     2
#define adLockOptimistic      3
#define adLockBatchOptimistic 4

#define adPersistXML 1


FUNCTION MAIN()

    LOCAL oRs := CREATEOBJECT( "ADODB.Recordset" )

    FERASE( "MYTEST.XML" )

    oRs:Open( "SELECT * FROM [Sheet name$]", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\xharbour\mytest.xls;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'", adOpenForwardOnly, adLockReadOnly )

    oRs:Save( "E:\XHARBOUR\MYTEST.XML", adPersistXML )

    oRs:Close()

    RETURN NIL

EMG

[Jeff Barnes]

Thanks Enrico, I should have mentioned that I am using OLE to create the excel file.

Do you know how to do it with OLE?

[Enrico Maria Giordano]

Save the Excel file then use my sample to convert it to XML.

EMG

[Jeff Barnes]

Thanks Enrico

[Gale FORd]

#define xlXMLSpreadsheet 46

oBook:SaveAs( cXlsFile, xlXMLSpreadsheet ) // -4143 = Normal

[Enrico Maria Giordano]

This option is not in the docs of my Excel 2000 so I think it works only on a newer version.

EMG

[nageswaragunupudi]

Yes
Works from ver 2003

[hua]

The myriad format of Excel file can really get confusing. Here's an article that might help - http://www.rondebruin.nl/saveas.htm

If for some reason need to know the office version name and it's package equivalent (e.g. Office 2003 version is 11) this wikipedia entry might help