[v79italya]

megaloman, я же говорю проблема решена.
И даже если б Вы не сказали как лечить(Сохраняйте скрипт в 1251 кодировке) проблему с кириллицей то меня бы устроил и такой вариант.
А текстовый файл я просто показал с чем работать мне приходится. Ничего решать не надо. Уже решено все что нужно было в начале темы

[v79italya]

megaloman, здравствуйте
Не знаете почему не работает замена?
Все заменяемые значения обернуты в <Description>

[megaloman]

v79italya, Ваш файл при скачивании блокируется как вредоносный. Не могу его посмотреть

[v79italya]

В архиве выгрузка справочника из 1с и файл Excel плюс vbs.
По отдельности большой размер выходит, не пропускает.


Я с гугглХром скачиваю свой файл. Ошибка: обнаружен вирус. Там справочник в 2,4 мб

[v79italya]

Ругается на xlsm. Файл xlsx сделаю по новой

[v79italya]

xlsx загружаю в архиве т.к. размер тоже большой

[v79italya]

Как я понял, проблема в кодировке. Теперь справочник в кодировке - UTF-8-BOM и это сильно, раз нет ответа, усложняет обработку подобных файлов

[megaloman]

v79italya,

заменить значения в файле xml по справочнику. ......значения обернуты в <Description> »

Вы не предоставили xml.

[v79italya]

Файл xml в архиве Товары.rar.
В файле Excel.rar экселевский файл с таблицей(что менять и на что менять).
Сейчас проверил - эти файлы скачиваются

[megaloman]

v79italya, Вот вариант с UTF-8. Единственное, не понимаю как работает справочник в xlsx, там стоят формула с генерацией случайного соответствия.

Код:

Option Explicit

Dim FileXLS: FileXLS = "Z:\Box_In\Excel.xlsx"
Dim BeginXLS: BeginXLS = "A2"
Dim FileXMLin: FileXMLin = "Z:\Box_In\Товары.xml"

Dim FileXMLout: FileXMLout = "Z:\Box_In\ТоварыOutADO.xml"

Dim Mass, i, i1, i2, j2
Dim AllTxt

MsgBox "Begin"

With CreateObject("Excel.Application")
    .Visible = False 'True
    .Workbooks.Open FileXLS
    Mass = .Range(BeginXLS + ":" + .Range(BeginXLS).End(-4121).Offset(0, 1).Address)
    .DisplayAlerts = False
    .Quit
End With

i1 = LBound(Mass, 1)
i2 = UBound(Mass, 1)
j2 = UBound(Mass, 2)

With CreateObject("ADODB.Stream")
    .Charset = "utf-8"
    .Open
    .LoadFromFile (FileXMLin)
    AllTxt = .ReadText()
    .Close

    For i = i1 To i2
        AllTxt = Replace(AllTxt, ">" + Mass(i, i1) + "<", ">" + Mass(i, j2) + "<")
    Next
    
    .Open
    .WriteText AllTxt
    .SaveToFile FileXMLout, 2
    .Close
End With
MsgBox "Done"