Data do qvd

    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