Есть xml файл с кодировкой UTF-8. Пытаюсь сделать макрос, который будет в этом файле менять фразу "Заменить это" на "Заменено" с помощью функции Replace. Ничего не получается, макрос запускается, но исходный файл остается без изменений.
Если все то же самое проделать с файлом с кодировкой ANSI, то работает.
Если использовать латинские буквы, т.е. попытаться заменить фразу "Zamenit eto" на "Zameneno", то тоже работает.
Подскажите в чем может быть проблема.
Текст макроса:
xml файл не дает прикрепить почему-то, там всего три строки
Если все то же самое проделать с файлом с кодировкой ANSI, то работает.
Если использовать латинские буквы, т.е. попытаться заменить фразу "Zamenit eto" на "Zameneno", то тоже работает.
Подскажите в чем может быть проблема.
Текст макроса:
Код |
---|
Sub Замена() file = "Для замены.xml" Path = ActiveWorkbook.Path & "\" & file Open Path For Input As #1 s = Input(LOF(1), 1) NewFile = Replace(s, "Заменить это", "Заменено") Close #1 Open Path For Output As #2 Print #2, NewFile Close #2 End Sub |
xml файл не дает прикрепить почему-то, там всего три строки
Код |
---|
Это не надо менять Заменить это Это тоже не надо менять |