如何取得OleContainer里的数据(问题已经解决，大家来领分啊) ( 积分: 100 )

在form上放一个OleContainer1，然后执行下面的语句
try
if (OleContainer1.State = osEmpty) or
(MessageDlg('Delete current OLE object?', mtConfirmation, mbOkCancel, 0) = mrOk) then
begin
OleContainer1.CreateObject( 'Excel.Sheet',false);//创建一个excelsheet
OleContainer1.DoVerb(OleContainer1.PrimaryVerb);
end
else OleContainer1.OleObject.InsertCanceled := true;
except end;
那么如何通过程序向excel表格里填写数据和从表格里提取到数据呢？
我曾用下面的方法取数据，但没有取出来
ExcelOLEObject1:=tExcelOLEObject(OleContainer1.OleObjectInterface);
excelworksheet1:=texcelworksheet(ExcelOLEObject1);
edit1.text:=excelworksheet1.Range['A1','A1'].Value ;//出错
edit1.text:=excelworksheet1.cells.item['A1','A1'];//也出错
先出100分，解决后再出200，大家多帮忙啊，注意是每个表格里的数据，不是全部的数据

在form上放一个OleContainer1，然后执行下面的语句
try
if (OleContainer1.State = osEmpty) or
(MessageDlg('Delete current OLE object?', mtConfirmation, mbOkCancel, 0) = mrOk) then
begin
OleContainer1.CreateObject( 'Excel.Sheet',false);//创建一个excelsheet
OleContainer1.DoVerb(OleContainer1.PrimaryVerb);
end
else OleContainer1.OleObject.InsertCanceled := true;
except end;
那么如何通过程序向excel表格里填写数据和从表格里提取到数据呢？
我曾用下面的方法取数据，但没有取出来
ExcelOLEObject1:=tExcelOLEObject(OleContainer1.OleObjectInterface);
excelworksheet1:=texcelworksheet(ExcelOLEObject1);
edit1.text:=excelworksheet1.Range['A1','A1'].Value ;//出错
edit1.text:=excelworksheet1.cells.item['A1','A1'];//也出错
先出100分，解决后再出200，大家多帮忙啊，注意是每个表格里的数据，不是全部的数据

~~~~恭喜楼主了~~

来领分了~！

我也凑个热闹

http://suninrain.delphibbs.com上有该程序的下载
在来一个回复就可以散分了

我来，喜喜

赶上末班车了？嘿嘿

多人接受答案了。