[Resolvido]Macro Definir Aviso

Caros colegas,

Criei uma macro para executar uma exportação de tabela para uma planilha Excel.

Consegui suprimir todos os avisos, com as funções definir avisos e echo.

O que eu quero suprimir e não estou conseguindo é a mensagem:

O arquivo xxxx.xlsx já existe.
Deseja substituir o arquivo existente?
Sim Não

Como faço para suprimir esta mensagem e deixar o SIM com default?

Opa amigo, eu faria da seguinte forma.

Coloque a função abaixo em um módulo existente ou num módulo existente

Código:


Function ExcluirArquivo()
    On Error GoTo aError
    Kill "C:\Teste.xlsx"
    aError:
End Function


Nessa função, altere o comando Kill para o caminho do seu arquivo

depois na sua macro, antes da Função SaidaPara coloque a função ExecutarCódigo e no parametro dela insira o ExcluirArquivo()

Prezado LiveBrain,

Não deu certo. Obrigado. Vou continuar procurando.

Obrigado

Resolvi assim:

Aproveitei o código fornecido pelo LiveBrain e ajustei assim:


Public Function ExcluirXls()

If Dir$("C:\sisfomento\sisfomD.xlsx") = "" Then
GoTo aError
Else
Kill "C:\sisfomento\sisfomD.xlsx"
End If
aError:
End Function

Obrigado a todos!