| Код | procedure TForm.ButtonClick(Sender: TObject);
var Excel : Variant;
i : Integer;
begin
Excel := CreateOleObject('Excel.Application');
try
Excel.Workbooks.Open(FileN);
try
Table.Open;
for i:= 1 to 1000 do
begin
Table.Append;
Table.Fields[0].AsVariant := Excel.Cells[i,1].VAlue;
Table.Fields[1].AsVariant := Excel.Cells[i,2].VAlue;
Table.Post;
еnd;
except
end;
finally
Table.Close;
Excel.Quit;
end;
end; |
У меня Office 2003 переспрашивает "Сохранить изменения в файле? Microsoft Office Excel пересчитывает формулы при открытии файлов, сохраненных в предыдущих версиях Excel"
Как этого избежать?
P.S. На протяжении 2 часов нещадно перерывался нет в поисках инфы. Глухо... Все, что было найдено - не работает, хоть головой об стенку бейся... |
