Отображение данных из Excel в TStringGrid.

uses
  ComObj;

uses
  ComObj;
 
procedure LoadFromExcel(const aExFileName : String; aSg : TStringGrid);
var
  ExApp : Variant;
...
begin
  ExApp := CreateOleObject('Excel.Application');
...
end;

uses
  Unit1; //В этом модуле определена процедура LoadFromExcel().
 
//Вызов из внешнего по отношению к TForm3 кода:
LoadFromExcel('D:\Книга1.xls', Form3.StringGrid1);
...
//Вызов из какого-нибудь метода TForm3:
LoadFromExcel('D:\Книга1.xls', StringGrid1);
//или:
//LoadFromExcel('D:\Книга1.xls', Self.StringGrid1);

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Группа констант XlFindLookIn.
  //Искать только в комментариях, прикреплённых к ячейкам.
  xlComments = -4144;
  //Искать только в тексте формул.
  xlFormulas = -4123;
  //Искать только в значениях ячеек.
  xlValues = -4163;
 
  //Группа констант XlLookAt.
  //Искомый текст может быть частью строки или всей строкой.
  xlPart = 2;
  //Искомый текст может быть только всей строкой.
  xlWhole = 1;
var
  exApp, exBook, exSheet, exRng, exCell : Variant;
  sTemplate, sAddress : String;
  i : Integer;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( Application.exeName )
  ;
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageBox(
      0
      ,PChar('Файл с указанным именем не найден. Действие отменено.')
      ,PChar('Предупреждение')
      ,MB_OK + MB_ICONWARNING + MB_APPLMODAL
    );
    Exit;
  end;
 
  sTemplate := Edit1.Text;
  if STemplate = '' then begin
    ShowMessage('Не задан искомый текст. Действие отменено.');
    Exit;
  end;
  Memo1.lines.Add('Искомый текст: "' + sTemplate + '".');
 
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(FileName:=Od.FileName);
  //Первый лист в рабочей книге.
  exSheet := exBook.WorkSheets[1];
  //Используемый на листе диапазон.
  exRng := exSheet.UsedRange;
 
  //Поиск ячееек.
  i := 0;
  exCell := Unassigned;
  //LookIn:=xlValues - ищем только в значениях ячеек.
  //LookAt:=xlPart - искомый тект может быть частью строки или всей строкой.
  //MatchCase:=False - поиск не зависит от регистра букв.
  exCell := exRng.Find(What:=STemplate, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False);
  if TVarData(exCell).VDispatch <> nil then begin
    sAddress := exCell.Address;
    repeat
      inc(i);
      Memo1.lines.Add(
        'Соответствие найдено: Cell[' + IntToStr(exCell.Row) + ';' + IntToStr(exCell.Column)
        + '].Text = "' + exCell.Text + '".'
      );
      exCell := exRng.FindNext(After:=exCell);
    until exCell.Address = sAddress;
  end;
 
  if i = 0 then
    Memo1.lines.Add('Ни одного соответствия не найдено.')
  else
    Memo1.lines.Add('Найдено соответствий: ' + IntToStr(i))
  ;
  Memo1.lines.Add('--------------------------------------------------');
 
  //Если требуется, закрываем рабочую книгу.
  //exBook.Close;
 
  //...
 
  //Выход из Excel.
  //exApp.Quit;
end;

var
  j, ... : Integer;
...
begin
...
  for j := 1 to exBook.WorkSheets.Count do begin
    //Очередной лист в рабочей книге.
    exSheet := exBook.WorkSheets[j];
    ...
  end;