Ver originales (Francés)

Recuperación de datos desde un libro de Excel

goldrigger -  
 goldrigger -
Hola,

He creado una hoja de cálculo de Excel que contiene celdas que obtienen datos de otra hoja de cálculo. Para ello, he hecho copiar/pegar con vínculo. Pero el problema es que hay que abrir la hoja de cálculo fuente cada vez.

¿Tienes alguna idea para recuperar datos de esta hoja de cálculo sin abrirla? 
Configuración: Windows XP Firefox 2.0.0.11 Excel 2003

4 respuestas

  1.
    tenace Mensajes publicados 840 Estado Miembro 224
     
    Buenas noches,
    Sin estar seguro de inmediato, intenta con la función insertar ---> objeto, y ahí eliges el libro de trabajo a vincular
    a+
    Kev.
    0
  2. goldrigger
     
    Hola tenaz,

    He intentado pero yo solo necesito ciertos valores de las celdas del libro. Y ahora, cuando se hace clic en el objeto, es el libro el que se abre. Es cierto que es mejor que abrirlo manualmente, pero no es exactamente lo que quiero.

    Gracias de todos modos.
    0
  3. michel_m Mensajes publicados 18903 Fecha de registro   Estado Colaborador Última intervención   3 320
     
    Hola Tenace, Goldrigger

    La macro a continuación llamada "Walkenbach" extrae el valor de las celdas A1 (R1C1), B2 (R2C2) etc. de un archivo cerrado "source.xls"; el libro cerrado y el libro "host" están aquí en la misma carpeta: adáptalo a tu caso y a tus celdas

    Sub leer_cerrado()

    Dim ruta As String

    ruta = ThisWorkbook.Path
    Range("A3") = ExecuteExcel4Macro("'" & ruta & "\[source.xls]Hoja1'!R1C1")
    Range("B4") = ExecuteExcel4Macro("'" & ruta & "\[source.xls]Hoja1'!R2C2")
    Range("C8") = ExecuteExcel4Macro("'" & ruta & "\[source.xls]Hoja1'!R5C3")
    Range("E9") = ExecuteExcel4Macro("'" & ruta & "\[source.xls]Hoja1'!R7C4")
    End Sub

    Buenas noches
    Michel
    0
  4. goldrigger
     
    Hola Michel_m,

    de hecho es una buena solución, pero para cada dato debemos validar el archivo fuente. Si hay muchos datos, puede tardar tiempo.

    Gracias.
    Que tengas un buen día.
    0