Экспорт XML в кодировке windows-1251

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорт XML в кодировке windows-1251 (Макросы/Sub)

and_evg

Дата: Среда, 07.02.2018, 09:45 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 452

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

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

Excel 2007

Добрый день.
Имеется файл данных с картой XML (прилагаемый файл)
Для экспорта в XML использую простенький код:

[vba]

Код

Sub ExportToXML()
    Dim strPath As String
    strPath = ThisWorkbook.Path & "\счет.xml"
    ThisWorkbook.XmlMaps("Файл_карта").Export URL:=strPath
End Sub

[/vba]

Проблема в том, что данный метод экспортирует в кодировке UTF, а для загрузки в Диадок (система электронного документооборота) требуется кодировка windows-1251.
Вопрос: Как произвести экспорт в XML в кодировке windows-1251.
Заранее спасибо.

К сообщению приложен файл: _XML.xls (66.0 Kb)

Ответить

krosav4ig

Дата: Среда, 07.02.2018, 16:59 | Сообщение № 2

Группа: Друзья

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

Добрый день. Можно попробовать такой костыль.
[vba]

Код

Sub ExportToXML()
    Dim strPath As String, sTmp As String
    strPath = ThisWorkbook.Path & "\счет.xml"
    ThisWorkbook.XmlMaps("Файл_карта").Export URL:=strPath
    DoEvents
    With CreateObject("ADODB.Stream")
        .Type = 2: .Charset = "utf-8"
        .Open: .LoadFromFile strPath: sTmp = .ReadText: .Close
        .Charset = "windows-1251": sTmp = Replace(sTmp, "UTF-8", "windows-1251")
        .Open: .WriteText sTmp: .SaveToFile strPath, 2: .Close
    End With
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

and_evg

Дата: Четверг, 08.02.2018, 08:27 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 452

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

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

Excel 2007

krosav4ig, Большое спасибо! Костыль помог.
Я так понимаю, что уже созданный XML файл открываете и в потоке (посредством ADODB) меняете кодировку?
И второй вопрос (просто нет возможности сейчас проверить). На работе стоят офисы от 2003 до 2013-го, граблей никаких не предвидится?

Ответить

nariman

Дата: Среда, 02.05.2018, 01:16 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2007

А можно подробней, как это делается....
мне нужно торг 12 загрузить в ЭДО, но там выдает тоже ошибку с кодировкой, дожна быть в windows 1251? как у топик стартера.
Как вообще в таких случаях поступают,

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорт XML в кодировке windows-1251 (Макросы/Sub)

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