Quiero que una macro me guarde el libro como.. Con el nombre y día anterior en la misma ruta
Buenos días,
Estoy intentando que una macro me guarde el libro con el nombre y la fecha del dia anterior en la misma ruta del archivo original, pero me la guarda en otro lugar:
Esta es la macro que utilizo
Workbooks.Open Filename:="S:\Madrid Shared\SHARED FOLDER\IHR\IHR-Status-Base.xlsx"
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Dim sFile As String
sFile = "IHR-Status" & Format(Now - 1, "ddmmyyyy")
ActiveWorkbook.SaveAs sFile & ".xlsx"
gracias.
1 Respuesta
Si, es así como sucede. Si le dieras la orden Save se guardaría en el mismo directorio, pero la orden Save no admite el cambio de nombre y te sobreescribiría el que tienes. Cuando se da la orden SaveAs se guarda en la ruta que pones, y si no pones ruta se guarda en la carpeta predeterminada que normalmente es la de Documentos del usuario.
Para que lo haga como tu quieres debes añadir la ruta al nombre del fichero que guardas.
Puedes usar una variable ruta para escribir menos
ruta = "S:\Madrid Shared\SHARED FOLDER\IHR\"
Workbooks.Open Filename:=ruta & "IHR-Status-Base.xlsx"
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Dim sFile As String
sFile = "IHR-Status" & Format(Now - 1, "ddmmyyyy")
ActiveWorkbook.SaveAs ruta & sFile & ".xlsx"
