非常急,或者能够提供有关excel的编程资料
非常感谢

解决方案 »

  1.   

    你查一下关于Execl的COM编程接口
      

  2.   

    你是说图表吗
    你参考一下,大概就是先确定数据区域,然后选择一种图表类型
    //打印图表
      if PrintChart then
       begin
         ExcelApp.ActiveSheet.Range['A1:M19'].MergeCells:=true;
         //数据区域
         range1:=ExcelApp.ActiveSheet.Range['H'+IntTostr(BEGLINE+3),'H'+IntTostr(BEGLINE+2+DS.RecordCount)];
         //图表类型
         chtype:=ToleEnum(xl3DPie);
         achart:=ExcelApp.ActiveSheet.chartobjects.add(0,0,670,270);//add(left,top,width,length)单位:磅
         achart.chart.charttype:=chtype;
         series:=achart.chart.seriescollection;
         series.add(range1,xlColumns);
         achart.chart.Hastitle:=true;
         achart.chart.charttitle.characters.text:=ChartTitle;
         range1:=ExcelApp.ActiveSheet.Range['G'+IntTostr(BEGLINE+3),'G'+IntTostr(BEGLINE+2+DS.RecordCount)];
         achart.chart.seriescollection[1].xValues:=range1;
         if DS.RecordCount>6 then
         achart.chart.ApplyDataLabels(xlDataLabelsShowPercent,False,true)
         else
         achart.chart.ApplyDataLabels(xlDataLabelsShowLabelAndPercent,False,true);
       end;