为Excel动态添加Chart数据

往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;