Тема: DELPHI&EXCEL
Показать сообщение отдельно
  #2  
Старый 25.10.2008, 16:15
Drozh Drozh вне форума
Активный
 
Регистрация: 12.06.2008
Сообщения: 313
Репутация: 40
По умолчанию

Считываешь данные в массив, и далее работаешь с ним
Код:
uses
 ComObj;
...

var
 XL: Variant;
 i, j: Integer;
 Ras: array [0..3, 0..2] of String;
begin
 XL := CreateOleObject('Excel.Application');
 XL.DisplayAlerts := False;
 XL.WorkBooks.Open(Путь к файлу);
 XL.Visible := False;

  for i := 0 to 3 do
   for j := 0 to 2 do
    Ras[i, j] := XL.WorkBooks[1].WorkSheets[1].Cells[j+2, i+2];

 XL.Quit;

теперь просто анализируешь массив Ras
Ответить с цитированием