Macro para grabar una copia del archivo en excel
Buenos días, de antemano gracias por la ayuda que me puedas brindar, mi pregunta es la siguiente:
Necesito una macro para que me guarde una copia del archivo en el que estoy trabajando con la fecha del día, solo la fecha, no la hora.
Necesito una macro para que me guarde una copia del archivo en el que estoy trabajando con la fecha del día, solo la fecha, no la hora.
Respuesta de Juan Carlos González Chavarría
1
a), puedes utilizar este código el cual toma la fecha de la celda BX1
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MiArchivo As String
MiArchivo = Range("BX1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\gaso\Escritorio\MADRE\SELECCION\GENERAL\RESPALDOS" & MiArchivo, _
FileFormat:=xlWorkbookDefault, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
[email protected]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MiArchivo As String
MiArchivo = Range("BX1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\gaso\Escritorio\MADRE\SELECCION\GENERAL\RESPALDOS" & MiArchivo, _
FileFormat:=xlWorkbookDefault, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
[email protected]
