Записать данные из текстового файла в определенные ячейки

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Записать данные из текстового файла в определенные ячейки (Макросы/Sub)

Записать данные из текстового файла в определенные ячейки

vc-pvm

Дата: Четверг, 11.02.2016, 22:48 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

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

К сообщению приложен файл: 123.txt (0.1 Kb) · 123.xls (13.5 Kb)

Сообщение отредактировал vc-pvm - Четверг, 11.02.2016, 22:49

Ответить

Manyasha

Дата: Пятница, 12.02.2016, 12:10 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

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]

ЯД: 410013299366744 WM: R193491431804

Ответить

vc-pvm

Дата: Пятница, 12.02.2016, 17:17 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Благодарю за помощь.

Ответить

Страница 1 из 1
1