Отображения Excel файла в StringGrid-е

[Demien]

Есть файл Excel. Необходимо его по частям (по 11 строк) загружать в StringGrid.
Ссылк на скрин файла Excel приведена ниже
По скольку в файле более 10000 строк - не целесообразно его целиком загружать.

Смотрел предыдущую тему по работе с Excel файлами, в поиске, DelphiWorld...
Пробовол разные варианты. Везде одну и ту-же ошибку выдает:
"...\01_95.xls" is not a valid component name.

Не могу разобраться что я не так делаю...
До этого работал только с текстовыми файлами. xls для меня в новинку ))
Если можно разжуйте мне, что и к чему.

[Stilet]

Я бы выбирал из двух вариантов:
1 - Пересохранить в CVS и загружать уже этот файл
2 - SQL запросами к провадеру ODBC, подключенному в этой XLS

[S@fer]

Везде одну и ту-же ошибку выдает:
"...\01_95.xls" is not a valid component name.

покажи свой код

[Demien]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons, ComObj;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    StringGrid2: TStringGrid;
    Label4: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  str, kol: Integer;
  Name: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  CLose;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  OpenDialog1.Filter:='*.*|*.*';
  OpenDialog1.Execute;
  Edit1.Text :=OpenDialog1.FileName;
end;

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   i, k:       Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid do
   begin
    Readln(f, kol);
     ColCount := kol;
    Readln(f, str);
     RowCount := str;
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
 end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  str:=10;
  kol:=4;
  Name:= Edit1.Text;
  LoadStringGrid(StringGrid1, Name);
end;

end.

[oleg kutkov]

Нужно подключится из своего приложения к Excel, через COM. Запустить экземпляр Excel, но окно не показывать, загрузить в этот экземпляр нужный файл и читать данные, обращаясь к ячейкам, по их адресам.
Сейчас под рукой нет делфи и необходимого кода, чуть позже могу отписаться, как это реализовать.

[Demien]

Время не жмет!
Буду очень благодарен за помощь!

[oleg kutkov]

Вот как можно получать данные из файла xls:

uses ComObj; //подключаем необходимый модуль
 ......
 procedure FromXlsToGrid()
  var e : variant; //переменная-объект, через которую будем обращатся к Excel
  rc, fc : integer; //переменные для хранения индекса строки и столбца, соответственно
  begin
    e := CreateOleObject('Excel.Application'); //подключаемся с Excel
    e.WorkBooks.Open('таблица.xls'); //добавляем рабочую книгу из файла
     for rc = 0 to 22 do //крутим цикл для добавления в StringGrid 22 строк
       begin
         inc(StringGrid.RowCount); //добавляем новую строку в StringGrid
            for fc = 0 to 4 do //крутим цикл для пробега по столбцам
              begin
                 StringGrid.Cells[fc,rc] := e.Cells[rc+1,fc+1]; //получаем значение ячейки Excel и присваиваем в ячейку StringGrid. Добавление едениц необходимо из-за того, что в Excel индексы начинаются с еденицы. 
              end;           
       end;
   e.Close; //отпускаем Excel   
  end;

Удачи.