macro que utilize dos libros

Aqui te dejo algo para empezar. Tendras que completarlo, falta cerrar el
fichero de entrada, abrir el nuevo fichero copiar los nuevos datos... y
salvar los datos.


Sub leerlibro()

Dim LibroEntrada As Workbook
Dim LibroSalida As Workbook
Dim HojaEntrada As Worksheet
Dim HojaSalida As Worksheet
Dim RangoEntrada As Range
Dim RangoSalida As Range

Set LibroEntrada = Workbooks.Open("e:\excel\Tulibro.xls")
Set HojaEntrada = LibroEntrada.Worksheets("TuHoja")
Set RangoEntrada = HojaEntrada.Range("A1:b2")

Set LibroSalida = ThisWorkbook
Set HojaSalida = LibroSalida.Worksheets("Hoja1")
Set RangoSalida = HojaSalida.Range("A1")
RangoEntrada.Copy Destination:=RangoSalida


End Sub

.


".·:m·a·r·l·a:·." escribió en el mensaje
news:

Hola a todos ::

quiero hacer una macro que me lea datos de un libro y los guarde en otro

la macro estara escrita en el segunto libro y este siempre es el mismo
(llamemosle A)

asi abro un nuevo libro (B por ejemplo) y ejecuto la macro que tiene que
leer determinadas celdas de cada hoja del libro B y guardarlas en el A.
Acabado esto, cierro el libro y abro otro diferente (C), al ejecutar la
macro devera leer de C y escribir en A

y asi con un monton de libros

se que tengo que utilizar las funciones activeworkbook y Workbooks(index),
pero lo que no se es como localizar el indice de los libros cuando estos
pueden tener cualquier nombre (excepto el A que siempre es el mismo)

alguna idea please ??

gracias por adelantado