COMO FECHAR PLANILHA COM VBA???

MARCOS 15/06/2011 11:02:43
#376815
Prezados colegas,
Estou usando o código abaixo para abrir uma planilha do Excel , edita-la e depois salvar no mesmo local.
Funciona perfeito. Mas o problema é que depois de executar a linha :

[ô]Salva relatório atual
EwkB.Sheets([Ô]Rel[Ô]).SaveAs App.Path & [Ô]\[Ô] & [Ô]Rel\Rel1.xls[Ô]

aparece uma mensagem do Excel, perguntando se você tem certeza que quer fazer as mofificações.
Ora,quando meu cliente for executar esta funcionalidade,eu não quero que esta mensagem de aviso
apareça.Existe um modo de salvar sem que o Excel me faça esta pergunta???


Agradeço qualquer ajuda.




[ô]Declara variáveis
Dim Desktop As String

[ô]---------------------------------------
[ô]Abre a planilha
[ô]---------------------------------------

[ô]Cria objeto para representar a aplicação
Set Eapp = CreateObject([Ô]excel.application[Ô])

[ô]Torna o plicativo Excel invisivel
Eapp.Application.Visible = False

[ô]Cria objeto para representar o arquivo
Set EwkB = Eapp.Workbooks.Open(App.Path & [Ô]\[Ô] & [Ô]Rel\Rel1.xls[Ô])

[ô]Cria objeto para representar a planilha
Set EwkS = EwkB.Sheets([Ô]Rel[Ô])

[ô]Seleciona a planilha desejada
EwkB.Sheets([Ô]Rel[Ô]).Select

[ô]---------------------------------------------
[ô]Edita o relatório
[ô]---------------------------------------------

EwkB.Sheets([Ô]Rel[Ô]).Cells(2, 2).Value = [Ô]Cliente:[Ô]
EwkB.Sheets([Ô]Rel[Ô]).Cells(3, 2).Value = TxtCliente.Text

[ô]-------------------
[ô]Salva arquivo Excel
[ô]-------------------

[ô]Salva relatório atual
EwkB.Sheets([Ô]Rel[Ô]).SaveAs App.Path & [Ô]\[Ô] & [Ô]Rel\Rel1.xls[Ô]

[ô]--------------
[ô]Fecha planilha
[ô]--------------
EwkB.Close

[ô]-----------
[ô]Fecha Excel
[ô]-----------
Eapp.Application.Quit


[ô]Descarta objetos
Set EwkB = Nothing: Set Eapp = Nothing: Set EwkS = Nothing
KERPLUNK 15/06/2011 11:30:19
#376817
Certamente existe alguma propriedade que suprime essa mensagem. Não sei dizer qual, mas certamente existe.
IRENKO 15/06/2011 11:34:46
#376819 Resposta escolhida
Application.DisplayAlerts = False
IRENKO 15/06/2011 11:38:36
#376820
Ficria assim nessa linha:

[ô]Fecha Excel
[ô]-----------
Eapp.Application.DisplayAlerts = False
Eapp.Application.Quit
MARCOS 15/06/2011 12:44:53
#376825
IRENKO,
Muito obrigado!!!!!!!!!!!!!!!!!!!!!
Funcionou perfeito.

Obs: A única resalva que faço é a de que a propiedade:

Eapp.Application.DisplayAlerts = False

[Ô]Tem[Ô] de ser colocada antes de se salvar o arquivo.Do contrário, a mensagem continua aparecendo.
Tópico encerrado , respostas não são mais permitidas
Voltar