Si necesitas abrir un libro de Excel para importar o exportar datos de una hoja de ese libro puedes emplear el método Workbooks.Open:
VB
Dim RutaArchivo As String
RutaArchivo = "RutaArchivo/LibroAbierto.xlsx"
'incluir la extensión del archivo: .xlsm .xlsx
Workbooks.Open (RutaArchivo), ReadOnly:=True
'Ojo, Así lo abrimos como sólo lectura
'Workbooks.Open (RutaArchivo), Editable:=True, Password:="contraseña"
Windows("LibroInicial.xlsm").Activate
'Si no utilizas esta línea de código será visible el libro abierto
Worksheets("Hoja1").Cells(1, 1).Value = Workbooks("LibroAbierto").Worksheets("Hoja1").Cells(1, 1).Value
Workbooks(LibroAbierto.xlsx).Close
'No incluir la ruta para cerrar el libro
Deja una respuesta