сохранение в файл

[Alboy]

Будет всего один столбец, в котором до 1000 строк, как данные из итих строк сохранить в отдельные файлы (должно получиться до 1000 файлов в формате .txt)?
Помогите кто чем может.

[Hugo121]

С помощью http://excelvba.ru/code/text_files
Задайте диапазон.

Sub ToTXT()
    Dim sname As String, cc As Range
    For Each cc In [a1:a9]
        sname = "C:\" & cc.Value & ".txt"
        SaveTXTfile sname, cc.Value
    Next
End Sub



Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(filename, True)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set fso = Nothing
End Function

[Alboy]

К сожалению я практически не разбираюсь в макросах, подскажите как подкличить этот код, я в этом деле чайник.

[Hugo121]

Тогда туго будет, нужно учиться.
Всё уже в файле.
Немного код изменил - теперь автоматически определяются все данные первого столбца от А1 до низу.
Но не отслеживаются символы, которые могуть быть в ячейках, но не могут быть в имени файла - такие файлы просто не будут созданы.

[rocsted]

Тут общались

Если это так просто есть 29 WMR готов поменять на макрос к моему файлу, файл пришлю. Заодно и BL подрастет

[Hugo121]

rocsted, если там Ваш файл - то ниже готово.

[Alboy]

Можно ли подредактировать код, чтоб файлы сохранялись с именами 1.txt, 2.txt, 3.txt..., а не именами ячеек?

[Hugo121]

Легко:

Sub ToTXT()
    Dim sname As String, cc As Range, count_ As Long
    
    For Each cc In Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    count_ = count_ + 1
        sname = "C:\" & CStr(count_) & ".txt"
        SaveTXTfile sname, cc.Value
    Next
End Sub

Но я бы сохранял с именами типа 0001.txt

        sname = "C:\" & Format(count_, "0000") & ".txt"

[Alboy]

Большое спасибо, золотишко ушло в подпись.