Delphi+Exсell

[Stilet]

Как вариант:

function xls_to_stringgrid(agrid: tstringgrid; axlsfile: string): boolean;
var
xlapp, sheet: variant;
s:string;
x, y, k, r: integer;
begin
result := false;
xlapp := CreateOleObject('Excel.Application');
try
xlapp.workbooks.open(axlsfile);
sheet := xlapp.workbooks[extractfilename(axlsfile)].worksheets[1];
agrid.FixedRows:=0;
agrid.FixedCols:=0;
agrid.RowCount:=0;
agrid.ColCount:=0;
y:=1;

repeat
 x:=1; s:=sheet.cells[x,y];
 while s<>'' do begin
  if agrid.ColCount<x then agrid.ColCount:=agrid.ColCount+1;
  agrid.cells[x-1,y-1]:=s;
  inc(x);
  s:=sheet.cells[x,y];
 end; 
 inc(y); 
 s:=sheet.cells[1,y];
until s<>'';
except
 On E:Exception do ShowMessage(e.Message);
end;

xlapp.quit;
xlapp:=null;
xlapp := unassigned;
sheet := unassigned;
result := true;
end;

Кстати, а ты эту функцию не используешь в потоке случайно? Ибо если так, то стоит вызывать CoInitialize() перед ее использованием.

[alex89d]

В потоке нет! А рекурсивно вызываю)))

[Stilet]

Оппа! А че там рекурсии делать?
Как ты умудрился ее в рекурсию превратить то?
Или имеется ввиду "вызываю в некой другой функции, которая рекурсивная"?

[alex89d]

в другой которая рекурсивная)))))))))

[Stilet]

Хм... Ну не знаю...
Надо сам проект щупать чтоб что-то точнее сказать.
Я, короче, свои идеи предложил.

[alex89d]

Спасибо! попробую еще как нибудь