如何调用EXCEL中FIND方法(50分)

....
private
IRange: Excel_TLB.Range;
...
function TConv.FindStr(Str: string): Range;
begin
Result := IRange.Find(Str, Null, xlFormulas, xlPart, xlByRows, xlNext, False, False);
end;

以上是我的代码，编译通过，运行错误.请问如何正确调用 FIND方法
：）

private
OleVal: Variant;
....
Oleval := CreateOleObject('excel.application');
....
OleVal.Range.Find(Str, Null, xlFormulas, xlPart, xlByRows, xlNext, False, False);
这样子调用好像不是我要的find,我想通过关键字定位，而这个find返回的不是Range对象。

private
OleVal: Variant;
....
Oleval := CreateOleObject('excel.application');
....
str:=opendialog1.filename;
row:=OleVal.workbook.cells.Find(Str).row; //得到定位的单元格的行数
col:=OleVal.workbook.cells.Find(Str).column;//得到定位的单元格的列数
//OleVal.workbook.cells.Find(Str)返回range对象，find里面其他参数可以不用。

接受答案了.