Problema al abrir libro

3 envíos / 0 nuevos
Último envío
all200655
Imagen de all200655
Offline
última acción: Hace 2 meses 4 días
alta: 06/09/2018 - 10:51
Puntos: 35
Problema al abrir libro

Hola a tod@s,

Estoy realizando una función en la que intento hacer una busqueda de información en otros libros del directorio para traerla a una celda determinada. 
El problema es que al intentar abrir un libro/fichero a través de la función, no lo hace; sin embargo si ejecuto con F5 la sub RecorridoDirectorio, si lo abre.  Espero haberme explicado con claridad. Adjunto el código:


Módulo 1:
Option Explicit
Global LookValue As Variant

Function LlamadaMacrosPrivado(Look_Value As Variant)
LookValue = Look_Value

RecorridoDirectorio

End Function


Módulo 2:
Sub RecorridoDirectorio()

Dim Ruta, Archivos, cad, cad2 As String
Ruta = "C:\Users\joica\Desktop\ANTONIO\Inventario"

Archivos = Dir(Ruta & "\*.xl*")
Application.ScreenUpdating = False

Do While Len(Archivos) > 0

cad = Mid(LookValue, 3, 4)
cad2 = Mid(Archivos, 1, 4)
If cad <> cad2 Then
GoTo NextFile
End If
'solo abre un libro que cumple la condición que cad y cad2 son iguales
Workbooks.Open Filename:=Ruta & "\" & Archivos, ReadOnly:=True

' resto codigo

ActiveWorkbook.Close savechanges:=False

NextFile:
Archivos = Dir()

Loop
'Application.ScreenUpdating = True

ActiveWorkbook.Save
End Sub

Gracias de antemano.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 12 horas 43 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9595
¿desde dónde estás llamando a

¿desde dónde estás llamando a la función?

¿cómo es esa llamada?

¿te da algún error?

 

 

Data Tools Suite
datos y tablas con Excel

all200655
Imagen de all200655
Offline
última acción: Hace 2 meses 4 días
alta: 06/09/2018 - 10:51
Puntos: 35
Estoy llamando a la función

Estoy llamando a la función desde las celdas de una tabla de un libro llamado Ventas.xlsm. Así se realiza la llamada: =LlamadaMacrosPrivado([@[CÓDIGO PRODUCTO]]) (aunque faltan mas argumentos, que no quiero introducir todavia, hasta ver que me funciona la apertura del fichero, utilizando la depuración con F8 y punto de ruptura.) La función me devolvería la descripción del articulo buscado en los libros que mantengo cerrados. Solo Ventas está abierto y con el código vba.

En cuanto a la tercera pregunta, no me da ningun error. Por eso me tiene confuso. Si me diera algun error seria estupendo pues así podria solucionar el problema.

Muchas Gracias por reponder.