Convert xls to xml using CLIENT_OLE2

 Hi All,

I am using developer suite 10g forms and I want to resave excel file as .xml on client machine. Now I am using CLIENT_OLE2 with webutil.

To resave the excel file I want to run vbscript as follows.

 

PROCEDURE SAVE_XLS_AS_XML IS

  app        CLIENT_OLE2.OBJ_TYPE;

  args        CLIENT_OLE2.LIST_TYPE;

BEGIN

  app := CLIENT_OLE2.CREATE_OBJ('Excel.Application');

  args := CLIENT_OLE2.CREATE_ARGLIST;

  CLIENT_OLE2.ADD_ARG(args, 'Sub Save_as_XML()

                                                 Application.DisplayAlerts = False

                                                 Workbooks.Open Filename:="C:\temp\planets.xls"

                                                 ActiveWorkbook.SaveAs Filename:="C:\temp\planets2.xlm",   FileFormat:=xlXMLSpreadsheet,ReadOnlyRecommended:=False,CreateBackup:=False