Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Построчная запись из экселя в txt, учитывая разделитель ","
 
#1
15.09.2019 21:50:14
Здравствуйте, специалисты по 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 ?
Код
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
Если люди не научатся помогать друг другу, то род человеческий исчезнет с лица земли.
Вальтер Скотт
 
 
 
#2
16.09.2019 02:18:11
Код
If c <> "" Then f1.WriteLine Replace(c, ",", vbLf)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
16.09.2019 07:31:03
Ігор Гончаренко, спасибо.
Если люди не научатся помогать друг другу, то род человеческий исчезнет с лица земли.
Вальтер Скотт
 
 
 
Страницы: 1
Наверх