Você usa esta macro para registrar um histórico de versão
Existem muitas pastas de trabalho que devem ser salvas em intervalos fixos. Se você sempre usar um nome diferente, poderá seguir exatamente quais dados foram encontrados na pasta de trabalho em que momento.
É particularmente útil usar um carimbo de data e hora ao salvar o arquivo. Você usa uma combinação de data e hora como o nome do arquivo. Por exemplo, se o arquivo for salvo em 27/08/2008 às 10:32 e 26 segundos, o nome do arquivo será:
20080827-103226
A vantagem desse carimbo de data e hora é que a exibição dos arquivos em ordem alfabética (por exemplo, com o Windows Explorer) também corresponde à ordem cronológica.
Definir os nomes dos arquivos atuais manualmente é demorado e sujeito a erros. Em vez disso, use a seguinte macro:
Sub WithTimestampSave ()
Dim date timestamp As String
Escurecer agora como data
Now = Now ()
Carimbo de data e hora = Ano (data) e formato (mês (data), "00") e formato (dia (data), "00")
Date Time Stamp = Date Time Stamp & "-" & Format (Hour (Now), "00") & Format (Minute (Now), "00") & Format (Second (Now), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & carimbo de data e ".xls")
End Sub
Quando você chama a macro, a pasta de trabalho ativa é salva novamente no caminho de armazenamento anterior. O carimbo de data e hora é usado como o nome do arquivo, conforme mostrado na figura a seguir:
Se você também deseja incluir esta janela em sua macro, integre a seguinte linha de programa como uma nova linha separada na frente da linha End Sub:
MsgBox (ActiveWorkbook.Path)
