[neo21]

Макрос:

Код:

Sub пример()
'
' Запись первого файла
'
   Dim a, b, c, d
   a = Range("A1")
   b = Range("A2")
   c = Range("A2")
   d = Range("B2")
   Dim filesys, filetxt
   Set filesys = CreateObject("Scripting.FileSystemObject")
   Set filetxt = filesys.CreateTextFile("C:\" & d & ".txt")
   filetxt.WriteLine (a)
   filetxt.WriteLine (b)
   filetxt.WriteLine (c)
   filetxt.Close
   
   ' Запись второго файла
   a = Range("A4")
   b = Range("A5")
   c = Range("B4")
   
   Set filesys = CreateObject("Scripting.FileSystemObject")
   Set filetxt = filesys.CreateTextFile("C:\" & c & ".txt")
   filetxt.WriteLine (a)
   filetxt.WriteLine (b)
   filetxt.Close
   
   End Sub

На диске C
создаются два файла:
01.01.2011.txt
01.02.2011.txt
таб: