Visual Basic - TRABAJAR CON DOS LIBROS EXCEL ABIERTOS

Sub SeleccionFichero()

Dim RUTAARCHIVO As String

Dim WB As Workbook

On Error Resume Next

RUTAARCHIVO = Application.GetOpenFilename(Title:="ARCHIVOS RESUMEN OFERTAS", filefilter:="Excel files (*.xlsx), *.xlsx")

Set WB = Workbooks.Open(RUTAARCHIVO, True, True)

Workbooks.Open Filename:=RUTAARCHIVO

'el archivo que abro es un excel, del cual quiero seleccionar un rango, copiarlo y pasarlo a una hoja del libro principal.

 Sheets("DATOS OFERTAS").Range("A12").Select

 ActiveCell.CurrentRegion.Select

 Selection.Copy

 Workbooks(1).Activate

 Sheets("RESUMEN OFERTAS").Range("A10").Select

 WB.Close False

 Set WB = Nothing

End Sub

Workbooks(RUTAARCHIVO).Worksheets("DATOS OFERTAS").Activate

Range("A12").Select

ActiveCell.CurrentRegion.Select

Selection.Copy

Workbooks(ARCHIVOCOPIA).Worksheets("RESUMEN OFERTAS").Activate

Range("A10").Paste