Guardar hoja en una subcarpeta creada en la misma macro
Tengo la siguiente macro que crea una carpeta, de nombre el año en curso y una subcarpeta de nombre el mes y el año, como se modificaria para que la misma macro guardase la hoja "Parte" dentro de la subcarpeta, cualquier sugerencia para mejorar la macro también se aceptaría, gracias.
Sub CreaCarpetas()
Ruta = "C:\Users\Jesus Garcia\Desktop\"
año = Format(Date, "YYYY")
mes = Format(Date, "mmmm-YYYY")
On Error Resume Next
MkDir Ruta & "\" & año
MkDir Ruta & "\" & año & "\" & mes
End Sub
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro actualizada, cambia en la macro "Parte.xlsx", por el nombre que va a tener el nuevo archivo.
Sub CreaCarpetas()
'Act.Por.Dante Amor
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ruta = "C:\Users\Jesus Garcia\Desktop\"
'ruta = "C:\trabajo\"
año = Format(Date, "YYYY")
mes = Format(Date, "mmmm-YYYY")
On Error Resume Next
MkDir ruta & "\" & año
MkDir ruta & "\" & año & "\" & mes
On Error GoTo 0
'
ruta = ruta & año & "\" & mes & "\"
arch = "Parte.xlsx"
Sheets("Parte").Copy
ActiveWorkbook.SaveAs Filename:=ruta & arch, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
MsgBox "Hoja Parte copiada"
End Sub
