Как вытащить формулу из Excel

← →
George_Debug (2005-11-21 11:02) [0]

Доброго времени :-)
Снова бьюсь с 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) [1]

лучше так:

str1:=x_ws.Cells[6,2].FormulaLocal; //если эксель русский

Как вытащить формулу из Excel Найти похожие ветки