Problemi s excel

Zdraveite. Imam sledniqt problem. Nalagami se da napavq export na danni v fajlove na excel i word. Razgledah vyzmoznostite na server ili tam kakto se nari4a taq paleta s ms office istoriite. Za word uspqh, no za excel ne. Davami na nqkoi ot funkciite 'class not registred'. Pomagaite. Kak moga da go re6a toq problem.

preinstaliraj ofisa .... ili se zakopaj mnogo dalboko w registrito...

------------------------------
I got a COMPILER, and I'm not afraid to use it!

мхм, не съм наясно със Servers таб-а от палетата, затова предлагам по различно решение... и мисля че е по "сигурно" - ще работи добре със офисите от 97 до XP /и по-нови, ако не се смени Excel Object модела/


примерчето пуска НОВ ексел, създава WorkBook и WorkSheet /това може да се смени с избиране на активния WorkSheet /, написва АААА в клетка А1 и 42 в клетка А2, записва WorkBook-a във файл и затваря кочината

procedure TForm1.Button1Click(Sender: TObject);

var ExcelAppl : OleVariant;

    NewWorkBook : OleVariant;

    NewWorkSheet : OleVariant;

begin

ExcelAppl := CreateOleObject('Excel.Application');

NewWorkBook := ExcelAppl.Workbooks.Add;

NewWorkSheet := NewWorkBook.Sheets.Add;

try

   NewWorkSheet.Range['A1', 'A1'].Value := 'AAAA'; //String

   NewWorkSheet.Range['A2', 'A2'].Value := 42; //Integer

   NewWorkBook.SaveAs(c:\excel.xls');

except

   on e:exception do MessageDlg(e.Message, mtERROR, [mbOK], 0);

end;

NewWorkBook.Close;

ExcelAppl.Quit;

NewWorkSheet := UNASSIGNED;

NewWorkBook := UNASSIGNED;

ExcelAppl := UNASSIGNED;

end;

registry key, който си струва да се провери:
HKEY_CLASSES_ROOT\Excel.Application
през CLSID може да се намери кеде е ехето и други неща... но това - ако примерчето неработи, иначе - инсталацията на офиса е добре.

повече за нещата който може да се правят със обектине на Excel-а можеш да видиш в хелпа /Excel, VBA, не Delphi/.
също полезен трик е правене на "макрос" в ексел и "превод" на кода до Pascal, това силно улеснява живота и другите там неща

--------------------------------------
Започва Път от моят праг...

Иди тук и пусни търсене FlexCel
Надявам се да ти помогне.

Никога не е късно човек да се провали!