Crear carpeta y subcapertas
Hola, necesito crear automáticamente una carpeta con el nombre de una celda ( A1 )y subcarpeta según nombre en celda ( B12 ) y si estas existen siga la siguiente instrucción de la macro
Ante todo gracias
Ante todo gracias
1 respuesta
Respuesta de Elsa Matilde
1
La rutina que adjunto la copiarás en un módulo o en tu rutina principal.
Sub CREANDO()
Dim miRuta As String, miCarpeta As String, miSubcarp As String
'tomo la ruta del libro
miRuta = ThisWorkbook.Path
'el nombre de carpeta se toma de A1
miCarpeta = ActiveSheet.Range("A1")
'el nombre de subcarpeta se toma de B12
miSubcarp = ActiveSheet.Range("B12")
On Error Resume Next
'primero se crea la carpeta
MkDir miRuta & "\" & miCarpeta
'luego la subcarpeta
MkDir miRuta & "\" & miCarpeta & "\" & miSubcarp
End Sub
Saludos
Elsa
*** Más ejemplos y descargas en: http://es.geocities.com/lacibelesdepunilla/macros
Sub CREANDO()
Dim miRuta As String, miCarpeta As String, miSubcarp As String
'tomo la ruta del libro
miRuta = ThisWorkbook.Path
'el nombre de carpeta se toma de A1
miCarpeta = ActiveSheet.Range("A1")
'el nombre de subcarpeta se toma de B12
miSubcarp = ActiveSheet.Range("B12")
On Error Resume Next
'primero se crea la carpeta
MkDir miRuta & "\" & miCarpeta
'luego la subcarpeta
MkDir miRuta & "\" & miCarpeta & "\" & miSubcarp
End Sub
Saludos
Elsa
*** Más ejemplos y descargas en: http://es.geocities.com/lacibelesdepunilla/macros
