insertar varios archivos de datos al mismo tiempo?

dim fn as string
fn=dir("c:\la ruta completa\*.txt") ' asumo que son extension txt
do until fn=""
application.workbooks.opentext fn ' los demas parametros los configuras
de acuerdo a tu situacion
fn=dir()
loop


"Carlos" escribió en el mensaje
news:

tengo un problema, tengo que abrir como 90 o mas archivos con dos columans

de

15000 datos, pero al importar solo me deja escoger uno, no se como hacer

eso

para que sea recursivo... si me pueden ayudar gracias.