Access - codigo vb

Hola

Lo que necesitas se puede hacer con la funcion Dir la cual sirve para listar archivos usando comodines, en este caso la usaremos para conocer todos los archivos *.xls (Excel) que se encuentren en un directorio para nuestro ejemplo C:\ArchivosExcel\ una vez que conoscamos los archivos que existen podemos renomabrarlos con la instruccion Name que se usa para cambiar nombres de archivos/Directorios
Ok aqui declare unas variables para tal caso, la variable strNuevoNombre guarda el nombre del nuevo archivo, la variable intNumeroArchivo es la que actua como contador para el consecutivo de numeros.

Aqui esta el codigo que hace lo que quieres:

Dim strArchivo As String
Dim strNuevoNombre As String
Dim intNumeroArchivo As Integer

strNuevoNombre = "MiExcel"

strArchivo = Dir("C:\ArchivosExcel\*.xls")
While strArchivo <> ""
intNumeroArchivo = intNumeroArchivo + 1
Name "C:\ArchivosExcel\" & strArchivo As "C:\ArchivosExcel\" & strNuevoNombre & intNumeroArchivo & ".xls"
strArchivo = Dir
Wend

En este mometo no tengo mucho tiempo para explicarte todo (aunque es muy facil de entender (creo)), cualquier duda me preguntas aqui.

Saludos
http://www.theemulator.tk