Funcion Indirecto

Hola

Efectivamente, la función indirecto no funciona con libros cerrados,
deberías abrir todos y actualizar cada referencia, también puedes mirar la
página de Laurent Longre que tiene un complemento con una función
INDIRECT.EXT que funciona con libros cerrados.

http://xcell05.free.fr/english/

Un saludo,
Juan

Mensaje original

"JBB" escribió en el mensaje

La función Indirecto en Excel no se evalúa (devuelve #¡REF!) si el libro
al
que hace referencia está cerrado, sin embargo si escribes manualmente una
fórmula que haga referencia a una celda de un libro cerrado se evalúa
correctamente. Hay alguna forma de conseguir que la evalue la función
Indirecto?

Necesito leer la celda E100 de centenares de libros excel con datos para
hacer una gráfica de tendencia.
Lo que intento hacer es generar mediante fórmulas los nombres de los
libros
y luego evaluar la celda con Indirecto, pero como he comentado, devuelve
#¡REF! y no puedo tener todos abiertos por la cantidad.
Sin embargo si las voy escribiendo una a una a mano funciona perfectamente
y
me saca el valor de la celda E100 de cada libro alguna solución?

Gracias,

JBB

hola, !

La funcion Indirecto... devuelve #¡REF! si el libro al que hace referencia esta cerrado [...]
Necesito leer la celda E100 de centenares de libros excel con datos para hacer una grafica de tendencia.
Lo que intento hacer es generar mediante formulas los nombres de los libros y luego evaluar la celda
... y no puedo tener todos abiertos por la cantidad... alguna solucion?

si tus requerimientos de de tomar datos desde un libro cerrado UNA REFERENCIA A LA VEZ...
puedes probar con el metodo ExecuteExcel4Macro :)

te paso un ejemplo al final y...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

primer paso, una funcion [es una manera muy 'versatil'] ...
Function ExtraerDeArchivo( _
ByVal DelDirectorio As String, _
ByVal DelArchivo As String, _
ByVal DeLaHoja As String, _
ByVal DeLaReferencia As String)
Dim TomarDe As String
If Right(DelDirectorio, 1) <> "\" Then DelDirectorio = DelDirectorio & "\"
TomarDe = "'" & DelDirectorio & "[" & DelArchivo & "]" & DeLaHoja & "'!" & _
Range(DeLaReferencia).Range("a1").Address(, , xlR1C1)
ExtraerDeArchivo = ExecuteExcel4Macro(TomarDe)
End Function

segundo paso, 'como llamarla' ...
Sub ExtraerUnDato()
Dim Ruta As String, Archivo As String, Hoja As String, Referencia As String, Mensaje as String
Ruta = "C:\Mis documentos": Archivo = "Pruebas.xls": Hoja = "Hoja3": Referencia = "b25"
Mensaje = " Directorio: " & Ruta & vbCr & _
" Archivo: " & Archivo & vbCr & _
" Hoja: " & Hoja & vbCr & _
"Referencia: " & UCase(Referencia) & vbCr & _
"Lectura de la referencia al libro NO ABIERTO:"
MsgBox Mensaje & vbCr & ExtraerDeArchivo(Ruta, Archivo, Hoja, Referencia)
End Sub