[~ SaM ~]

Есть код.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var s:shortstring;     i:integer; begin if not createexcel then begin application.MessageBox('Íå óäàëîñü çàïóñòèòü Excel.','Îøèáêà',mb_OK);end else begin OpenWorkBook(getcurrentdir+'\xls\new.xls'); VisibleExcel(false); for i:=1 to 400 do begin s:=Getrange(4,'A'+inttostr(i)); stringgrid1.Cells[0,i]:=s; end; for i:=1 to 400 do begin s:=Getrange(4,'B'+inttostr(i)); stringgrid1.Cells[1,i]:=s; end; for i:=1 to 400 do begin s:=Getrange(4,'C'+inttostr(i)); stringgrid1.Cells[2,i]:=s; end; CloseWorkBook; CloseExcel;

Все без ошибок и нормально работает, но импортируется не 400 строк, а только 86 и не больше! Почему так?Может кто сталкивался с такой проблемой? Рылся в инэте, находил кучу функций и процедур, но все заканчивается одним и тем же!