Captura masiva de datos.

Hola gente,
Les cuento mi problema, estoy intentando cargar los datos de un archivo
excel en otro archivo excel, lo quiero hacer sin tener que abrir el primero,
por lo tanto la única opción que se me ocurre es a traves del apartado
"Obtener datos externos". Hasta aqui todo bien, el problema radica en que
esta operación la tengo que hacer con los datos de unos 150 archivos que
estan en un directorio. Mi idea era crear un bucle que me lea todos los
nombres de los archivos de ese directorio y que me fuese cargando los datos
de los mismos en el archivo que yo quiera. Como no se cuál es el código
necesario he utilizado el grabador de macros para ver como lo hace excel y
parte del mismo es el que muestro a continuación.

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=C:\Documents and
Settings\Administrador\Mis documentos\facturas.xls;DefaultDir=C:\Documents
and Settings\Ad" _
), Array( _

El código funciona correctamente el único problema es que no se como hacer
para modificar la ruta de acceso al archivo. Entiendo que es ""DSN=Excel
Files;DBQ=C:\Documents and Settings\Administrador\Mis
documentos\facturas.xls"" pero no me deja cambiar la ruta a traves de
variables, por ejemplo DSN=Excel Files;DBQ=C:\Documents and
Settings\Administrador\Mis documentos\VARIABLE Donde variable sería el
nombre del archivo.

¿Qué es lo que estoy haciendo mal?

Saludos,
Adolfo