Abir un fichero con un indice con vbs para macro excel

[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