FileSeach por FileSystemObject
Publicado por Enrique Ramírez (629 intervenciones) el 11/03/2015 18:55:17
En access XP hago búsquedas de libros de Excel en carpetas con el FileSearch, pero access 2007 ya no lo soporta, según la ayuda debo usar FileSystemObject.
De esta forma solo estoy obteniendo UN libro a la vez y eso tecleando el nombre de este, pero necesito que por medio de un bucle For obtener todos los libros de Excel que existan en cualquier carpeta que seleccione y guardalos en una lista.
con este código obtengo libro por libro pero debo teclear el nombre de cada uno y el bucle For que busco debe darme todos sin importar el nombre de cada libro
¿Alguién ya ha solucionado esto?
con el FileSearch lo hacía así:
De esta forma solo estoy obteniendo UN libro a la vez y eso tecleando el nombre de este, pero necesito que por medio de un bucle For obtener todos los libros de Excel que existan en cualquier carpeta que seleccione y guardalos en una lista.
con este código obtengo libro por libro pero debo teclear el nombre de cada uno y el bucle For que busco debe darme todos sin importar el nombre de cada libro
1
2
3
4
5
6
7
8
Dim objFS, objFileSet objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile("C:\HojasExcel\2015\Nominas\Quincena01.xls")
Me.listaNominas.AddItem (objFile.Name)
Set objFile = objFS.GetFile("C:\HojasExcel\2015\Nominas\Quincena02.xls")
Me.listaNominas.AddItem (objFile.Name)
Set objFile = objFS.GetFile("C:\HojasExcel\2015\Nominas\Quincena03.xls")
Me.listaNominas.AddItem (objFile.Name)
¿Alguién ya ha solucionado esto?
con el FileSearch lo hacía así:
1
2
3
4
For i = 1 To .FoundFiles.Count
varchivo = .FoundFiles(i)
Me.listacampos.AddItem (varchivo)
Next i
Valora esta pregunta
0
