通过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;
如果觉得《delphi创建excel写入数据并创建二维折线图》对你有帮助，请点赞、收藏，并留下你的观点哦！
