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.
Si a alguien se le ocurre algo se lo agradeceria.
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
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
0