Форум: "Corba";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];

Вниз

Как вытащить формулу из 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; //если эксель русский

---

Страницы: 1 вся ветка

Форум: "Corba";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.045 c