Perfil MVP
Autenticação
Online
Gravar Ficheiro com data do dia incorporado no Nome
Sábado, 11 Fevereiro 2012 18:44 | Actualizado em Sábado, 11 Fevereiro 2012 18:46 | 
Escrito por Jorge Rodrigues | 
| 
| 
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