Crear carpetas masivas a partir de datos en columna

Discute sobre la aplicación de hojas de cálculo

Crear carpetas masivas a partir de datos en columna

Notapor pedrogarciahoya » Mar Sep 08, 2020 6:10 pm

Buenas tardes
Sé que con excel a través de la ejecución de una macro, se puede conseguir crear carpetas en windows de forma masiva asignado los nombres de un listado de una hoja de cálculo. Condición que todos los nombres estén en una misma columna. He intentado buscar el equivalente con openoffice pero por desconocimiento no he tenido mucho éxito. Tengo una lista de 80 elementos para los que quiero crear carpetas y subcarpetas y me sería de gran utilidad.

El código de basic que se introduce es el siguiente:
Código: Seleccionar todo   Expandir vistaContraer vista
Sub CrearCarpetas()

ruta = InputBox("Ingresa la ruta donde quieres crear las carpetas")
celda = InputBox("Primera celda")
Range(celda).Select
Do While ActiveCell.Value <> ""
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
End Sub 

Alguien me puede ayudar. He buscado en el foro, pero no he encontrado un hilo que se ajustara a mi problema. Gracias de antemano!!
Última edición por PepeOooSevilla el Mar Sep 08, 2020 7:06 pm, editado 1 vez en total
Razón: Etiquetas [code]
WINDOWS 10 Open office 4.1.6
pedrogarciahoya
 
Mensajes: 1
Registrado: Mar Sep 08, 2020 5:58 pm

Re: Crear carpetas masivas a partir de datos en columna

Notapor FJCC-ES » Mar Sep 08, 2020 8:06 pm

El código en OpenOffice no es muy diferente al código en Excel.
Código: Seleccionar todo   Expandir vistaContraer vista
Sub Main

ruta = InputBox("Ingresa la ruta donde quieres crear las carpetas")
celda = InputBox("Primera celda")
oHoja = ThisComponent.CurrentController.ActiveSheet
oCelda = oHoja.getCellrangeByName(celda)
Columna = oCelda.CellAddress.Column

Do While oCelda.String <> ""
  MkDir (ruta & "/" & oCelda.String)
  Fila = oCelda.CellAddress.Row
  oCelda = oHoja.getCellByPosition(Columna, Fila + 1)
Loop

End Sub
FJCC-ES
 
Mensajes: 733
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 2 invitados