может как то так ? только не работает этот код... :(    
 
 
Sub GetXLSList()  
Dim fName As String  
Dim TextLine  
  fName = Dir("c:\reports\*.txt")  
  Do While fName <> ""  
    i = 1  
    Open fName For Input As #1  
  Do While Not EOF(1)  
  Line Input #1, TextLine  
 ActiveSheet.Cells(i, 1).Value = TextLine  
 i = i + 1  
 Loop  
 Close #1  
  fName = Dir ' получаем имя следующего файла  
Loop  
End Sub