Как вытащить формулу из Excel [Delphi]
George_Debug © (2005-11-21 11:02:00)
Доброго времени :-)
Снова бьюсь с Excel.
Мне нужно вытащить формулы из него
Var
x: TExcelApplication;
x_wb: _Workbook;
x_ws: _Worksheet;
str1: String;
begin
x:= TExcelApplication.Create(self);
x.Connect;
x.workbooks.open(OpenDialog1.FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Empty
Param,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
x_wb:= x.WorkBooks.Item[1];
x_ws := x_wb.Worksheets.Application.Sheets[1] as
_worksheet;
str1:=x_ws.Cells.Formula[6,2];
showmessage(str1);
end;
А в результате Excel начинает отъедать по 100МБ и вешает всё
на свете.
Помогите
umbra (2005-11-21 11:11:00) [1]
лучше так:
str1:=x_ws.Cells[6,2].FormulaLocal; //если эксель
русский
Наверх 
ЧАТ |
Орешник |
|
