Abir un fichero con un indice con vbs para macro excel

[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