Автоматическое создание txt в макросе

[Evroclidon]

Есть примерный список- " Фамилия, имя отчество, и т.д." в Excell, как должен выгледеть макрос который создаст txt документ и назовет его фамилия, именем и отчеством из списка?..

[Maxx]

А на файлик Excel мона поглядеть?

[EducatedFool]

Таких макросов на форуме - как минимум 2 шт. ( это из того, что я делал за последние пару лет)

Поищите - и найдёте.
Если вдруг сам смогу найти - выложу ссылку.

Посмотрите пример кода в этой теме: http://www.programmersforum.ru/showthread.php?t=36732

[The_Prist]

Ячейке А1 Ваши ФИО.

Sub Create_TXT_FSO()
Dim fso As Object
With CreateObject("Scripting.FileSystemObject")
Set fso = .CreateTextFile("c:\" & Range("A1").Value & ".txt", True)
End With
End Sub

А такой код создаст столько файлов, сколько непустых ячеек в диапазоне(в примере это столбец А)

Sub Create_TXT_Files()
Dim fso As Object, rCell As Range
With CreateObject("Scripting.FileSystemObject")
For Each rCell In Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
If rCell <> "" Then Set fso = .CreateTextFile("C:\" & rCell & ".txt", True)
Next rCell
End With
End Sub

По хорошему неплохо бы еще и проверку на недопустимые символы в имени делать. Но это уж сами.

[Evroclidon]

Спасибо большое)) пошел попробую)