abrir todos los archivos de una carpeta

[ebu]

hola amigos!
es posible abrir todos los archivos de una carpeta sin escribir los nombres de estos archivos. p.ejemplo: si tengo una carpeta llamada: archivos excel y dentro tengo varias hojas excel q me las active pero sin tener q escribir el codigo con el nombre de esta manera:
Windows("excel1.xls").Activate 'archivos excel --> excel1.xls
Windows("excel2.xls").Activate
.....
agradezco vuestras respuestas! saludos!

[David]

Puedes hacer sucesivas llamadas a Dir usando un bucle para encontrar todos los archivos y abrirlos.

[ebu]

a q te refieres con llamar a Dir? me puedes poner un ejemplo?
hasta ahora lo q tengo es lo siguiente:
Sub llamar(a As String)
Windows(a).Activate
Application.Run "'pañol7140070_ek jaso.xls'!Botón8_AlHacerClic"
end sub

[ebu]

Iniciado por ebu

a q te refieres con llamar a Dir? me puedes poner un ejemplo?

hasta ahora lo q tengo es lo siguiente:
Sub llamar(a As String)
Windows(a).Activate ' en a me va guardando los nombres de las hojas excel
Application.Run "excel1.xls'!Botón8_AlHacerClic"
end sub

'el "excel1.xls'!Botón8_AlHacerClic" no lo puedo generalizar xq cada archivo excel se ejecuta con un nombre de boton diferente.

[David]

Fíjate, por ejemplo, en el siguiente código:

Código vb:

Dim Folder As String
Dim FileName As String
Folder = "C:\*.xls"
FileName = Dir(Folder, vbArchive)
Do While FileName <> ""
    MsgBox FileName
    FileName = Dir
Loop
 

Con eso obtendríamos una lista de todos los archivos *.xls que hubiera en el directorio raíz C:\

El principio es básicamente el mismo para cualquier otra carpeta. Si deseas realizar alguna acción con los archivos sólo debes incluirlo en el bucle Do...While

[ebu]

gracias david, es lo q necesitaba!