Bom dia,
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")
Set f = fso.GetFile("path_para_seu_arquivo.qvd")
dtAnt = ActiveDocument.Variables("dtTemp").GetContent.STRING
dtModArq = f.DateLastModified
If (CDate(dtModArq) > CDate(dtAnt)) then
MsgBox("Sua última carga foi às " & FormatDateTime(dtAnt,vbGeneralDate) & " e o arquivo foi atualizado em " & FormatDateTime(dtModArq,vbGeneralDate))
End If
End Sub
Peterson da Rosa Silva
