Excel - Leer valor de otro fichero de excel

   
Vista:

Leer valor de otro fichero de excel

Publicado por Miguel Angel (1 intervención) el 22/02/2013 18:38:30
He leido bastantes hilos y no consigo encontrar el problema de porque no me lee un valor de una casilla en concreto de otro libro. Lo he probado de varias maneras incluso con codigos que no comprendia y nada.

A la función le paso un valor mediante el cual creo el nombre del fichero y otro valor que es el nombre de la carpeta en la que se encuentra y me tiene que devolver el valor de una celda en concreto.


Public Function FechNaci(nombre As String, Carpeta As String) As Date
nombre = LCase(nombre)
nombre = Acentos(nombre)
nombre = Espacios(nombre)
nombre = comas(nombre)
Dim ruta As String

ruta = SubirNivel(ThisWorkbook.Path) + "\" + Carpeta + "\"
ruta = ruta + "[FICHERO_" + nombre + ".xlsm]"

Workbooks.Open Filename:=ruta

FechNaci = Workbooks(ruta).Sheets("Resumen").Range("C7").Value


End Function

Public Function SubirNivel(ruta As String)
ruta = StrReverse(ruta)
ruta = StrReverse(Right(ruta, Len(ruta) _
- Application.Find("\", ruta, 1)))
SubirNivel = ruta
End Function

Si a alguien se le ocurre algo se lo agradeceria.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder