¿Cómo importar/copiar datos de un libro cerrado al libro actual?

Es fácil para nosotros copiar datos de una hoja de cálculo abierta y pegarlos en otro libro abierto, pero, ¿alguna vez has intentado importar datos de un libro cerrado a uno abierto? En este artículo, hablaré sobre cómo importar datos desde un libro cerrado.

Importar datos de un libro cerrado al libro actual con código VBA

Importar datos de un libro cerrado al libro actual con Kutools para Excel

Importar datos de un libro cerrado al libro actual con código VBA

El siguiente código VBA puede ayudarte a copiar datos de un libro sin abrirlo al libro abierto activo. Por favor, sigue los siguientes pasos:

1. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Importar datos de un libro cerrado al libro 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. Luego presiona la tecla F5 para ejecutar este código, y en la ventana Abrir archivo, selecciona el libro del que deseas importar los datos, ver captura de pantalla:

4. Luego haz clic en el botón Abrir, y aparecerá un cuadro de diálogo de KutoolsforExcel para recordarte que selecciones un rango de datos que deseas importar a otro libro, ver captura de pantalla:

5. Luego haz clic en el botón Aceptar, en el cuadro de diálogo emergente, selecciona una celda donde deseas colocar los datos, ver captura de pantalla:

6. Y haz clic en Aceptar, los datos del libro cerrado se han importado al libro actual.

Importar datos de un libro cerrado al libro actual con Kutools para Excel

El código VBA puede ser algo difícil para los principiantes en Excel, así que aquí te recomiendo una herramienta práctica: Kutools para Excel, con su función Insertar archivo en el cursor, puedes insertar todo el contenido de una hoja de cálculo de un libro cerrado rápidamente y fácilmente.

Después de instalar Kutools para Excel, por favor, sigue los siguientes pasos:

1. Haz clic en Kutools Plus > Importar y Exportar > Insertar archivo en el cursor, ver captura de pantalla:

2. En el cuadro de diálogo Insertar archivo en el cursor, realiza las siguientes operaciones:

(1.) Haz clic en el botón para seleccionar una celda donde deseas colocar los datos importados;

(2.) Haz clic en el botón para seleccionar el libro del que deseas importar sus datos.

Nota: Solo valores (sin fórmulas): Si marcas esta opción, solo se importarán los valores y no las fórmulas.

No transferir formato: Marcar esta opción importará los datos en la hoja de cálculo sin formato.

3. Luego haz clic en Aceptar, si hay más de una hoja de cálculo en el libro, aparecerá un cuadro de diálogo Seleccionar una Hoja de Cálculo, por favor, especifica una hoja de cálculo de la que deseas importar los datos, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, los datos en la hoja de cálculo seleccionada se han importado al libro actual.

¡Descarga y prueba gratis Kutools para Excel ahora!