MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Macro Definir Aviso

    avatar
    ddoc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/08/2011

    [Resolvido]Macro Definir Aviso Empty [Resolvido]Macro Definir Aviso

    Mensagem  ddoc 27/8/2014, 04:21

    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?
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    [Resolvido]Macro Definir Aviso Empty Re: [Resolvido]Macro Definir Aviso

    Mensagem  LiveBrain 27/8/2014, 13:19

    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()


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    avatar
    ddoc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/08/2011

    [Resolvido]Macro Definir Aviso Empty Re: [Resolvido]Macro Definir Aviso

    Mensagem  ddoc 28/8/2014, 15:05

    Prezado LiveBrain,

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

    Obrigado
    avatar
    ddoc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 05/08/2011

    [Resolvido]Macro Definir Aviso Empty Re: [Resolvido]Macro Definir Aviso

    Mensagem  ddoc 28/8/2014, 16:32

    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!

      Data/hora atual: 27/1/2022, 00:24