[PhoeniX]

Кусок рабочего кода из одного проекта:

Код:

procedure TfMain.ImportExcel(filename: string);
var
  xla: OleVariant;
  x, y: integer;
  comm: string;
  // ...
begin
  try
    xla := CreateOleObject('Excel.Application');
    xla.Visible := false;
    xla.Workbooks.Open(filename);

    if xla.Cells.CurrentRegion.Columns.Count = 10 then begin
      for y:=1 to xla.Cells.CurrentRegion.Rows.Count do begin
        // ...
        comm := 'NULL';
        for x:=1 to 10 do
          if not VarIsClear(xla.Cells.Item[y, x].Comment) then
            comm := dbstring(xla.Cells.Item[y, x].Comment.Text);
        // ...
      end;
    end else begin
      MessageDlg('Неопознанный формат таблицы',mtError,[mbOk],0);
    end;
    xla.ActiveWorkbook.Close(false);
    xla.Quit;
    MessageDlg('Импорт успешно завершён',mtInformation,[mbOk],0);
  except
    on E: Exception do
      MessageDlg('Импорт из Microsoft Excel невозможен на вашем компьютере'#10#13+e.Message,mtError,[mbOk],0);
  end;
end;