JekaKot
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Maximus777 Спасибо, но как это работает? Добавлено: в том плане, что нужно сделать, чтобы заработало? вставил макрос в лист, нажал выполнить - и никаких видимых изменений/уведомлений. Может, все-таки что-то подправить в том макросе, который был в книге? Добавлено: Доработал все-таки найденный макрос. Оказалось не так сложно. Если кому пригодится: Код: Sub WriteTXT1() Dim arr, sTemp As String, x As Long, n As Long, F As Integer Dim FileTxt As String, FullFileName As String '''Чтение данных из книги With ThisWorkbook.Sheets("выгрузка") arr = .Range(.Cells(3, 1), .Cells(Rows.Count, 7).End(xlUp)).Value For x = 5 To UBound(arr) sTemp = sTemp & arr(x, 3) & vbCrLf & arr(x, 4) & arr(x, 5) & vbCrLf & arr(x, 6) & arr(x, 7) & vbCrLf & "" & vbCrLf Next x End With Erase arr ''' Формирование наименования файла и Запись данных в текстовый файл FileTxt = Cells(1, 3) & "_" & Format(Now, "dd-mm-yy-hh-mm-ss") & ".txt" FullFileName = ThisWorkbook.Path & Application.PathSeparator & FileTxt ''' Стандартный способ записи текстового файла в VBA. F = FreeFile Open FullFileName For Output As #F: Print #F, sTemp: Close #F MsgBox "Файл сформирован: " & FullFileName, 64, "Excel" End Sub | Maximus777, все равно спасибо - стало понятно как строку Excel делить и группировать на несколько в TXT. |