Definir Hora de Execução de Macro

[crisdoxavier]

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?

[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,

[ohallot]

@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!

[ohallot]

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

[Grafeno]

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