Есть файл excel, который формирует отчет и выгружает данные в txt. Файл тхт создается при нажатии кнопки "записать" и выглядит так:
(номер счета) (ФИО) (сумма)

4345654567876 Петров Петр Петрович 300000.00
7656789567654 Сидоров Иван Сергеевич 456000.00

как убрать пробелы перед номером счета? и сделать, чтобы сумма записывалась через 1 пробел после ФИО ?

файл выглядит так

а как добавить шапку и окончание?
шапка должна быть такая всегда:
***** ^Type=46^ ^Acc=0000000000000^ - Список на выдачу заработной платы
[IN_PARAM]

[OUT_PARAM]
далее идут списки и последней строкой нужно добавить:
##################################

PlanB,

просто в клавычках не прокатывает.

Шапка получилась, только один нюанс: в шапке должен быть текст русскими буквами, я его перед процедурой в кавычка пишу. Когда формируется файл тхт, то в нем эта запись "иегроглифами", а если меняю после открытия тхт кодировку, то запись по русски, а списки тогда иероглифами. Как задать шапку русскими буквами?

Private Sub CommandButton1_Click()
Dim sequence_format_array_string As New Collection
Dim rows As Integer
Dim drive As String
Dim data As String
Dim range_into_list As String

On Error GoTo Err_Print_line
drive = config.Range("D1")
Open drive + "\BS.txt" For Output As #1
range_into_list = config.Range("D2")
Set sequence_format_array_string = format_array_string_print(Range(range_into_list))
rows = sequence_format_array_string.count
Print #1, "***** ^Type=46^ ^Acc=0000000000000^ - список на выдачу заработной платы"
Print #1, "[IN_PARAM]; """
Print #1, " "
Print #1, "[OUT_PARAM] "; ""
For i = 1 To rows - 1
Print #1, sequence_format_array_string.Item(i)
Next i
Print #1, sequence_format_array_string.Item(rows);
Print #1, "#################################################################"
Close #1

Exit_Print_line:
Exit Sub
Err_Print_line:
MsgBox Error$
Resume Exit_Print_line
End Sub


в итоге получается след. отчет

потом меняю кодировку и получается:

как сделать, что вы в шапке список был после изменения кодировки русскими буквами

Всем спасибо, все получилось!!!

Еще вопросик! Последняя строчка #################### . Как сделать чтобы она была с новой строки после всех записей??? а то сейчас в зависимости от длины ФИО иногда открывается в последней строчки где ФИО, иногда сама переносится на новую строку.

пробуй камнем,

спасибо!!!