$PBExportHeader$f_saveas_excel.srf
$PBExportComments$enregistre la datawindow en format excel
global type f_saveas_excel from function_object
end type

forward prototypes
global function integer f_saveas_excel (datawindow adw_dw, string as_docname)
end prototypes

global function integer f_saveas_excel (datawindow adw_dw, string as_docname);///////////////////////////////////////////////////////////////////////////////////////////////////////
// Converting DataWindow to Excel file
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Export DataWindow to Excel including computed-columns, headers, footers, groups, text labels, etc... 
///////////////////////////////////////////////////////////////////////////////////////////////////////
// ... Init docname
// ... GetFileOpenName or any other method
//
IF adw_dw.SaveAs( as_docname, HTMLTable!, TRUE ) = -1 THEN
    MessageBox("Attention", "Impossible d'exporter la datawindow en format HTML!", Exclamation!)
    RETURN -1
END IF 
//
// Convert HTML file to Excel native format
OLEObject Excel 

Excel = CREATE OLEObject 
//
IF Excel.ConnectToObject( as_docname ) = 0 THEN
   Excel.Application.DisplayAlerts = FALSE 
   Excel.Application.Workbooks( 1 ).Parent.Windows( excel.Application.workbooks( 1 ).Name ).Visible = TRUE 
   // Excel.Application.Workbooks( 1 ).SaveAs(as_docname, 39 ) ;
  Excel.Application.Workbooks( 1 ).SaveAs(as_docname, 1 )  // SKA jan 2005
   Excel.Application.Workbooks( 1 ).Close() 
END IF 
//
DESTROY excel
//
// ...Done

return 1
end function

f_saveas_excel(dw_detail,'c:/test_pb.xls')