Creación de carpeta con Excel
steen37
Mensajes publicados
10
Estado
Miembro
-
steen37 Mensajes publicados 10 Estado Miembro -
steen37 Mensajes publicados 10 Estado Miembro -
Hola,
A partir de un archivo de listado de Excel de una sola columna de nombres, deseo crear para cada nombre una carpeta en la que colocaré fotos, etc.
Gracias por su ayuda.
A partir de un archivo de listado de Excel de una sola columna de nombres, deseo crear para cada nombre una carpeta en la que colocaré fotos, etc.
Gracias por su ayuda.
5 respuestas
-
-
-
https://fr.wikipedia.org/wiki/Microsoft_Excel#Macros
y https://excel-malin.com/codes-sources-vba/creation-dossiers-et-sous-dossiers-en-vba/
si no, quizás una buena alma aquí podrá ayudarte a hacerlo si compartes tu archivo. -
-
-
-
-
-
Entonces, si un buen alma puede ayudar a Steen37 a mostrarle cómo hacer esta macro, gracias de antemano.
-
¿De qué versión de Excel se habla? ¿En qué nivel de actualización? ¿Sobre qué versión de Mac OS X?
--
¡Hola en su casa!
Bernard -
Deberías estar en la versión 14.7.6 actualmente.
Dicho esto, para crear carpetas en el escritorio con los nombres contenidos en las celdas A1:A3, puedes utilizar la siguiente macro:
Sub AutreTest()
Filas = 3 ' última fila del rango a tratar
For i = 1 To Filas
NombreCarpeta = Worksheets("Feuil1").Range("A" & i).Value
MiScript = "tell application " & Chr(34) & "Finder" & Chr(34) & Chr(13) & _
"do shell script ""mkdir -p "" & quoted form of posix path of (" & _
Chr(34) & "/Users/TuNombreAbreviado/Desktop/" & NombreCarpeta & Chr(34) & ")" & _
Chr(13) & "end tell"
On Error Resume Next
MacScript (MiScript)
On Error GoTo 0
Next i
End Sub
Es evidentemente necesario adaptarlo a tus necesidades particulares (si tu rango es A6:A42, debes comenzar la lectura en 6 y no en 1 y el valor de la variable Filas debe ser 42 y no 3 - si no quieres crear las carpetas en el escritorio, necesitas adaptar la ruta, etc.)
¡Hola en su casa!
Bernard