إصدار ملف +رسم بياني على Excel

[لؤي]

سلام الله عليكم

أستعمل مكون scExcelExport لإصدار جدول لكن في نفس الوقت أحبذ إصدار مع الملف رسم بياني خاص لنفس الجدول و لا أظن أن المكون يدعم خاصية Chart

كيف لي دمج إصدار الجدول ومعه الرسم البياني على ملف واحد؟

PHP كود :

begin
  try
    scExcelExport1.ExcelVisible:=True;
    scExcelExport1.LoadDefaultProperties;
    scExcelExport1.Dataset:=TableOrders;
    scExcelExport1.WorksheetName:='Table';
    scExcelExport1.ExportDataset;
  finally
    scExcelExport1.Disconnect;
  end; 


بارك الله فيكم

[لؤي]

هل هذه الخاصية scExcelExport1.ExcelApplication.Charts ممكن أن تفيد في رسم المخطط البياني للملف المصدر ؟

[لؤي]

استطعت أن أجمع ما بين كودين واحد خاص بالإصدار والثاني بالرسم لأتحصل على ملف يحوي إصدار مع رسم

لكن المشكلة بقيت في نوع الرسم البياني هل هو خط أم مدرج تكراري أم ...كيف لي أن أختار نوعية البيان

أرفق الكود

كود :

Var MonClasseur : _workbook; MaFeuille :_Worksheet; MonGraph : _Chart; MaSerie : Series; MaCollSerie : SeriesCollection; compteur:integer; 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; // Save worksheet 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

[لؤي]

ممكن إستعمال أحد اواع الرسوم

PHP كود :

MonGraph.ChartType := xl3DColumn; 


أنواع الـCharttype

xlBarClustered
xlBarStacked
xlLine
xl3DLine
xlAreaStacked
xl3DAreaStacked
xColumnClustered
xlPie
xl3DPie

شكرا لكم

[ابومهند]

اخي الكريم بارك الله فيك ، اذا مشت معك الطريقة نأمل ارفاق مثال لليستفيد منه الجميع.

تحياتي وتقديري

[لؤي]

اذا مشت معك الطريقة نأمل ارفاق مثال لليستفيد منه الجميع.

أستعمل مكون scExcelExport +ExcelApplication
و هذا هو المثال المطلوب أخي:

PHP كود :

Var
  MonClasseur : _workbook;
  MaFeuille :_Worksheet;
  MonGraph : _Chart;
  MaSerie : Series;
  MaCollSerie : SeriesCollection;
  compteur:integer;
begin
  try
  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;
  // Save worksheet
  scExcelExport1.SaveAs(ExtractFilePath(Application.ExeName)+'ExcelExport.xls',ffXLS);
  scExcelExport1.Disconnect;
  scExcelExport1.LoadDefaultProperties;//export vers le fichier Excel
  scExcelExport1.ExcelApplication.Connect;
  MonClasseur:=scExcelExport1.ExcelApplication.Workbooks.Open(ExtractFilePath(Application.ExeName)+'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;
  MonGraph.ChartType := xlLine;
  MaCollSerie:=MonGraph.SeriesCollection(EmptyParam,0) as SeriesCollection;
  MaSerie:=MaCollSerie.NewSeries;
    scExcelExport1.CloseAllExcelApps;
    except
  on E : Exception do
  showmessage('Microsoft Excel n'+'''a pas été installé '); 


[bassem_43]

السلام عليكم
اولا بارك الله فيك على المعلومات القيمة اخي لؤي
ثانيا ممكن رابط تحميل المكونين scExcelExport +ExcelApplication بحثت ولم اجدهما في المنتدى
وهل المكونين يصلحان للتصدير من قاعدة بيانات eccess الى Excel ؟؟ وشكرا

[لؤي]

ثانيا ممكن رابط تحميل المكونين scExcelExport +ExcelApplication

السلام عليكم
المكون ExcelApplication يأتي بصفة ألية مع نسخة دلفي المنصبة
أما عن مكون scExcelExport من هذا الموقع :
http://www.scip.be/index.php?Page=ComponentsExcelExport

وهل المكونين يصلحان للتصدير من قاعدة بيانات eccess الى Excel ؟؟ وشكرا

نعم يعملان