Hola Soy Roberto y haciendo un trabajo me surgio la siguiente duda: La idea consiste en que con macros abro, desde mi Libro, un archivo excel, el cual después copio su unica hoja(importo) hacia mi libro que usa la macro.
El problema es que tengo una Restricción, la cual es que solo copia el archivo que tenga de nombre en su unica hoja como "Libro1", es decir, si se llama de otra forma, entonces no lo puedo importar.
Acá envio la macro que tengo, porfavor si me pueden ayudar :C
Sub copiarhoja1()
Set l1 = Workbooks("Programa Backlog")
With Application.FileDialog(msoFileDialogFilePicker)
Hola Soy Roberto y haciendo un trabajo me surgio la siguiente duda: La idea consiste en que con macros abro, desde mi Libro, un archivo excel, el cual después copio su unica hoja(importo) hacia mi libro que usa la macro.
El problema es que tengo una Restricción, la cual es que solo copia el archivo que tenga de nombre en su unica hoja como "Libro1", es decir, si se llama de otra forma, entonces no lo puedo importar.
Acá envio la macro que tengo, porfavor si me pueden ayudar :C
Sub copiarhoja1()
Set l1 = Workbooks("Programa Backlog")
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo de excel"
.Filters.Add "Archivos excel", "*.xls*"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
If .Show Then
Set l2 = Workbooks.Open(.SelectedItems.Item(1))
l2.Sheets("Libro1").Range("A1:AZ500000").Copy l1.Sheets("Backlog").Range("A2")
End If
End With
l1.Activate
Sheets("Backlog").Select
End Sub