Excel Macro Para Guardar Hoja Activa en un directorio
Alguien me puede ayudar con una Macro sencilla que Guarde la Hoja Activa del archivo de excel, en un directorio ya creado, con el nombre que se encuentra en una celda.
1 respuesta
Respuesta de Victor Rodriguez
Este te valdrá:
Sub test()
Dim nombre as string
nombre = Range("celda donde está el nombre").Value
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\Carpeta\Subcarpeta\" & nombre & ".xlsx"
End SubTendrás que modificar según la celda dónde está el nombre y la ruta donde quieras guardarlo
Gracias, esta muy bien, ¿podemos incluirle que si no encuentra la ruta la genere? ¿Ósea qué se pueda crear la dirección o carpetas? Gracias
Si claro, haría que incluir unas líneas y quedaría:
Sub test()
Dim nombre as string
nombre = Range("celda donde está el nombre").Value
FolderPath = "C:\Carpeta\Subcarpeta\"
If Dir(FolderPath, vbDirectory) <> vbNullString Then
Else
MkDir ("C:\Carpeta\Subcarpeta\")
End if
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\Carpeta\Subcarpeta\" & nombre & ".xlsx"
End Sub
