Creación de carpeta con Excel
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
-
Colaborador
-
-
Colaboradorhttps://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. -
@regcalNecesito un ejemplo de la A a la Z y debería lograrlo, ¿verdad?
¿Dónde debo enviar un archivo de prueba? -
-
@regcalJe suis désolé, mais je ne peux pas accéder aux fichiers sur votre appareil. Si vous avez besoin de traductions, vous pouvez copier et coller le texte ici.
-
-
-
ColaboradorEntonces, si un buen alma puede ayudar a Steen37 a mostrarle cómo hacer esta macro, gracias de antemano.
-
Colaborador¿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 -
ColaboradorDeberí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
