Gravar Ficheiro com data do dia incorporado no Nome

Se pretendermos gravar um ficheiro e que o mesmo contenha, na sua identificação, a data em que foi criado/alterado, podemos utilizar a seguinte peça de código VBA:

 

‘—————————————————————————————

‘ Procedure : GRAVA

‘ DateTime  : 11-02-2012 18:40

‘ Author    : Jorge Rodrigues

‘ Purpose   : Gravar com a data do dia e nome do ficheiro. Sintaxe DDMMAAAA_NomeFich.xlsm

‘—————————————————————————————

‘

Sub Grava()

Dim MyDate As Date

   On Error GoTo 0

MyDate = Date

    ActiveWorkbook.SaveAs Filename:= _

        MyDate & “_NomeFich.xlsm”, FileFormat:=xlNormal, _

        Password:=””, WriteResPassword:=””, ReadOnlyRecommended:=False, _

        CreateBackup:=False ‘ em que NomeFich será o nome do Ficheiro personalizado

   On Error GoTo 0

   Exit Sub

End Sub