Discussion :

[louay02]

Bonjour

j'utilise un composant scExcelExport pour exporter ma table vers un fichier Excel

voila le code d'export:

Code :

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

1
2
3
4
5
6
7
8
9
10
begin
  try
    scExcelExport1.ExcelVisible:=True;
    scExcelExport1.LoadDefaultProperties;
    scExcelExport1.Dataset:=TableOrders;
    scExcelExport1.WorksheetName:='Table';
    scExcelExport1.ExportDataset;
  finally
    scExcelExport1.Disconnect;
  end;

Mais je veux exporter en parallèle un graphe de cette table comment je le fais ?

Merci

[fab256]

Pourquoi ne pas créer un nouveau fichier avec Excel (comme modele) avec un graph dont la source de donnée serais le fichier que tu as créé avec scExcelExport? A chaque fois que tu change le fichier Excel contenant ta table, le graph se modifiera tout seul.

[louay02]

Merci fab256 pour ta réponse mais quand je ré-exporté le fichier en question il crase l’ancien fichier qui contient le graphe.

j'ai trouvé que le composant scExcelExport supporte l’option:

Code :

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

scExcelExport1.ExcelApplication.Charts

Comment j’incluse mes chapms de ma table avec cette option scExcelExport1.ExcelApplication.Charts?

[fab256]

Je parlais de 2 fichiers differents un avec les données issu de l'exportation de ta table vers un fichier Excel Donnee.xls et un autre Graphe.xls avec comme source de données externe le fichier Data.xls.

Tu crée un fichier Graphe.xls, tu fait insertion graph et tu specifie la source des données comme ceci
=[Donnee]Feuille1!$A$1:$A$30

Qui veux dire les données proviennent du fichier Donnee.xls la feuille1 de la cellule A1 a A30.
L'avantage de cette méthode c'est que tu arrange ton graphe comme tu veux Dans Excel sans écrire une seule ligne de code dans delphi.

L'autre alternative serai de passer par OLE Automation c'est a dire controller Excel a partir de Delphi.

[louay02]

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
29
begin
 scExcelExport1.LoadDefaultProperties;
  scExcelExport1.FontData.Color := clBlack;
  scExcelExport1.ExcelVisible:=False;
  scExcelExport1.Dataset:=Table1;
  scExcelExport1.WorksheetName:='APPELS_';
  scExcelExport1.HeaderText.Text := 'STATISTICS';
  scExcelExport1.BeginRowHeader := 1;
  scExcelExport1.BeginRowTitles := 2;
  scExcelExport1.BeginRowData := 3;
  scExcelExport1.FontHeader.Size := 12;
  scExcelExport1.FontHeader.Style := [fsBold];
  scExcelExport1.AutoFilter := True;
  scExcelExport1.ExportDataset;
  scExcelExport1.SaveAs
(ExtractFilePath(Application.ExeName)+'ExcelExport.xls',ffXLS);
  scExcelExport1.Disconnect;
  scExcelExport1.CloseAllExcelApps;
     scExcelExport1.ExcelApplication.Connect;
  MonClasseur:=scExcelExport1.ExcelApplication.Workbooks
.Open('C:\Program Files\Borland\Delphi6\Projects\AnaLyZer\ExcelExport.xls',False,False,
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
  scExcelExport1.ExcelApplication.Visible[0]:=true;
  MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
  MonGraph:=MonClasseur.Sheets.Add(emptyparam,emptyparam,1,xlChart,0) as _chart;
  MaCollSerie:=MonGraph.SeriesCollection(EmptyParam,0) as SeriesCollection;
  MaSerie:=MaCollSerie.NewSeries;
  MaSerie.FormulaLocal:='=SERIE(;Feuil2!$A$2:$A$21;Feuil2!$B$2:$B$21;1)';

j'ai combiné deux codes pour avoir un fichier commun mais il reste le type du graphe :

Linge
Colonne
Nuage de point
....

[fab256]

Essai comme ceci :

Code :

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

MonGraph.ChartType := xl3DColumn;

Les autres type de graphes sont :
xlBarClustered
xlBarStacked
xlLine
xl3DLine
xlAreaStacked
xl3DAreaStacked
xColumnClustered
xlPie
xl3DPie

[louay02]

merci beaucoup fab256 ca fontionne trés bien.