none
Executar Macro com intervavo de tempo RRS feed

  • Pergunta

  • Bom dia.

    Tenho a seguinte macro, com duas funções:

    Sub grava_web()
    '
    ' grava_web Macro
        ActiveWorkbook.RefreshAll  (atualiza com o banco de dados)

        ActiveWorkbook.Save  (salva a planilha)
    Call Application.OnTime(Now + TimeValue("00:01:01"), "grava_web")
    End Sub

    Preciso que o comando ActiveWorkbook.Save  somente seja executado depois de um tempo ou que seja executado depois do comando ActiveWorkbook.RefreshAll termine de atualziar.

     

    Eder

    quinta-feira, 13 de maio de 2010 11:57