delphi创建excel写入数据并创建二维折线图

通过OLE创建excel

var

xlapp: variant;

xlssheet: variant;

str :string;

chart1:variant;

series,se:variant;

begin

if not VarIsEmpty(xlapp) then
  begin
    xlapp.DisplayAlerts := False;
    xlapp.Quit;
    VarClear(xlapp);
  end;
  // 通过ole创建Excel对象
  try
    xlapp := CreateOleObject('Excel.Application');
 except
    str := frmLan.GetLanStr('不能打开EXCEL!', 'Can''t open excel');
    ShowMessage(str);
    Exit;
  end;

  xlapp.Workbooks.Add;
  xlssheet := xlapp.Workbooks[1].WorkSheets[1];
 
  xlssheet.Columns.EntireColumn.AutoFit;

//给excel赋值

xlssheet.Cells[0,0] := 1;

//给excel插入公式

xlssheet.Cells[20,0]:='=STDEV(R[-11]C:R[-1]C)' ;

// 增加二维图

 //1.增加一个二维图
    chart1 := xlssheet.chartObjects.Add(
100,100,200,200);
    //2.选择二维图的形态
    chart1.Activate;
    chart1.chart.charttype := xlLineMarkers;
    chart1.chart.haslegend := True;
    //3.给二维图赋值
    series := chart1.chart.SeriesCollection;
    //4.给二维图加上标题
    chart1.chart.HasTitle := true;
    chart1.chart.ChartTitle.Characters.Text :=
'123';


    //5.添加做标题
   
 chart1.Chart.Axes(xlValue, xlPrimary).HasTitle := True;
   
      chart1.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := leftTitle;
    //6.改变二维图的标题字体大小
    chart1.chart.ChartTitle.Font.size := 12;
    chart1.chart.Axes(xlCategory).HasMajorGridlines := true;

//x轴的值

//y轴的值
    

series.NewSeries;
    se := chart1.chart.seriescollection(1);
    se.XValues :=  '=sheet1!C2:C5
    se.Name :=rightTitle0;
    se.Values := '=sheet1!J2:J5';

       //第二条线

 series.NewSeries;
        se := chart1.chart.seriescollection(2);
        se.XValues := seXValues1;
        se.Name :=rightTitle1;
        se.Values := seValues1;

xlapp.Activeworkbook.saveas(AnsiString(Wj));
   xlapp.Activeworkbook.Close(False);
         xlapp.Quit;

end;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

小蚂蚁_CrkRes

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值