Pergunte aqui
2

Definir Hora de Execução de Macro

perguntadas 2018-12-27 17:20:41 +0100

imagem do gravatar de crisdoxavier

updated 2019-02-17 17:01:57 +0100

No VBA, eu usava o Application.OnTime para definir a hora de execução de uma Macro. Como faço o mesmo no LibreOffice Basic?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

2

respondidas 2018-12-29 13:06:26 +0100

imagem do gravatar de Grafeno

Bom dia,

Uma opção é usar o código abaixo:

Sub AgendarMacro

   'Definir a Hora'
   vHoraAgenda = Date + TimeValue("09:58:30")

   'Verificar se já passou da hora'
   If vHoraAgenda < Now() Then Exit Sub

   'Agendar'
   WaitUntil vHoraAgenda

   'Executar a macro qdo a hora chegar'
   MsgBox Now()

End Sub

Você deve substituir MsgBox Now() por Call Nome_da_Macro para chamar a macro desejada na hora determinada pela instrução WaitUntil.

Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

@Grafeno Epa ! essa instrução WaitUntil não está documentada na Ajuda... Um achado arqueológico no código?!?! Você tem alguma fonte de informação para que eu possa montar a respectiva página da Ajuda? Obrigado!

imagem do gravatar de OlivierOlivier ( 2018-12-29 13:44:33 +0100 )editar

oops... achei o bug que relata essa falta de documentação... https://bugs.documentfoundation.org/s... ... Além da WaitUntil, tem muito mais funções a documentar... Voluntários?

imagem do gravatar de OlivierOlivier ( 2018-12-29 14:07:46 +0100 )editar

@Olivier, tem esta página do OpenOffice com uma breve descrição.

imagem do gravatar de GrafenoGrafeno ( 2018-12-29 17:14:48 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-12-27 17:20:41 +0100

Lidas: 30 vezes

Última atualização: Dec 29 '18