delphi4arab منتديات دلفي للعرب - إصدار ملف +رسم بياني على 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é '); 

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

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

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

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

نعم يعملان