тынц:

http://msa.polarcom.ru/st/d_1000347.htm

все спасибо всем нашел как сделать
Sub nameFiles()
Dim nameFile As String
Dim mypath As String
mypath = "c:\1\*.txt"
nameFile = Dir(mypath, vbReadOnly)
i = 0
Do While nameFile <> ""
а вот сдесь пишем что надо
i = i + 1
Debug.Print nameFile, i
nameFile = Dir
Loop
End Sub

Помогите!!!
Тема такая есть папка в ней куча текстовых файлов
надо все эти файлы по очереди импортировать в таблицу

Заранее благодарен