Abir un fichero con un indice con vbs para macro excel

[chanfr]

Buenas, querçia saber como puedo abrir un fichero desde una macro para excel que tenga un "indide en el nombre"
Me explico:

Quiero hacer un bucle que me abra los siguiente ficheros:
archivo1.xls
archivo2.xls
archivo3.xls
...
archivon.xls

Un saludo, y gracias de antemano.

[iseji]

Buenas

La forma de abrir un archivo cambia segun si quieres abrir un exce, un acces un word... Pero la forma de ir abriendo mas de uno dentro de un bucle cambiano un indice es igual.
Solo as de crear una variable string con la parte "fija" del nombre del archivo y concatenar el indice justo detras a cada iteración del bucle.

Para el ejemplo te pongo como abrir una serie de archivos excel:

Dim app As New Excel.Application
Dim wb As New Excel.Workbook
dim ruta as string
Dim indice as Integer

Set app = New Excel.Application

for indice=1 to 5
ruta = "archivo" & indice
Set wb = app.Workbooks.Open(ruta)
next

En caso de que no quieras abrir una serie de excel, abre el archivo como toque, pero la parte de modificar el nombre te servirá.
Espero que sirva

[lokoman]

Hola!!
Puedes intentar:

Dim RutaArchivo as string, RutaOffice as string, RutaArchivo as string, Abrir as string, J as Integer

RutaOffice = "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE"
RutaArchivo="C:\Archivo"

For J=1 to 5
Abrir = Shell(RutaOffice & " " & RutaArchivo & J, vbNormalFocus)
Next J