Здравствуйте, специалисты по VBA.
Помогите, пожалуйста решить непростую проблему.
Суть ее такова.
Имеется макрос переноса всего текста, что есть на листе - построчно в txt-файл.
Если сейчас текстовый файл собирается макросом так (текст разделенный запятой воспринимается - как одна строка):
67563 345-463 , kjmnhk565? , 23ghgh5
4е5435
7
yjth56yu
67
uyi76yi
56756
657567 456 4576 ? ,345345
756756
5464
То нужно чтобы макрос, переносил в текст вот такой результат (текст разделенный запятой - воспринимал как несколько отдельных частей и каждую из этих частей - записывал бы в новую строку):
67563 345-463
kjmnhk565?
23ghgh5
4е5435
7
yjth56yu
67
uyi76yi
56756
657567 456 4576 ?
345345
756756
5464
Как изменить этот макрос, чтобы он данным образом записывал бы текст с листа - в txt ?
Помогите, пожалуйста решить непростую проблему.
Суть ее такова.
Имеется макрос переноса всего текста, что есть на листе - построчно в txt-файл.
Если сейчас текстовый файл собирается макросом так (текст разделенный запятой воспринимается - как одна строка):
67563 345-463 , kjmnhk565? , 23ghgh5
4е5435
7
yjth56yu
67
uyi76yi
56756
657567 456 4576 ? ,345345
756756
5464
То нужно чтобы макрос, переносил в текст вот такой результат (текст разделенный запятой - воспринимал как несколько отдельных частей и каждую из этих частей - записывал бы в новую строку):
67563 345-463
kjmnhk565?
23ghgh5
4е5435
7
yjth56yu
67
uyi76yi
56756
657567 456 4576 ?
345345
756756
5464
Как изменить этот макрос, чтобы он данным образом записывал бы текст с листа - в txt ?
Код |
---|
Public Sub test() Dim rng1 As Range, c As Range Set rng1 = ActiveSheet.UsedRange Set fs = CreateObject("Scripting.FileSystemObject") Set f1 = fs.CreateTextFile(ThisWorkbook.Path & "\документ.txt", True) For Each c In rng1 If c.Value <> "" Then f1.WriteLine (c.Value) Next f1.Close End Sub |
Изменено: Красноглазый Пиркаф - 16.09.2019 01:58:30
Если люди не научатся помогать друг другу, то род человеческий исчезнет с лица земли.
Вальтер Скотт
Вальтер Скотт