Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записать данные из текстового файла в определенные ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Записать данные из текстового файла в определенные ячейки (Макросы/Sub)
Записать данные из текстового файла в определенные ячейки
vc-pvm Дата: Четверг, 11.02.2016, 22:48 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Добрый день, форумчане. Помогите с макросом. Требуется записать данные из текстового файла со строками вида: /1:bbb/2:ffff/4:ssssssss в ячейки столбцов с номерами между символами '/' и ':' Т.е. в данном случае в ячейки 1,2,4.
Спасибо.
К сообщению приложен файл: 123.txt(0Kb) · 123.xls(14Kb)


Сообщение отредактировал vc-pvm - Четверг, 11.02.2016, 22:49
 
Ответить
СообщениеДобрый день, форумчане. Помогите с макросом. Требуется записать данные из текстового файла со строками вида: /1:bbb/2:ffff/4:ssssssss в ячейки столбцов с номерами между символами '/' и ':' Т.е. в данном случае в ячейки 1,2,4.
Спасибо.

Автор - vc-pvm
Дата добавления - 11.02.2016 в 22:48
Manyasha Дата: Пятница, 12.02.2016, 12:10 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1586
Репутация: 662 ±
Замечаний: 0% ±

Excel 2007, 2010
vc-pvm, так можно:
[vba]
Код
Sub txtReade()
    fPath = ThisWorkbook.Path & "\123.txt"
    Set fso = CreateObject("Scripting.Filesystemobject")
    Set fTxt = fso.OpenTextFile(fPath, 1, True): txt = fTxt.ReadAll: fTxt.Close
    Dim arr
    arrRow = Split(txt, vbCrLf)
    For i = 0 To UBound(arrRow)
        arrCol = Split(arrRow(i), "/")
        For j = 1 To UBound(arrCol)
            temp = Split(arrCol(j), ":")
            Cells(i + 1, CInt(temp(0))) = temp(1)
        Next j
    Next i
End Sub
[/vba]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеvc-pvm, так можно:
[vba]
Код
Sub txtReade()
    fPath = ThisWorkbook.Path & "\123.txt"
    Set fso = CreateObject("Scripting.Filesystemobject")
    Set fTxt = fso.OpenTextFile(fPath, 1, True): txt = fTxt.ReadAll: fTxt.Close
    Dim arr
    arrRow = Split(txt, vbCrLf)
    For i = 0 To UBound(arrRow)
        arrCol = Split(arrRow(i), "/")
        For j = 1 To UBound(arrCol)
            temp = Split(arrCol(j), ":")
            Cells(i + 1, CInt(temp(0))) = temp(1)
        Next j
    Next i
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 12.02.2016 в 12:10
vc-pvm Дата: Пятница, 12.02.2016, 17:17 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Благодарю за помощь.
 
Ответить
СообщениеБлагодарю за помощь.

Автор - vc-pvm
Дата добавления - 12.02.2016 в 17:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Записать данные из текстового файла в определенные ячейки (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!