¿Cómo importar o copiar datos desde un libro cerrado al libro de trabajo actual?
Es fácil copiar datos de una hoja abierta y pegarlos en otro libro abierto, pero ¿alguna vez ha intentado importar datos desde un libro cerrado a uno abierto? En este artículo le explicaré cómo hacerlo.
Importe datos desde un libro cerrado a Libro de trabajo actual con código VBA
Importe datos desde un libro cerrado a Libro de trabajo actual con Kutools para Excel
Importe datos desde un libro cerrado a Libro de trabajo actual con código VBA
El siguiente código VBA le permite copiar datos de un libro sin necesidad de abrirlo al libro activo actual. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del módulo.
Código VBA: Importe datos desde un libro cerrado a Libro de trabajo actual
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. A continuación, pulse la tecla F5 para ejecutar este código. En la ventana de Abrir archivo, seleccione el libro del que desea importar sus datos; consulte la captura de pantalla:
4. Luego, haga clic en el botón Abrir y aparecerá el cuadro de diálogo de KutoolsforExcel para recordarle que seleccione un rango de datos que desee importar a otro libro; consulte la captura de pantalla:
5.A continuación, haga clic en el botón Aceptar, en el cuadro de diálogo emergente, seleccione una celda donde desee colocar los datos; consulte la captura de pantalla:
6. Haga clic en Aceptar y los datos del libro cerrado se importarán al libro de trabajo actual.
Importe datos desde un libro cerrado a Libro de trabajo actual con Kutools para Excel
El código VBA puede resultar algo complicado para usuarios principiantes de Excel, por lo que aquí le recomiendo una herramienta práctica: Kutools para Excel. Con su función Insertar archivo en el cursor, podrá insertar rápida y fácilmente todo el contenido de una hoja de cálculo desde un libro cerrado.
Después de instalar Kutools para Excel, proceda como se indica a continuación:
1.Haga clic en KUTOOLS PLUS>Importar/Exportar>Insertar archivo en el cursor; consulte la captura de pantalla:
2. En el cuadro de diálogo Insertar archivo en el cursor, realice las siguientes operaciones:
(1.) Haga clic en el 
botón para seleccionar una celda donde desee colocar los datos importados;
(2.) Haga clic en el botón 
para seleccionar el libro del que desea importar sus datos.
Nota:Solo valores (sin fórmulas): Al activar esta opción, se importará únicamente el valor, sin incluir las fórmulas.
No transferir formato: Al activar esta opción, los datos se importarán en la hoja de cálculo sin ningún formato.
3. A continuación, haga clic en Aceptar. Si el libro contiene más de una hoja de cálculo, aparecerá un cuadro de diálogo de Seleccione una hoja de cálculo; especifique la hoja de cálculo de la que desea importar los datos. Consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y los datos de la hoja seleccionada se importarán al libro de trabajo actual.
¡Descargue y pruebe gratis Kutools para Excel ahora!
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos