Макрос. Вывод в текстовый документ

[Kefirrr]

Добрый день, форумчане. Может подскажите как написать макрос, чтобы данные из xls-файла записывались в txt-файл, но определенным способом.
К примеру есть файл, где указаны фамилия и сумма долга а нужно чтобы на печать выводился подзаголовок Должники: "ноябрь 2013"
Ниже (именно через 2 строчки) выводятся данные в таком виде:
Фамилия: иванов
Долг:5
Работа:
Адрес:
(именно с пустыми данными). Затем спустя еще определенное кол-во строк выводились данные по второму человеку и т.д. до конца документа.

[Казанский]

Файл сохраняется в папку с xls

Sub Kefirrr()
Const STR_AFTER = 2 'число пустых строк после записи
Const B$ = vbCrLf
Dim i&, f%, v()
f = FreeFile
v = Range("A2", Cells(Rows.Count, "B").End(xlUp)).Value
Open ActiveWorkbook.Path & "\Итог.txt" For Output As f
Print #f, "Должники: ""ноябрь 2013""" & B & B
For i = 1 To UBound(v)
  Print #f, "Фамилия: " & v(i, 1)
  Print #f, "Долг:" & v(i, 2)
  Print #f, "Работа:" & B & "Адрес:" & B & Application.Rept(B, STR_AFTER - 1)
Next
Close f
End Sub

[Kefirrr]

Все работает. Огромное спасибо. Только можете разъяснить значение строчки:
v = Range("A2", Cells(Rows.Count, "B").End(xlUp)).Value.
Я так понимаю, что переменной присваивается значение ячеек A и B в определенной строке, а дальше просто выводим необходимое.

Так же огромное спасибо за функцию STR_AFTER.

[Казанский]

Сообщение от Kefirrr

можете разъяснить значение строчки

Переменной v присваивается массив значений ячеек от А2 до последней в ст. В. Далее данные берутся из массива, к ячейкам обращений уже нет.
4-ю с конца строку лучше написать так:

  Print #f, "Работа:" & B & "Адрес:" & Application.Rept(B, STR_AFTER)