100分请高手进来喝杯咖啡!

Question

我想用Delphi控制Excel搜索Excel文件A.XlS中是否有"咖啡"［字符串］,如果有返回其坐标X.Y,请问如果实现,实现完整100分送上.说关键的语句就行了：搜索＂咖啡＂及相应Ｘ．Ｙ的函数或过程．

Answer 1

for i:=1 to 100 do
   for j:=1 to 100 do 
       if pos(excelapp.documents.cells[i][j])>0 then showmessage(inttostr(i)+':'+inttostr(j));

Answer 2

我现在已经找到Find方法可以实现搜索，但是返回的是Ｒａｎｇｅ也就是一个单元格，我如何取引单元格的Ｘ和ｙ

Answer 3

var
  F1Book1:TF1Book1;
  bv1: IF1BookView;
  F1FindReplaceInfo: IF1FindReplaceInfo;
begin
  F1book1.Create;
  F1Book1.Read('abc.xls',11)
  bv1:=F1Book1.CreateBookView;
  F1FindReplaceInfo:=bv1.DefineSearch('咖啡', 1, 1, 1, F1Book1.MaxRow, F1Book1.MaxCol,0);
  while F1FindReplaceInfo.FindNext do begin
    bv1.Row:=F1FindReplaceInfo.Row;
    bv1.Col:=F1FindReplaceInfo.Col;
    ShowMessage(bv1.Text);//找到后显示
  end;
end';

Answer 4

/..F1FindReplaceInfo:=bv1.DefineSearch('咖啡', 1, 1, 1, F1Book1.MaxRow, F1Book1.MaxCol,0);
  while F1FindReplaceInfo.FindNext do begin
    bv1.Row:=F1FindReplaceInfo.Row;//X
    bv1.Col:=F1FindReplaceInfo.Col;//y
    ShowMessage(inttostr(bv1.row)+':'+inttostr(bv1.Col));
//找到后显示x,y
  end;
end';

Answer 5

china_jian(怀剑) ( ) 信誉：100 
加我QQ88545224