Связать delphi c exel для автовычисление.

[xxbesoxx]

Обычно ищут золотую канарейку, чтобы пела и не ела.

Это да, бывает такой тоже .

[Азамат Даусейт]

Друзья ! ДА знаю что все это можно сделать и на exel , я хочу чтобы и мои коллеги могли пользоваться данной программой т.к. многие из них не умеют пользоваться exel-ом. им интересен конечный результат. К примеру загружают xls файл нажимают на кнопу вычислить и все, результат на экране )))

[Человек_Борща]

сохраняй макрос внутри документа, в док-т кнопку выведи. Жмакнул и все окей.

[S_Yevgeniy]

Куча слов, а где ответ?
Рассчитывай все в делфи как тебе хочется и записывай в нужную ячейку результат. Вот пример. Записи. Может гуру скажут лучше, но я пользуюсь таким вариантом.

WorkSheet.Cells.Item[21,9]:= 'PO currency: '+ LabeledEdit_04.Text;

Запись будет в в столбец I строки 21

Чтение данных строкa 2 столбец AN

perenos:= WorkSheet.Cells.Item[2,40];

Не забудьте подключить компонент ExcelXP;

Это для вызова файла и активации активного листа

Var 
      Excel, WorkBook, WorkSheet : OLEVariant;

   FileName5:=Ish_Data.LabeledEdit0001.Text +'\CPRV.xls';
   Excel := CreateOleObject('Excel.Application');
   WorkBook := Excel.WorkBooks.Open(FileName5);
   WorkSheet := Workbook.ActiveSheet;

Может кто из знатоков подскажет как писать данные не только в активную страницу а и в другие?

[Stilet]

как писать данные не только в активную страницу

http://msdn.microsoft.com/en-us/library/x62t5306.aspx
http://www.webdelphi.ru/2009/08/exce...orksheet-list/

[S_Yevgeniy]

Спасибо Виталий!
Вот как писать в не активный лист, ну может будет полезно!

(WorkBook.Sheets['111']).Cells.Item[II+2,1]:=StrToInt(Rez_E [II,1])+1;