请大家帮忙！谢，如何将delphi中查询的数据批量插入到Olecontainer1控件中打开的已有excel文档，并在数据插入过程中用一个进度条显示进度。请举例

请大家帮忙！谢，如何将delphi中查询的数据批量插入到Olecontainer1控件中打开的已有excel文档，并在数据插入过程中用一个进度条显示进度。请举例！(80分)<br />

进度条好作,可以一边处理一边更换,估计一个大概的时间就可以

excel没有用OLE用过,愿意看看

批量？我没试过。一条条插入是没问题的，参看以前我关于操作 Excel 的例子。
进度条容易，设置进度条的起始值为 0，最大值为记录数，每处理一条记录，
就把进度条的当前值加1 。

同意Crab
不过可能有更好的方法～

同意CRAB的看法！
我的程序也是这么干的！
不知批量如何做法？

ovExcel := CreateOleObject('Excel.Application');
ovExcel.WorkBooks.Add('D:/template/Fp.xlt');
ovExcel.ActiveSheet.Cells[7,1] := FindField('TABLE1_3').AsString;
ovExcel.ActiveSheet.Cells[7,4] := FindField('TABLE1_4').AsString;
ovExcel.ActiveSheet.Cells[7,5] := FindField('TABLE1_5').AsString;
ovExcel.ActiveSheet.Cells[7,6] := FindField('TABLE1_6').AsInteger;
ovExcel.ActiveSheet.Cells[7,7] := FindField('TABLE1_7').AsInteger;
ovExcel.ActiveSheet.Cells[7,8] := FindField('TABLE1_8').AsFloat;
vExcel.Visible := True;
ovExcel.Quit;

多人接受答案了。