сохранить в файл *.txt

[drNabla]

Можно ли из листа EXCEL сохранить заранее заданные массивы данных в разные файлы *.txt при этом задавая название отдельному файлу (один выделенный массив - один файл, два выделенных массива - два файла). Если возможно то не могли бы подсказать как.

Заранее спасибо.

[0mega]

Возможно местные Гуру меня поправят, но я думаю что Еxcel и txt имеют разные форматы расширения.
Желаемого результата можно добиться "ручным приводом". Вверху, слева устанавливаете курсор, топнуть левой мышкой и протянуть по диагонали.
Потом CTRL+C. Открываете текстовый документ и пользутесь двумя волшебными клавишами CTRL+V

[motorway]

А в каком формате вам нужно сохранить, то есть, что и в каком виде должно быть в файле? Подробнее бы написали... Если с разделителями в виде пробелов, запятых или табов, то это можно в csv сохранить.

[drNabla]

Ctrl-C совсем не подходит))) я конечно неопытный юзер, но не настолько) просто очень много файлов (больше 100 и ещё ожидается постоянное пополнение) и ручками, как то много времени уходит, хотелось бы побыстрее...
а подробности, вот - нужная область: столбец из 191 значения, причём не с первого ряда а в середине листа, и нужно получить тоже столбец, и сохранить надо строго в txt... и ещё на одном листе несколько таких столбцов которые надо сохранить каждый в отдельном txt файле, и желательно под задаваемыми именами файла. Вот как то так, я объясняю плохо, так что если кто-то может помочь но не понимает что всётаки надо спрашивайте, постараюсь объяснить ещё подробнее или прислать исходный файл и ожидаемый результат...

Заранее спасибо.

[EducatedFool]

или прислать исходный файл и ожидаемый результат...

Вот с этого и надо было начинать - давно бы получили готовый код...

К примеру, выделяете экспортируемый диапазон желтым цветом, и в описании задачи пишете: "желтый столбец созраняем в файл 123.txt, красный столбец - в файл 345.txt" ...

Ну и опишите, как формировать названия для текстовых файлов.

[drNabla]

Хорошо, высылаю, и жду ответов)
В архиве пример как и исходного файла так и примера того что надо получить, ещё вложил описание того что хочется получить.

Заранее спасибо.

[EducatedFool]

Если програма будет сама автоматически менять названия *.txt файла это былобы прост супер

Конечно, программа сама назовёт файлы так, как вам надо, но...

Исходный файл EXCEL будет иметь название "nameij" где name - имя испытуемого (меняется из раза к разу); i,j - номер состояний(также меняются от раза к разу)

Где примеры названий файлов?
Если имя файла Excel будет иметь вид Имя-1-23.xls или Имя 12_3.xls - тогда всё понятно (как получить name, i, j)
Но если имя будет иметь вид текст123текст323текст.xls - тут совсем непонятно, как разбить строку "текст123текст323текст" на составляющие name, i, j

слиб можно было выбирать какие файлы надо сохронять
(допустим не все шесть а только первый и второй, или пятый шестой)

Не считаю целесообразным.
Поскольку все файлы окажутся в специально созданной для этого папке, - проще будет вам потом удалить ненужные файлы, чем выбирать нужные в диалоговом окне (сделать которое сложнее, чем выгрузку в в TXT)

Жёлтый столбец сохраняется в файл namei.txt
красный - namej.txt
зелёный - name(j-i).txt

А как макрос должен искать эти столбцы на листе?

Правильным ли будет такой алгоритм?
1) в столбце А ищем ячейку со словом РЕЗУЛЬТАТЫ
2) спускаемся вниз на 2 строки, и в этой строке ищем ячейки "состояние 1 ОК","состояние 2 ОК","крос 2-1"
3) столбцы, в которых мы нашли указанные слова, и выгружаются в TXT

Или можно сделать проще:
1) номера выгружаемых столбцов нам известны, и не меняются
2) диапазон определяем так: берем последнюю заполненную ячейку в столбце А, и поднимаемся вверх, пока не найдём пустую ячейку
(аналогично для других столбцов)

PS: неужели нельзя было объяснить подробнее - я бы уже успел написать макрос, а сейчас приходится выяснять всякие нюансы...

[drNabla]

Я ж говорю у меня проблемы с объяснением чего либо кому либо, это серьёзно и я от этого страдаю...
Так теперь отвечаю на вопросы:
1. Имя файла будет иметь вид имя_1_1 к примеру (всё разделено _)
2.хорошо, пусть сохраняет всё, я имел в виду что иногда будет не шесть нужных столбцов а только три, и не будет ли потом проблем, или это не имеет значения?
3.Расположение искомых столбцов - они всегда зафиксированы и будут располагаться одинаково, и идея с поиском последнего заполненной ячейки наверно самая оптимальная.

Вот вроде всё.

[EducatedFool]

Вот весь код:

Sub main()
    On Error Resume Next
    имяфайла = Split(ThisWorkbook.Name, ".")(0) ' имя файла без расширения
    arr = Split(имяфайла, "_") ' разбиваем на 3 части
    
    ПапкаДляТекстовыхФайлов = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "TXT\")    ' папка будет называться "TXT"
    ' или так - с указанием даты
    ПапкаДляТекстовыхФайлов = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "TXT " & Format(Now, "DD-MM-YYYY HH-NN-SS") & "\")
    MkDir ПапкаДляТекстовыхФайлов    ' создаём папку

    ' формируем 6 текстовых файлов
    СохранитьТекстовыйФайл 1, ПапкаДляТекстовыхФайлов & arr(0) & arr(1) & ".txt"
    СохранитьТекстовыйФайл 3, ПапкаДляТекстовыхФайлов & arr(0) & arr(2) & ".txt"
    СохранитьТекстовыйФайл 11, ПапкаДляТекстовыхФайлов & arr(0) & "(" & arr(2) & "-" & arr(1) & ")" & ".txt"
    СохранитьТекстовыйФайл 16, ПапкаДляТекстовыхФайлов & "pc" & arr(0) & arr(1) & ".txt"
    СохранитьТекстовыйФайл 18, ПапкаДляТекстовыхФайлов & "pc" & arr(0) & arr(2) & ".txt"
    СохранитьТекстовыйФайл 26, ПапкаДляТекстовыхФайлов & "pc" & arr(0) & "(" & arr(2) & "-" & arr(1) & ")" & ".txt"
End Sub

Sub СохранитьТекстовыйФайл(ByVal col As Long, ByVal filename As String)
    Dim cell As Range, ra As Range
    Set ra = Range(Cells(Rows.Count, col).End(xlUp), Cells(Rows.Count, col).End(xlUp).End(xlUp))
    ' если надо точные значения из ячеек
    txt = Join(Application.WorksheetFunction.Transpose(ra.Value), vbNewLine)
    ' или так, если нужны округлённые
    txt = "": For Each cell In ra.Cells: txt = txt & vbNewLine & cell.Text: Next cell
    txt = Mid(txt, 3)
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(filename, True) ' создаём текстовый файл
    ts.Write txt: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Sub

Пример в файле:

[drNabla]

спасибо за помощь) вроде всё работает как надо) щас буду разбираться.

Не могли бы посмотреть вот ещё тему, вдруг что-то получится http://programmersforum.ru/showthread.php?t=98657