чё там примерять то?)  
любую книгу на 20 листов вставить что ли?

Раз вам лень показать примеры файлов - нам тоже лень писать за вас макрос.  
 
Вам поможет это:  
http://excelvba.ru/code/txt  
http://excelvba.ru/code/range2txt  
 
и цикл по всем листам:  
 
Sub test()  
   Dim sh As Worksheet  
   For Each sh In ThisWorkbook.Worksheets  
       ' работаем с листом sh  
   Next sh  
End Sub

Sub tt()  
   Dim fso As Object, sh As Worksheet  
 
   Set fso = CreateObject("Scripting.FileSystemObject")  
 
   For Each sh In ActiveWorkbook.Worksheets  
       fso.CopyFile "C:\tmp\Шаблон.txt", "C:\tmp\" & sh.Name & ".txt"  
       With fso.OpenTextFile("C:\tmp\" & sh.Name & ".txt", 8, False)  
           .write Join(Application.Transpose(sh.[a1:a200]), vbNewLine)
           .Close  
       End With  
   Next  
 
End Sub  
 
 
Сам создал, сам проверил - работает :)  
Уточнять не буду.