Export fichier Excel+Graphe

Version imprimable

Bonjour

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

voila le code d'export:
Code:

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

22/05/2011, 00h02
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.
24/05/2011, 18h58
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:

scExcelExport1.ExcelApplication.Charts

Comment j’incluse mes chapms de ma table avec cette option scExcelExport1.ExcelApplication.Charts?
24/05/2011, 23h08
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.

Code:

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
....

25/05/2011, 23h20
fab256

Essai comme ceci :

Code:

MonGraph.ChartType := xl3DColumn;

Les autres type de graphes sont :
xlBarClustered
xlBarStacked
xlLine
xl3DLine
xlAreaStacked
xl3DAreaStacked
xColumnClustered
xlPie
xl3DPie
26/05/2011, 10h32
louay02

merci beaucoup fab256 ca fontionne trés bien. :ccool: