Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Построчная запись из экселя в txt, учитывая разделитель ","
 
Здравствуйте, специалисты по 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 Сен 2019 01:58:30
 
Код
If c <> "" Then f1.WriteLine Replace(c, ",", vbLf)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Ігор Гончаренко, спасибо.
Страницы: 1
Читают тему (гостей: 1)
Наверх