一个不能解决的问题(50分)

//运行到最后一行（ outv.saveas('d:/text/b1.xls')）出错，提示为
“mothod 'saveas' not supported by aotomotion object”,总是
不能存盘，请教请教！！！

begin
fieldcount:=3;
try
outv:=createoleobject('excel.application');
except
showmessage('无法打开Excel!');
exit;
end;
outv.visible:=true;
outv.workbooks.add;
outv.workbooks[1].worksheets[1].name:='data1';
outvsheet:=outv.workbooks[1].worksheets['data1'];
// outvsheet:=outv.activesheet; 同上
with Table1 do
begin
first;
while not eof do
begin
i:=i+1;
for j:=1 to fieldcount do
begin
outvsheet.cells[i,j].value:=fields[j-1].asString;
end;
next;
end;
end;
//showmessage(outv.workbooks[1].sheets.count);
//outv.displayalerts:=false;
outv.saveas('d:/text/b1.xls');
end;

我看了一下，确实没有saveas这个方法，应该用
outv.save('d:/text/b1.xls');

关注。

对不起!我没有说清楚.outv.save('d:/text/b1.xls')是可以的,但我不想在excel
的界面做存盘工作,其实我的目的是要将表的内容转为excel文件,过程不用干预.

补充说明：是否具有属性可求出Excel文件的非空行数，不用输入范围，直接求出全部行数。

你搞错了，execel 的 Application 对象没有 SaveAs 方法，应该用 WorkBook 的
SaveAs 方法。
程序如下：
ExcelApp:=CreateOleObject('Excel.Application');
MyWorkBook:=CreateOleobject('Excel.Sheet');
....
MyWorkBook.saveas('d:/text/b1.xls');
...

如Crab所说的一样我是搞错了,
我还有问题是是否具有属性可求出Excel文件的非空行数，
不用输入范围，直接求出全部行数
或如何判断是最后一条非空行记录

谢谢各位