为Excel动态添加Chart数据

最新推荐文章于 2024-03-11 11:32:09 发布

sxy_9761

最新推荐文章于 2024-03-11 11:32:09 发布

阅读量1.6k

点赞数

分类专栏： Delphi 文章标签： excel random path

本文链接：https://blog.csdn.net/sxy_9761/article/details/6225424

版权

Delphi 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

往Excel的Chart添加数据,资料大都使用range方法,经查MSDN,发现也可以使用数组,实践了一下:

implementation
uses ComObj;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
V,ASheet1,AChart,Series: Variant;
Path: string;
I:Integer;
Arr_A,Arr_B: OleVariant; // 不能使用Variant!
begin
V := CreateOleObject('Excel.Application');
Path := ExtractFilePath(ParamStr(0))+'Tester.xls';
V.WorkBooks.Open(Path);

//DI1.Text := format('DI_1:%d',[Random(110)]);
//DI2.Text := format('DI_2:%d',[Random(20)]);
//DI3.Text := format('DI_3:%d',[Random(30)]);// DDE交换数据

Arr_A := varArrayCreate([1,30],varVariant);
for i := 1 to 30 do
Arr_A[i] := Random(50);

Arr_B := varArrayCreate([1,30],varVariant);
for i := 1 to 30 do
Arr_B[i] := 50+Random(50);

ASheet1:=V.Workbooks[1].WorkSheets[1];
AChart := ASheet1.ChartObjects.Add(100,100,500,200);

Series:=AChart.Chart.SeriesCollection.NewSeries;
Series.Values := Arr_A;
Series.Name := 'Series A';

Series:=AChart.Chart.SeriesCollection.NewSeries;
Series.Values := Arr_B;
Series.Name := 'Series B';

AChart.Chart.ChartType := 4;
AChart.Chart.HasTitle := TRUE;
AChart.Chart.ChartTitle.Characters.Text := 'Test Example!';

V.Visible := TRUE;
end;