Notifications
Clear all

Falha catastrófica

9 Posts
2 Usuários
0 Reactions
7,386 Visualizações
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Boa Noite Pessoal,

Já tem um tempo que não posto nada aqui no Fórum, os conhecimentos aqui adquiridos estão sendo muito úteis. Porém estou tendo um grande problema ao salvar meu sistema baseado em Excel VBA. Não estou conseguindo compreender o real motivo e Também não sei como simular o erro já que é aleatório. Mas notei que sempre ocorre quando eu aciono meu botão SAIR, este botão possui uma macro para salvar o Projeto. Não sei se esta relacionado ou não. Segue abaixo os simples códigos utilizado:

Private Sub cbsair_Click()
Application.DisplayAlerts = False 'Disabilita o prompt
ActiveWorkbook.Save 'Salva as alterações
Application.DisplayAlerts = True 'Habilita o prompt
MsgBox "SALVO/ SAIR"
Unload Me
End Sub

A falha que o Excel Acusa. Não abre o depurador.

---------------------------
Microsoft Visual Basic for Applications
---------------------------
Erro de sistema &H8000FFFF (-2147418113). Falha catastrófica
---------------------------
OK Ajuda
---------------------------

Alguém pode me ajudar...?

Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------

 
Postado : 12/09/2013 5:37 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uleodoro, se são somente estas as instruções que contem neste Botão, não precisa ter as insttruções "Application.DisplayAlerts = False / True", provavelmente o erro esteja vindo de outras rotinas acionadas antes de Salvar e fechar o Form, desabilite as duas instruções e procure seguir passo a passo a execução do processo desde o inicio para ver se detecta.
Só pelas instruções que postou, não é para gerar erro.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/09/2013 6:22 pm
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Eu já tinha pensado nisso. Acabei de fazer para ver o resultado. Volto a postar.

Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------

 
Postado : 12/09/2013 7:26 pm
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Mauro o Script para salvar ficou assim:

Private Sub cbsair_Click()

ActiveWorkbook.Save 'Salva as alterações

Unload Me
End Sub

MAs mesmo assim esta dando a falha catastrofica....eu não entendi nada...
e só na hora de salvar. Mesmo que eu feche o sistema e tente salvar a planinha pelo salvar do excel a falha permanece, causando a perda do trabalho realizado.

Será que temos algo para pesquisar?

Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------

 
Postado : 13/09/2013 1:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uleodoro, como eu disse, a principio não deveria ser pelas aquelas instruções, e fica um pouco dificil saber exatamente, uma vez que determinadas msg de erros podem ser referentes a diversas situações.

Você chegou a testar em outros computadores para verse tambem ocorre o erro ?
Se testou e tambem obteve o erro, se for possível o ideal seria disponibilizar seu arquivo completo para uma analise melhor e testar para ver se tambem ocorre o erro.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/09/2013 1:46 pm
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Já testei em outro PC. Mesmo resultado. Porém o mais curioso é que não da para saber quando ele vai ocorrer. É um erro aleatório. Acabei de repetir inúmeras vezes o ultimo procedimento para ver se acontecia o erro, nada aconteceu. Vou preparar uma versão do sistema e disponibilizo aqui.

Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------

 
Postado : 13/09/2013 6:01 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente postar seu arquivo modelo compactado, para que o pessoal possa te ajudar!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/09/2013 7:57 pm
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Recebi uma orientação sobre o erro. Eu teria que limpar os Scripts em busca de lixo de programação: códigos não mais utilizados que estão lá sem sentido. realizei uma primeira limpeza utilizando o DEPURAR/ COMPILAR PROJETOVBA. Conseguir eliminar muito código inútil, código sem utilização.

Aparentemente esta funcionando normalmente. Caso voltar a apresentar o erro postarei o modelo. Caso contrario darei como resolvido.

Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------

 
Postado : 16/09/2013 9:29 am
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Caso resolvido com o procedimento descrito anteriormente....

Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------

 
Postado : 23/09/2013 8:24 am