Olá pessoal, utilizo Forms 6i e office 97 e 2000. Quando exporto dados de um bloco forms para excel, a mesma consulta, as vezes exporta e outras vezes fecha o forms. Muito estranho, alguém já passou por isso? Alguém sabe me ajudar?
Agradeço todo palpite, pois não tenho noção de onde possa estar o erro, já que as vezes funciona e as vezes não...
Obrigada
Forms fecha ao exportar dados p/ excel
-
- Rank: Programador Sênior
- Mensagens: 54
- Registrado em: Sex, 27 Jan 2012 8:16 am
- Localização: Londres UK
Olá, pessoal, após tentar várias soluções e retirar partes do código da procedure que migra para excel consegui resolver o meu problema comentando as linhas da parte da procedure que formatava a cor de fundo para as células.
Bom, ficou sem formatação na cor de fundo das células, mas foi a única forma de resolver. Se alguém souber o porque isso ocorre gostaria de saber.
Segue como ficou o trexo da procedure:
Bom, ficou sem formatação na cor de fundo das células, mas foi a única forma de resolver. Se alguém souber o porque isso ocorre gostaria de saber.
Segue como ficou o trexo da procedure:
w_argumentos := ole2.create_arglist;
ole2.add_arg(w_argumentos,w_nr_linha);
ole2.add_arg(w_argumentos,c);
--
w_celula := ole2.get_obj_property(w_planilha, 'Cells', w_argumentos);
--w_fonte := ole2.get_obj_property(w_celula, 'Font');
--w_interior := ole2.get_obj_property(w_celula, 'Interior');
--
ole2.set_property(w_celula, 'Value', w_valor );
ole2.set_property(w_celula, 'HorizontalAlignment', 3) ;
--ole2.set_property(w_interior, 'ColorIndex', 15 );
--ole2.set_property(w_fonte, 'Size', 10 );
--
w_argumentos := ole2.create_arglist;
ole2.add_arg(w_argumentos, c);
--
w_coluna := ole2.get_obj_property(w_planilha, 'Columns', w_argumentos);
If c = 5 then
ole2.set_property(w_coluna, 'ColumnWidth', 80);
else
ole2.set_property(w_coluna, 'ColumnWidth', w_largura );
end if;
ole2.destroy_arglist(w_argumentos);
ole2.release_obj(w_coluna);
--
/*ole2.destroy_arglist(w_argumentos);
ole2.release_obj(w_interior);
ole2.release_obj(w_fonte);
ole2.release_obj(w_celula);*/
-
- Informação
-
Quem está online
Usuários navegando neste fórum: Nenhum usuário registrado e 12 visitantes