Segue Código:
1 BEGIN
2 v_param := ole2.create_arglist;
3 ole2.add_arg (v_param,:B_FIND_ARQUIVO.NOME_ARQUIVO);
4 v_obj_workbook := ole2.get_obj_property(v_obj_workbooks, 'Open', v_param);
5 ole2.destroy_arglist(v_param);
6 v_obj_worksheets := ole2.get_obj_property(v_obj_workbook, 'Worksheets');
7 EXCEPTION
8 WHEN OTHERS THEN
8 nDummy := FR_SHOW_ALERTA('Erro ao abrir planilha','PARAR');
10 END;
O que eu fiz ... instalei Excel 2010 e agora 2003 para testar
Alterei a CLASSPATH do arquivo default.env incluindo jacob.jar
Inclui uma exception para tratar erro OLE2.OLE_ERRO que me retornou a seguinte mensagem:
"Não é possivel opter a propriedade Open da classe WorkBooks (Cód. 1004)"
Alguma sugestão ?