O Código abaixo serve para verificar a última data de modificação de um arquivo qvd e alertar-me se estou trabalhando com dados antigos ou estou com os dados atualizados.
Faço minhas consultas e gero estes arquivos para trabalho, então como as vezes fico muito tempo sem carregar dados, decidi fazer este código.
Primeiro,
Ao dar carga, atualizo a data do arquivo
LET dtUltAtual = (QvdCreateTime('caminho_do_meu_arquivo.qvd'));
Segundo,
Tenho dois disparadores no documento:
Um para Definir uma variável chamada dtTemp, que recebe o valor de dtUltAtual
Um segundo disparador para Executar Macro, chamada Alerta
Terceiro,
Para executar sem problemas, tive de selecionar "Permitir Acesso ao Sistema" em Segurança Local Atual.
Código da macro:
Sub Alerta
Dim fso, f
Dim dtAnt
Dim dtModArq
Set fso = CreateObject("Scripting.FileSystemObject")
