EXCEL查找字符串的问题！！！！

Question

var
  vExcel:Variant;
  vBooks:Variant;
  ActiveRange:Variant;
  ComDrive:String;
  OldStr,NewStr:String;
begin
  OldStr := '1';
  NewStr := '2';
  ComDrive := 'Excel.application';
  vExcel := CreateOLEObject( ComDrive );
  VBooks := vExcel.workbooks.Open( 'c:\1.xls') ;
  vExcel.Visible := true;
  activeRange := vExcel.cells.find(OldStr);
  activeRange.Replace(OldStr,NewStr,2,1,false);
  如何判断系统没查到OldStr字符串？ 对于没查到，ActiveRange是什么？

Answer 1

在Excel的宏中查找一下帮助，看这个函数的返回值是什么。