Oracle - Excel -- OLE2

 
Vista:

Excel -- OLE2

Publicado por viviana (16 intervenciones) el 24/07/2007 16:56:40
hola a todos tengo el siguiente problema, tengo un procedimietno, abajo mostrado, el cual me abre un documento de excel, en windows XP, me abre sin ningun problema pero en windows 2000 me dice que no lo encuentra, pero si yo abro directamente el archivo desde la ruta de ubicacion si lo abre, solo que desde la forma no, que podrà ser?

PROCEDURE capture_archivo IS
v_ruta varchar2 (1000);
application OLE2.OBJ_TYPE;
workbooks OLE2.OBJ_TYPE;
workbook OLE2.OBJ_TYPE;
worksheets OLE2.OBJ_TYPE;
worksheet OLE2.OBJ_TYPE;
cell OLE2.OBJ_TYPE;
args OLE2.LIST_TYPE;
hFontObj2 ole2.obj_type;
BEGIN
begin
IF :ARCHIVO_FIRMA IS NOT NULL THEN
v_ruta := RTRIM(gnl_parametro_emp_v_nx(:cia_toolbar,'FAC','RUTA FIRMAS DE CLIENTES XLS')) || rtrim(ltrim(RTRIM(:ARCHIVO_FIRMA,'.tif')))||'.xls';
IF v_ruta is not null then
Application:=OLE2.CREATE_OBJ('Excel.Application');
OLE2.SET_PROPERTY(application, 'Visible', 'True');
WORkBOOKS := OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, v_ruta);
--
--workbook := OLE2.INVOKE_OBJ(workbooks,'Open',args);
--worksheets := OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');
--
workbook := OLE2.GET_OBJ_PROPERTY(workbooks, 'Open', args);
OLE2.DESTROY_ARGLIST(args);
END IF;
END IF;
exception
when Others then
message ('No existe el archivo, o no fue posible abrirlo.'||SQLERRM);
raise form_trigger_failure;
end;
END;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder