Access: carga de varios archivos excel con codigo VB

[Karmo]

Buenas! que tal picateclas! ¿Cómo estamos?

Una duda por favor.

Tengo un Access mediante el cual quiero cargar diferentes archivos excel que se encuentran en un determinado directorio, obtener la información de ciertas celdas de cada uno de ellos, y trabajar con esos datos.

La obtención de información de las celdas lo tengo OK, pero para un único archivo donde defino exactamente cuál es a cargar:

Código VB6:

Dim ExcelPO As Object
Set ExcelPO = CreateObject("Excel.Application")
ExcelPO.Visible = True
ExcelPO.Workbooks.Open ("C:\alta_empleado\alta.xls")
ExcelPO.Windows("Alta.xls").Activate
ExcelPO.Sheets("base").Select
 

Lo que necesito es una vuelca de tuerca más. En ese directorio habrán varios archivos excel. Necesito ir cargando uno a uno y trabajar con sus datos.

Existe algún script tipo el que existe en PHP para obtener todos los ficheros de un directorio (para luego con un each/while/for ir trabajando

Saludos y gracias!