Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Utilidad de búsqueda

05/11/2004 - 10:35 por Aprendiz | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 4 respuestasRespuesta 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]


Respuesta 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]


Respuesta 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]
>
>


Respuesta 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]
>
>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida