автоматизация из ексел в txt

[EducatedFool]

ввод данных со 2 строки

Нет. Обрабатываются все строки, в ячейках которых есть (или раньше были) данные.
То есть в своём файле выделяете диапазон ячеек с данными, создаёте новый лист, вставляете данные, начиная с 1-й ячейки любой строки, и запускаете макрос.

Остальные ячейки (до и после вставленного диапазона) нельзя изменять или форматировать, иначе они тоже начнут участвовать в обработке.

Если бы Вы послушали меня, и прикрепили бы к сообщению пример своего файла, - то работало бы всё без подобных нюансов...

кол-во людей неограниченно?

Ограничений нет. Есть лишь разумные пределы...
Можно добавить на лист 1 000 000 строк, вот только дождётесь ли Вы окончания обработки...

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

[mistx]

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

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

пойду переваривать код. Очень уж хотелось врубиться до самого конца.

Спасибо огромное за помощь. Жму руку.

[ocean_regata]

Помогите плиз сохранить строку в Экселе в *.тхт
Код EducatedFool-а посмотрел, подходит вроде, но закончить не получается...

S = .Cells(1) & sep & .Cells(2) & sep & .Cells(3) & sep & .Cells(4) & sep & .Cells(5) & sep & .Cells(6) & sep & .Cells(7) & sep & f & sep & f & sep & .Cells(1) & sep & .Cells(11) & sep & .Cells(12) & sep


заранее спасибо!

[ocean_regata]

вcем привет!

[SAS888]

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

[ocean_regata]

Большое спасибо, SAS888!

я наверно не оч подробно описал...сорри

[SAS888]

В коде макроса замените Chr(47) На Chr(124).

[ocean_regata]

Ура, заработало!!!

SAS888! БОЛЬШУЩЕЕ Вам спасибо! спасибо! спасибо!

[ocean_regata]

Добре утречко! Кодоискатели!!!

не сочтите за наглость, но у меня еще вопросик:
'***************************
Sub hochu_txt()

Dim i As Long, j As Integer, Msg As String
i = ActiveCell.Row

For j = 1 To 10
Select Case j
Case 8
On Error Resume Next
MyStr = Chr(124) & Chr(124) & Right(Cells(i, 1), Len(Cells(i, 1)) - 4)
On Error GoTo 0
Case 9: MyStr = Cells(i, 11)
Case 10: MyStr = Cells(i, 12) & Chr(124)
Case Else: MyStr = Cells(i, j)
End Select
Msg = Msg & MyStr & Chr(124)
Next
Msg = Left(Msg, Len(Msg) - 1)

FileTxt = ThisWorkbook.Path & "\" & Cells(i, 4) & ".txt"
Open FileTxt For Output As #1
Print #1, Msg
Close #1

End Sub
'***************************

можно ли добавить, ш0бы в текстовом файле символы даты разделялись не точкой а слэшем "/" ???
если это не слишком усложнит код, напишите пожалуйста...как это сделать?!

[SAS888]

Можно. Проверяем: если текущая ячейка содержит дату - вызываем функцию преобразования этой даты в текстовую переменную с добавлением требуемых разделителей.

Sub hochu_txt()
    Dim i As Long, j As Integer, Msg As String, MyStr
    i = ActiveCell.row
    For j = 1 To 12
        Select Case j
        Case 8
            On Error Resume Next
            MyStr = Right(Cells(i, 1), Len(Cells(i, 1)) - 4)
            On Error GoTo 0
        Case 9: MyStr = Cells(i, 11)
        Case 10: MyStr = Cells(i, 12)
        Case Else: MyStr = Cells(i, j)
        End Select
        If IsDate(MyStr) Then MyStr = Date2Txt(MyStr)
        Msg = Msg & MyStr & Chr(124)
    Next
    Msg = Left(Msg, Len(Msg) - 1)
    
    FileTxt = ThisWorkbook.Path & "\" & Cells(i, 4) & ".txt"
    Open FileTxt For Output As #1
    Print #1, Msg
    Close #1
End Sub

Function Date2Txt(MyStr)
    Dim dt As String, a
    dt = CStr(Day(MyStr) & "/" & Month(MyStr) & "/" & Year(MyStr))
    On Error Resume Next
    a = Split(dt, "/")
    If Len(a(0)) = 1 Then dt = "0" & dt
    If Len(a(1)) = 1 Then dt = a(0) & "/" & "0" & a(1) & "/" & a(2)
    If Len(a(2)) = 1 Then dt = dt & "0"
    On Error GoTo 0
    Date2Txt = dt
End Function