Forms fecha ao exportar dados p/ excel

[djoq]

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

[djoq]

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:

Selecionar tudo

		       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);*/