Copiar datos de un libro al activo

Mi necesidad es la de generar una macro que me pregunte ¿Qué libro quiero abrir? Y una vez seleccionado me deje modificar filas y columnas a fin de crear una tabla dinámica. Para pasar información a mi libro actual.

Otra posibilidad sería la de una vez hecha la pregunta, me abra el libro, me lo copie en una hoja en blanco ( o una con el nombre de "copia", por ejemplo, pero me siga dejando continuar para crear la tabla dinámica.

La causa de preguntar es porque tengo un programa que me genera informes en excel, y cada vez que lo genera lo nombra distinto.

1 respuesta

Respuesta
2

H o l a:

Te anexo la macro para seleccionar un libro y abrirlo. El libro seleccionado quedará en pantalla para que puedas utilizarlo.

Sub AbrirArchivo()
'Por.Dante Amor
    Set h1 = ThisWorkbook
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Selecciona archivo de excel"
        .Filters.Add "xls.*", "*.xls*"
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path & "\"
        If .Show Then
            Set l2 = Workbooks.Open(.SelectedItems.Item(1))
        End If
    End With
End Sub

':)
':)

Se me para en la primera línea, Error de compilación, el procedimiento externo no es válido

¿Copiaste completa la macro?

¿Modificaste algo a la macro?

Puedes poner una imagen donde se vea el error cuando intentas ejecutar la macro.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas