Nombrar archivos con fecha y nombre
Muy buenas!, tengo una macro que me guarda una serie de archivos. Necesitaría que esos archivos me los guardase con la fecha correspondiente y con el nombre del archivo detrás (Por ejemplo 11-06-02-archivo1).
¿Se puede?.
Gracias de antemano y un saludo.
¿Se puede?.
Gracias de antemano y un saludo.
1 respuesta
Respuesta de ttella
1
A ver si te sirve algo así:
Sub Macro1()
Dim nombre
Dim archivo
archivo = ActiveWorkbook.Name
nombre = ActiveWorkbook.Path & "\" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & " - " & archivo
ActiveWorkbook.SaveAs FileName:=nombre, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
Un saludo,
Sub Macro1()
Dim nombre
Dim archivo
archivo = ActiveWorkbook.Name
nombre = ActiveWorkbook.Path & "\" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & " - " & archivo
ActiveWorkbook.SaveAs FileName:=nombre, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
Un saludo,
