Как выполнить такой поиск в EXCEL...

[Al_Sha]

Здравствуйте Уважаемые!
Подскажите как реализовать поиск в файле EXCEL (см.вложение).
Задача следующая.
Необходимо выполнить поиск по ФИО (берется из Edit) и в случае нахождения (например Петров Петр Петрович) скопировать в SrtringGrid:
1. Все что находится правее ячеек Основной режим/Сверхурочно/Итого (серая заливка)- в первый SrtringGrid.
2. Все что находится ниже ячеек Наименование/дата списания/кол-во/Примечание (серая заливка)- - во второй SrtringGrid.
С открытием файла Excel проблем нет...
Проблема с поиском и выводом найденного в SrtringGrid

Заранее благодарен
Al_Sha

[Прик]

Так примерно:

uses ComObj, ExcelXP;

procedure TForm1.Button1Click(Sender: TObject);
var
  XlApp, WSh, Rng : Variant;
  sR : string;
  F : string;
  C, R, I, J : Integer;
begin
  XLApp:= CreateOleObject('Excel.Application');
  XLApp.Workbooks.Open(<полный путь к файлу>\1.xls');
  WSh := XLApp.WorkBooks[1].WorkSheets[1];
  WSh.Select;

  F := Edit1.Text;
  Rng := WSh.Cells.Find(What := F, LookIn:=xlValues,
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
        MatchCase:=False, SearchFormat:=False);

  try
    Rng.Select;
    R := Rng.Row;
    Inc(R, 8);
    C := Rng.Column;
    Inc(C, 3);
    for I := 1 to 3 do begin
      Rng := WSh.Cells[R, C];
      Rng.Select;
      StringGrid1.Cells[1, I] := Rng.Value2;
      Inc(R);
    end;
    Inc(R, 3);
    Dec(C);
    for I := 1 to 4 do begin    //по строкам
      for J := 1 to 4 do begin  //по колонкам
        Rng := WSh.Cells[R, C];
        Rng.Select;
        StringGrid2.Cells[J, I] := Rng.Value2;
        Inc(C);
      end;
      Dec(C, 4);
      Inc(R);
    end;
  except
    raise;
  end;

//  XLApp.Visible := True; //если надо чтобы книга появилась, но строку ниже закомментировать
  XLApp.WorkBooks.Close;
  WSh := Unassigned;
  XLApp := Unassigned;
end;

[Al_Sha]

Спасибо.
Будем пробовать....
С уважением
Al_Sha