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

1 respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas