Crear carpeta y subcarpeta

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

2 respuestas

Respuesta
2
Esta rutina hace lo que necesitas. Va en un módulo o dentro de 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
Respuesta
Puedes probar la siguiente macro:
Sub crea_carpetas()
Dim Nom_Carpeta As String
Nom_Carpeta = Range("A1").Value
If Nom_Carpeta = "" Then
MsgBox "Nombre Invalido." & Chr(13) & "Las carpetas no se crearán", vbOKOnly, "Error!!!"
Exit Sub
End If
Dim Nom_SubCarpeta As String
Nom_SubCarpeta = Range("A2").Value
If Nom_SubCarpeta = "" Then
MsgBox "Nombre Invalido." & Chr(13) & "Las carpetas no se crearán", vbOKOnly, "Error!!!"
Exit Sub
End If
On Local Error Resume Next
MkDir "C:\" & Nom_Carpeta
MkDir "C:\" & Nom_Carpeta & "\" & Nom_SubCarpeta
End Sub
Bueno, ya me dices si es lo que necesitas.
¿Cuál sería la ruta que quieres ponerle? (Disco duro o unidad de red, nombre de la carpeta, etc)
Prueba esta macro para comprobar si funciona la instrucción:
Sub crea_carpetas()
Mkdir "C:\Probando"
End Sub
Ante todo es de agradecer la rapidez en la respuesta pero por mucho que lo intento no me crea la carpeta ni subcarpeta, quizá con otra opción como
"createfolder" te lo comento sin saber
cual es el procedimiento ... gracias
Funciona ... pero sigo sin poder crear la carpeta y subcarpeta con el valor de una celda, la ruta la determino con el valor de "esa" celda
Pues si acepta la instrucción Mk dir el problema está en otro lado...
Mándame la Macro que estás utilizando exactamente o
si quieres, mándame el Excel a: [email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Borrar celdas de otra hoja

Intente grabar una macro de la siguiente forma: Private Sub CommandButton1_Click() ' ' Macro1 Macro ' Macro grabada el 06/08/2009 Sheets("Hoja2").Select Range("A1:K40").Select Selection.ClearContents Sheets("Hoja1").Select Range("A1").Select End Sub...
1 respuesta

Macro para guardar archivo con el valor de una celda

No domino demasiado las macros pero he estado buscando en internet alguna macro para poder guardar un archivo con el nombre de una celda y he encontrado esto; Sub guardaarchivo() ' Te guarda el archivo con la extensión que requieras y en el lugar...
1 respuesta

FollowHyperlink en access para ubicar cualquier ruta

Tengo un formulario que posee un control de lista de texto al cual voy agregando nombres de archivos de word en tipo plantilla "dot". Los archivos están ubicados en una carpeta en el directorio que se encuentra la base de datos. Lo que se necesita es...
1 respuesta

Redefinir ruta de imágenes por ruta de dropbox

Maestro Svein Un gusto verlo. En esta ocasión y retomando el hilo de unas de mis consultas, quisiera preguntarte lo siguiente: He adaptado un ejemplo del master Neckkito (Imágenes en formularios). Encuentro algo interesante en esto. Tengo 4 cuadros...
1 respuesta

Incremento de factura y guardado automático

Tengo una pequeña duda y os la quería comentar a ver si me la pidiais explicar, lo que pasa es que he creado una plantilla de una factura con excel y lo que me gustaría es automatizarla lo más posible que se pueda y pues lo que busco es poder hacer...
1 respuesta

Listar rutas de carpetas dentro de otra carpeta

Soy muy nuevo en esto, he empezado hace poco con las macros y es algo que me parece interesante, de momento voy investigando con las que me bajo, las voy modificando a mis necesidades. Ahora necesito para el trabajo lo siguiente: Supongamos que tengo...
11 respuestas

Exportar de Excel a un archivo de texto

Necesito exportar un rango de datos de Excel de longitud variable a un archivo de txt en una ruta fija 'el rango lo selecciono Range("E1").Select Range(Selection, Selection.End(xlDown)).Select en las celdas de la hoja hay otros datos que no necesito...
1 respuesta

Hipervínculo y generar pdf

Estoy haciendo una base de datos en access 2003 y tengo alguna duda, te agradecería tu ayuda, te comento el caso Hipervínculo Quiero unir un documento pdf a un registro de Access, El documento pdf se llama igual que el campo "ref" de una tabla de...
1 respuesta

Botón en formulario access que abra excel dependiendo la ruta del valor de campo del registro activo

Soy nuevo en todoexpertos. Teniendo conocimientos limitados sobre Access, necesito incluir en un formulario un botón de comando que llamaré "Citar" que me lleve al libro Excel (agenda) del profesional oportuno que está identificado en un campo del...
1 respuesta

Macro copiar y pegar ruta de Archivo en celda

Tengo una macro que me deja elegir una carpeta y me muestra su ruta en un MsgBox, pero también necesito que copie esa ruta y me la pegue en una celda.Es algo sencillo pero se me ha dificultado un pocoEste es el códigoPrivate Type BROWSEINFO ' used by...
1 respuesta