Moverse entre libros, Excel macro

[RoberT89]

Hola compañeros,

Escribi este codigo para obtener informacion de dos libros de excel:

'para el libro actual
totallibro = Application.ThisWorkbook.Name

'abrir el otro libro
casalibro = Application.GetOpenFilename
Workbooks.Open casalibro

'Se copian los datos

'seleccionamos el libro que teníamos
Workbooks(totallibro).Activate

'se pegan los datos

'regresamos al libro anterior para copiar el siguiente set de datos.
Workbooks(casalibro).Select

Mi problema es con la parte en negritas ya que me manda error: " Se ha producido el error '9' en tiempo de ejecución: Subíndice fuera de Intervalo"

Por favor ayudenme. Y si tienen una manera mas eficaz de hacer el proceso comenten. Gracias

[abrahamvj]

Cambia ese Select por Activate y comentas

Abraham

[RoberT89]

Me dice lo mismo. Gracias

[mrocf]

Hola! RoberT89. La corrección que te ha sugerido Abraham es pertinente. Sin embargo: no es la única dificultad...

- totallibro = Application.ThisWorkbook.Name
"totallibro" contiene un valor de texto como "MiLibro.xls", por ejemplo.

- casalibro = Application.GetOpenFilename
"casalibro" también contiene un valor de texto. Pero debe ser algo como: "C:/OtroLibro.xls"

Y allí es donde tienes el error pues deberías utilizar en el Workbooks(casalibro).Activate el texto "OtroLibro.xls"

Podrías corregirlo agregando una sola línea de código más:

casalibro = Application.GetOpenFilename
Workbooks.Open casalibro
casalibro = ActiveWorkbook.Name

Saludos, Cacho.

[RoberT89]

Muchas gracias mrocf ya funciona perfecto.

[mrocf]

Gracias por tu devolución en nombre de Abraham y mío.
Cacho.