请教：控制excel，作二维图，出错。怎么改？

Question

...//定义viarants变量
xlsapp:=CreateOleObject('Excel.Application');
xlsapp.visible:=true;
xlsapp.workbooks.add[xlworksheet];
xlsapp.workbooks[1].worksheets[1].name:='mycode';
xlssheet:= xlsapp.workbooks[1].worksheets['mycode'];
...//在mycode中写入数据
xlsapp.workbooks[1].sheets.add(,,1,xlchart);
sheets:=xlsapp.sheets;
arange:=sheets.item['mycode'].range['A1:A10'];
sheets.item['chart1'].SeriesCollection.Item[1].values:=arange;
到这里出错，显示unable to get the item propety ofseriescollection class item... 怎么改？
...

Answer 1

用 ExcelSheets 的 ChartWizard 方法。