Discussion :

[quiper]

Bonjour,

je voudrais enregistrer 1 datawindow sous excel en gardant la mise en forme, les compute ...
la fonction dw.saveas n'enregistre que le jeu de résultat brut. Comment faire ?

[shahin]

Le code suivant est de Shekar Reddy (groupe anglophone powerobject)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
///////////////////////////////////////////////////////////////////////////////
// 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 dw.SaveAs( docname, HTMLTable!, TRUE ) = -1 THEN
    MessageBox("Warning", "Unable to export data. Error writing to file!", Exclamation!)
    RETURN ;
END IF ;
//
// Convert HTML file to Excel native format
OLEObject Excel ;
//
Excel = CREATE OLEObject ;
//
IF Excel.ConnectToObject( 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(docname, 39 ) ;
   Excel.Application.Workbooks( 1 ).Close() ;
END IF ;
//
DESTROY excel
//
// ...Done

[quiper]

Merci pour l'exemple,
j'ai essayé comme indiqué ci-dessous. La partie saveas html fonctionne sans problème mais j'ai une erreur sur la ligne :

lole_doc.Application.DisplayAlerts = FALSE ;
Name not found accessing external object property application at line 19 in clicked event …

Pour info, ma datawindow remonte énormément de lignes (6436 exactement)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
string docname
docname = 'c:\4786.htm'
IF dw_ecarts.SaveAs( docname, HTMLTable!, TRUE ) = -1 THEN
       MessageBox("Warning", "Unable to export data. Error writing to file!", Exclamation!)
       RETURN ;
END IF ;
OLEObject lole_doc ;
lole_doc = CREATE OLEObject ;
IF lole_doc.ConnectToObject( docname ) = 0 THEN
   lole_doc.Application.DisplayAlerts = FALSE ;
   lole_doc.Application.Workbooks( 1 ).Parent.Windows( lole_doc.Application.workbooks( 1 ).Name ).Visible = TRUE ;
   lole_doc.Application.Workbooks( 1 ).SaveAs(docname, 39 ) ;
   lole_doc.Application.Workbooks( 1 ).Close() ;
END IF ;
DESTROY lole_doc