Últimos mensajes - Powered by IBM

Palabras claves

Utilidad de búsqueda

05/11/2004 - 10:35 por Aprendiz | Informe spam

Hola a todos
He tenido la suerte de que un amigo me ha pasado un código para hacer
busquedas selectivas dentro del ordenador. No conozco la fuente, pero le doy
las gracias a quien haya hecho esta gran utilidad.
Me gustaría añadir tres cosas, pero no se como hacerlo:
1) Que escribiera en otra columna el "peso" del archivo
2) Que escribiera en otra columna la fecha de la última modificación
3) Si se puede pedir la ruta (LookIn)con un imputbox para no tener que
modificar a mano el codigo VBA
Gracias anticipadas

'procedimiento VerBúsquedaDeArchivosEnHoja
'El siguiente procedimiento utiliza la propiedad FileSearch del objeto
Application para efectuar una búsqueda de los ficheros con extensión .XLS, y
presenta los ficheros (si los hay) en Hoja1:

Sub VerBúsquedaDeArchivosEnHoja()
Dim fsB As FileSearch
Dim n As Long

Set fsB = Application.FileSearch

With fsB

.NewSearch
.LookIn = "c:\Mis documentos" 'Directorio donde comenzará la
búsqueda, (se puede cambiar por otros p.e. -> c:/;d:/, etc)
.SearchSubFolders = True 'Si se buscará en los subdirectorios
.Filename = "*.xls" 'Patrón a buscar (p.e. otros:
*.xls;*.doc;*.txt;*.jpg; etc...

If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) > 0 Then

ActiveSheet.Range("b1") = "Ubicación"
For n = 2 To fsB.FoundFiles.Count

Worksheets("Plantilla").Cells(n, 2) = .FoundFiles(n) 'hoja
donde va a escribir
Next n

End If

End With

Set fsB = Nothing
End Sub

'Si la búsqueda se hace también en los subdirectorios (.SearchSubFolders True) los ficheros pueden no presentarse correctamente ordenados por su
nombre.

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Fernando Arroyo

05/11/2004 - 11:11 | Informe spam

"Aprendiz" escribió en el mensaje news:%

Hola a todos
He tenido la suerte de que un amigo me ha pasado un código para hacer
busquedas selectivas dentro del ordenador. No conozco la fuente, pero le doy
las gracias a quien haya hecho esta gran utilidad.

De nada (el código lo escribí yo) :-D

Me gustaría añadir tres cosas, pero no se como hacerlo:
1) Que escribiera en otra columna el "peso" del archivo
2) Que escribiera en otra columna la fecha de la última modificación
3) Si se puede pedir la ruta (LookIn)con un imputbox para no tener que
modificar a mano el codigo VBA
Gracias anticipadas

En la misma página donde tengo el código que pones en tu mensaje (http://www.excelsp.com/vba01.htm), hay disponible un libro de ejemplo que creo hace más o menos lo que necesitas:

http://www.excelsp.com/ejemplos/lis...nicial.xls

Un saludo.

Fernando Arroyo
MS MVP - Excel

'procedimiento VerBúsquedaDeArchivosEnHoja

[código]

Responder a este mensaje

#2 Aprendiz

05/11/2004 - 11:30 | Informe spam

Muchas gracias Fernando, si el anterior código es bueno éste es SENSACIONAL.
Gracias.
Una pregunta:
¿podría pedir con una línea de código el tipo de fichero, p.e. *.xls, *.jpg,
etc...?
Gracias de nuevo por todo.
Pepe Frasquet

"Fernando Arroyo" escribió en el mensaje
news:u8mOY$
"Aprendiz" escribió en el mensaje
news:%

Hola a todos
He tenido la suerte de que un amigo me ha pasado un código para hacer
busquedas selectivas dentro del ordenador. No conozco la fuente, pero le

doy

las gracias a quien haya hecho esta gran utilidad.

De nada (el código lo escribí yo) :-D

Me gustaría añadir tres cosas, pero no se como hacerlo:
1) Que escribiera en otra columna el "peso" del archivo
2) Que escribiera en otra columna la fecha de la última modificación
3) Si se puede pedir la ruta (LookIn)con un imputbox para no tener que
modificar a mano el codigo VBA
Gracias anticipadas

En la misma página donde tengo el código que pones en tu mensaje
(http://www.excelsp.com/vba01.htm), hay disponible un libro de ejemplo que
creo hace más o menos lo que necesitas:

http://www.excelsp.com/ejemplos/lis...nicial.xls

Un saludo.

Fernando Arroyo
MS MVP - Excel

'procedimiento VerBúsquedaDeArchivosEnHoja

[código]

Responder a este mensaje

#3 Fernando Arroyo

05/11/2004 - 13:06 | Informe spam

"Aprendiz" escribió en el mensaje news:

Muchas gracias Fernando, si el anterior código es bueno éste es SENSACIONAL.
Gracias.

De nada :-)

Una pregunta:
¿podría pedir con una línea de código el tipo de fichero, p.e. *.xls, *.jpg,
etc...?
Gracias de nuevo por todo.
Pepe Frasquet

He subido un libro que creo que hace lo que necesitas (pero pruébalo antes de fiarte "a ciegas" de él):

http://www.excelsp.com/ejemplos/lis...icial2.xls

Un saludo.

Fernando Arroyo
MS MVP - Excel

"Fernando Arroyo" escribió en el mensaje
news:u8mOY$
"Aprendiz" escribió en el mensaje
news:%
> Hola a todos
> He tenido la suerte de que un amigo me ha pasado un código para hacer
> busquedas selectivas dentro del ordenador. No conozco la fuente, pero le
doy
> las gracias a quien haya hecho esta gran utilidad.

De nada (el código lo escribí yo) :-D

> Me gustaría añadir tres cosas, pero no se como hacerlo:
> 1) Que escribiera en otra columna el "peso" del archivo
> 2) Que escribiera en otra columna la fecha de la última modificación
> 3) Si se puede pedir la ruta (LookIn)con un imputbox para no tener que
> modificar a mano el codigo VBA
> Gracias anticipadas
>

En la misma página donde tengo el código que pones en tu mensaje
(http://www.excelsp.com/vba01.htm), hay disponible un libro de ejemplo que
creo hace más o menos lo que necesitas:

http://www.excelsp.com/ejemplos/lis...nicial.xls

Un saludo.

Fernando Arroyo
MS MVP - Excel

> 'procedimiento VerBúsquedaDeArchivosEnHoja
[código]
>
>

Responder a este mensaje

#4 Aprendiz

05/11/2004 - 13:55 | Informe spam

Hola Fernando
Funciona perfectamente.
He añadido en una columna nueva la fórmula
=HIPERVINCULO(A2;B2)&"\"&E2
y ahora tengo además el vínculo que me abre el archivo.
Para mí es de gran utilidad. Gracias por todo.
Eres EXCELente.
Saludos
Pepe Frasquet

"Fernando Arroyo" escribió en el mensaje
news:euuer$
"Aprendiz" escribió en el mensaje
news:

Muchas gracias Fernando, si el anterior código es bueno éste es

SENSACIONAL.

Gracias.

De nada :-)

Una pregunta:
¿podría pedir con una línea de código el tipo de fichero, p.e. *.xls,

*.jpg,

etc...?
Gracias de nuevo por todo.
Pepe Frasquet

He subido un libro que creo que hace lo que necesitas (pero pruébalo antes
de fiarte "a ciegas" de él):

http://www.excelsp.com/ejemplos/lis...icial2.xls

Un saludo.

Fernando Arroyo
MS MVP - Excel

"Fernando Arroyo" escribió en el mensaje
news:u8mOY$
"Aprendiz" escribió en el mensaje
news:%
> Hola a todos
> He tenido la suerte de que un amigo me ha pasado un código para hacer
> busquedas selectivas dentro del ordenador. No conozco la fuente, pero le
doy
> las gracias a quien haya hecho esta gran utilidad.

De nada (el código lo escribí yo) :-D

> Me gustaría añadir tres cosas, pero no se como hacerlo:
> 1) Que escribiera en otra columna el "peso" del archivo
> 2) Que escribiera en otra columna la fecha de la última modificación
> 3) Si se puede pedir la ruta (LookIn)con un imputbox para no tener que
> modificar a mano el codigo VBA
> Gracias anticipadas
>

En la misma página donde tengo el código que pones en tu mensaje
(http://www.excelsp.com/vba01.htm), hay disponible un libro de ejemplo que
creo hace más o menos lo que necesitas:

http://www.excelsp.com/ejemplos/lis...nicial.xls

Un saludo.

Fernando Arroyo
MS MVP - Excel

> 'procedimiento VerBúsquedaDeArchivosEnHoja
[código]
>
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida