FileSearch
Publicado por Laura (1 intervención) el 11/12/2009 14:49:39
Gente, si utilizo la instruccion esta ok
With Application.FileSearch
.LookIn = strRuta
.FileType = msoFileTypeExcelWorkbooks
.Execute
If .FoundFiles.Count > 0 Then
....
Else
MsgBox "No se encontraron archivos para procesar. ", vbOKOnly
End If
End With
Cuando llevo esta macro a otra pc me da un error en la linea del FileSearch
Error 445 en tiempo de ejecucion
El objeto no admite esta accion
Alguien sabe qué componente me faltaría cargar?
El problema es que en mi pc donde anda ok, tengo todos los fuentes cargados. No quiero instalar un VB en la pc donde van a correr la macro. Como aislo el componente?
Gracias
With Application.FileSearch
.LookIn = strRuta
.FileType = msoFileTypeExcelWorkbooks
.Execute
If .FoundFiles.Count > 0 Then
....
Else
MsgBox "No se encontraron archivos para procesar. ", vbOKOnly
End If
End With
Cuando llevo esta macro a otra pc me da un error en la linea del FileSearch
Error 445 en tiempo de ejecucion
El objeto no admite esta accion
Alguien sabe qué componente me faltaría cargar?
El problema es que en mi pc donde anda ok, tengo todos los fuentes cargados. No quiero instalar un VB en la pc donde van a correr la macro. Como aislo el componente?
Gracias
Valora esta pregunta
0