Macro

Me temo que no entiendo bien qué es lo que necesitas.

Puedes acceder desde VBA a los libros que están abiertos usando la colección Workbooks. Por ejemplo, para presentar un mensaje con la lista de dichos libros el código podría ser:

Sub prueba()
Dim wkb As Workbook
Dim strC As String

For Each wkb In Workbooks
strC = strC & wkb.Name & vbNewLine
Next wkb

MsgBox strC

Set wkb = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Jaime" escribió en el mensaje news:86cd01c4851e$538c1920$
Quiero crear una Macro que vaya a leer a diferentes libros
que previamente he abierto. El problema es que los libros
se llamaran cada día de una manera distinta y estaran
guardados cada día en diferentes sitios. Los libros
siempre tienen las mismas hojas,para que lea en la hoja he
creado una función pero no sé como crear una función
busque o lea en libros abiertos.

A la espera de vuestras soluciones.

Aparentemente lo que quiere esta en esta frase: "para que lea en la hoja he
creado una función pero no sé como crear una función busque o lea en libros
abiertos."

Una funcion creada por el usuario esta disponible a todos los libros abiertos si
el libro donde se encuentra tambien esta abierto. Esta funcion la puedes
encontrar haciendo click en el boton de insertar funciones a la izquierda de la
barra de la barra de formulas, despues en el cuadro de dialogo seleccionas como
categoria Definida por el Usuario. Si la insertas manualmente directamente en la
hoja de calculo de igual manera tienes que hacer referencia al libro y pones
algo asi como:
=LibroMisMacros.xls!MiFuncion(xxx)

Puedes hacer un libro donde tengas las funciones como complemento. Tienes que
salvarlo en Salvar Como... como .xla, y haces referencia al mismo en
Herramientas, Complementos, Examinar para buscarlo en el directorio donde lo
hayas salvado. Una vez hecho esto tienes las funciones disponible para todos los
libros y no necesitas hacer referencia al nombre del libro.

Saludos,

David Canales


"Fernando Arroyo" wrote in message
news:
Me temo que no entiendo bien qué es lo que necesitas.

Puedes acceder desde VBA a los libros que están abiertos usando la colección
Workbooks. Por ejemplo, para presentar un mensaje con la lista de dichos libros
el código podría ser:

Sub prueba()
Dim wkb As Workbook
Dim strC As String

For Each wkb In Workbooks
strC = strC & wkb.Name & vbNewLine
Next wkb

MsgBox strC

Set wkb = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Jaime" escribió en el mensaje
news:86cd01c4851e$538c1920$
Quiero crear una Macro que vaya a leer a diferentes libros
que previamente he abierto. El problema es que los libros
se llamaran cada día de una manera distinta y estaran
guardados cada día en diferentes sitios. Los libros
siempre tienen las mismas hojas,para que lea en la hoja he
creado una función pero no sé como crear una función
busque o lea en libros abiertos.

A la espera de vuestras soluciones.