excel

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Si es para una sola vez, al igual haciéndolo a mano te sirve

Yo probaría lo siguiente:

Abrimos una ventana del DOS (en W-XP ejecutando el comando cmd)

Nos ponemos en el directorio que queramos

Ejecutamos DIR con o sin parámetros y comprobamos que los resultados son los
adecuados.

Volvemos a ejecutar DIR igual que antes (con a sin parámetros) pero al final
añadimos

MiFichero.txt

Con esto tendremos la respuesta del comando DIR en un fichero de texto.

Abrimos el fichero txt con el bloc de notas por ejemplo y eliminamos las
líneas iniciales y finales que nos sobran

He buscado algo en Excel como importar y no lo he encontrado, pero es igual,
dentro del bloc de notas seleccionamos todo y copiamos.

Ahora en Excel pegamos

Por ultimo, en Excel, seleccionamos la columna en la que hemos pegado los
datos y hacemos uso de DATOS --> TEXTO EN COLUMNAS que es muy intuitivo

SALUDOS.
Julián-Valencia-España

"paladin" escribió en el mensaje
news:
Hola a todos.
Quería saber si alguien me puede ayudar. El asunto es que tengo un
directorio con un montón de archivos, lo que quiero hacer es pasar
esos nombres de ficheros a una hoja excel.
Si lo tengo que hacer uno a uno tardaría un año. Alguien conoce
algún programa que lo haga?
o excel tiene la opción de hacerlo.
Un saludo y gracias de antemano.

Hola otra vez.
Probé lo que me dijiste y el asunto va por aí, en problema es que me
mete en el fichero los datos del directorio y no el nombre de los
archivos. Me muestra el espacio que ocupa, la fecha...pero no el nombre
de los ficheros. A lo mejor ai que ponerle un parametro.

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Pues yo poniéndome en mi directorio raíz de C: he puesto:

dir >> borrar.txt

y me sale algo parecido a:

El volumen de la unidad C no tiene etiqueta.
El n£mero de serie del volumen es: XXXX-XXXX

Directorio de C:\

05/03/2006 13:58 <DIR> Archivos de programa
28/01/2006 15:56 <DIR> XXXXXX
28/01/2006 15:37 21 AUTOEXEC.BAT
15/03/2006 22:39 12.386.697 XXXXXX.YYY
11/03/2006 00:58 <DIR> BORRAR
22/03/2006 12:14 0 borrar.txt
26/11/2005 19:52 0 CONFIG.SYS
26/11/2005 19:59 <DIR> XXXXXXXXXXXXXXXXXXXXXX
18/03/2006 14:17 <DIR> XXXXXXXXXXXXXXXX
21/01/2006 23:08 <DIR> XXXXX
04/12/2005 21:12 <DIR> XXXXXXXXXXX
22/03/2006 11:32 <DIR> WINDOWS
4 archivos 12.386.718 bytes
8 dirs 16.766.251.008 bytes libres

Aunque no muchos, veras que los ficheros si aparecen

Si pones

dir/?

tendrás mas información sobre el comando dir

SALUDOS.
Julián-Valencia-España

"paladin" escribió en el mensaje
news:
Hola otra vez.
Probé lo que me dijiste y el asunto va por aí, en problema es que me
mete en el fichero los datos del directorio y no el nombre de los
archivos. Me muestra el espacio que ocupa, la fecha...pero no el nombre
de los ficheros. A lo mejor ai que ponerle un parametro.

Muchas gracias.
Me funciona perfectamente.
Saludos y gracias de nuevo.

Hola Manuel,

Tienes razon - el segundo bucle es redundate. Es que he copiado un fragmento de otro codigo que tenia y le anadi otro bucle sin darle muchas vueltas :-) Mi despiste. Gracias por la puntualizacion.

Saludos,
KL


"Manuel Romero" <m.r.o.m.e.r.o.p@@@@h.o.t.m.a.i.lc.o.m.> wrote in message news:

Me permito hacerte un comentario KL, aunque tu codigo funciona, cual es
la razon de usar el vector vLista y ademas del Redim Preserve y de la
sobrecarga de usar Variants?, asi como vas recoriendo el sistema de
archivos cond Dir en el loop, puedes ir escribiendo en la hoja de
calculo con el mismo contador.

Tu codigo, mucho mas compacto (a mi modo de ver) y obviamente sin los
comentarios que lo hace ver aun mas corto

'-Inicio Codigo--
Const sRuta = "E:\Temp\" 'ruta hacia la carpeta
Const sFiltro = "*.xls"

Sub ExtraerNombres()
Dim sBusc As String, lCont As Long

Application.ScreenUpdating = False
lCont=1
sBusc=Dir(sRuta & sFiltro)
Do While sBusc<>""
Worksheets(1).Cells(lCont + 1, "A") = sBusc
lCont=lCont+1
sBusc=Dir()
Loop
End Sub
'-Fin Codigo--

Hola paladin,

Prueba hacer lo siguiente...

1) Con un libro en blanco abierto, haz clic-derecho sobre el pequeno logo de
Excel a la izquierda del menu Archivo 2) Elige la opcion 'Ver Codigo' para
abrir el editor VBA. 3) Una vez en el Editor VBA, ve al menu
Insertar>Modulo... 4) En la ventana mas grande a la derecha pega el codigo
que te pongo a continuacion (cambia la ruta, el filtro, la hoja y la fila y
la columna de la celda de inicio si es necesario):

'-Inicio Codigo--
Const sRuta = "E:\Temp\" 'ruta hacia la carpeta
Const sFiltro = "*.xls"

Sub ExtraerNombres()
Dim sBusc As String, lCont As Long, vLista As Variant

sBusc = Dir(sRuta & sFiltro)

'Sacamos la lista de los ficheros
If sBusc = "" Then Exit Sub
ReDim vLista(0)
Do While sBusc <> ""
vLista(UBound(vLista)) = sBusc
ReDim Preserve vLista(UBound(vLista) + 1)
sBusc = Dir()
Loop
ReDim Preserve vLista(UBound(vLista) - 1)

'Congelamos la pantalla
Application.ScreenUpdating = False
'Copiamos la extraccion a la columna [A] de la primera hoja
For lCont = LBound(vLista) To UBound(vLista)
Worksheets(1).Cells(lCont + 1, "A") = vLista(lCont)
Next lCont
'Descongelamos la pantalla
Application.ScreenUpdating = True
End Sub
'-Fin Codigo--


5) Pulsa Alt+F11 para volver a la hoja.
6) Ahora pulsa las teclas Ctrl+F8 y haz doble clic sobre "ExtraerNombres"
(tambien podrias asignar el codigo a un boton)

Saludos,
KL



"paladin" wrote in message
news: Hola a todos.
Quería saber si alguien me puede ayudar. El asunto es que tengo un
directorio con un montón de archivos, lo que quiero hacer es pasar
esos nombres de ficheros a una hoja excel.
Si lo tengo que hacer uno a uno tardaría un año. Alguien conoce
algún programa que lo haga?
o excel tiene la opción de hacerlo.
Un saludo y gracias de antemano.