Witam wszystkich,
Mam problem z napisaniem modułu dotyczącego komunikacji z Excelem 2002 czyli XP a dokładnie o utworzenie nowego skoroszytu. Doczytałem w internecie aby utworzyć nowy skoroszyt należy po połączeniu z Excelem użyć
Excel.Workbooks.Add;
takie coś działa bo sprawdzałem pod Excelem 2000 natomiast w XP otrzymuje komunikat "To polecenie jest niedostępne, ponieważ licencja na użytkowanie aplikacji wygasła"
Proszę o jakąś pomoc
zadeklarowałeś "Excel" jako Variant i Excel.appliacation?
Tak
Excel : variant
część klasy odpowiedzialnej za połączenie
function TCExcel.Connect : Integer;
begin
Result:= ERROR_CEXCEL_CONNECT;
if Connected then Disconnect;
Excel := Unassigned;
try
Excel := CreateOleObject('Excel.Application');
Excel.VISIBLE := TRUE;
Result:= CEXCEL_SUCCESS;
except
on E : Exception do
begin
Result:= ERROR_CEXCEL_CONNECT;
Error := E.Message;
end;
end;
end;