Ver Mensaje Individual
  #2  
Antiguo 19-01-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola calco_hugo.

En este momento se me ocurren dos motivos, verifica que Excel esté instalado y que tengas los privilegios necesarios para ejecutarlo.

Para lo primero podes hacer:
Código Delphi [-]
...
uses ComObj,ActiveX;

function ExcelInstalled: Boolean;
var
  ClassID: TCLSID;
  strOLEObject: string;
begin
  strOLEObject := 'Excel.Application';
  Result:= CLSIDFromProgID(PWideChar(WideString(strOLEObject)), ClassID) = S_OK;
end;
Y en la llamada:
Código Delphi [-]
var
  Excel: Variant;
begin
  if not ExcelInstalled then
    raise Exception.Create('Excel no está instalado');
 
  try
    Excel:= GetActiveOleObject('Excel.Application');
  except
    Excel:= CreateOleObject('Excel.Application');
  end;
  ...

Para lo segundo mira si te sirve este [enlace].

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 19-01-2013 a las 16:09:03. Razón: ortografía
Responder Con Cita