Сохранить файл в кодировке utf-8

Сохранить файл в кодировке utf-8, Существует файл которые переносит точки на карту google из excel в формате kml

gruny1985

Пользователь

Сообщений: 37 Регистрация: 13.12.2013

25.05.2014 00:36:50

Макрос сохраняет файл в кодировке, которая не отображает русские символы.
В итоге хочу получить файл, который по умолчанию будет отображать русские символы.
Другими словами файл должен сохраняться в кодировке utf-8

Прикрепленные файлы

XML_Export_V2.1.5.xls (61 КБ)

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

25.05.2014 01:16:27

Самый простой способ - это заменить в коде строку

Код
Set objStream = FSO.CreateTextFile(wbWB.Path + "\Google.kml")

на

Код
Set objStream = FSO.CreateTextFile(wbWB.Path + "\Google.kml", True, True)

получите на выходе unocode (кодировка utf-16)

Что касается других кодировок - примеры есть здесь:
http://excelvba.ru/code/SaveTextToFile
http://excelvba.ru/code/encode

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#3 25.05.2014 01:23:57 gruny1985, пробуйте Прикрепленные файлы XML_Export_V2.1.5.xls (60 КБ)

gruny1985 Пользователь Сообщений: 37 Регистрация: 13.12.2013	#4 25.05.2014 08:42:14 Казанский, Игорь,спасибо.

Читают тему