Страницы: 1
RSS
Сохранение в EXCEL формата kml c кодировкой UTF- 8
 
У меня есть не полноценный макрос, с помощью которого я делаю карты Google Earth в формате KML.  
Но для того чтобы после сохранения получить полноценный kml файл, нужно открыть его через  
Notepad++ преобразовать кодировку,с охранить файл, и потом дописать формат «.kml»  
Подскажите пожалуй ста, что нужно дописать в код макроса,чтобы он сохранял сразу kml и в правильной кодировке.  
Спасибо большое заранее.  
Пример неполноценного макроса прикрепил.
 
Вот макрос
 
Добавьте в макрос перекодировку, используя эту функцию:  http://excelvba.ru/code/encode
 
Спасибо за совет, но я полуноль :).    
Куда эту функцию вставить, чтобы она срабатывала при сохранении файла.  
Файл сохраняеться через макрос.  
 
И еще вопрос, как в этом макросе, который я прикрепил сделать так, чтобы он сразу сохранялся файлом kml а не бесформатным.
 
Я бы вам, конечно, помог встроить вызов своей функции в ваш макрос,  
но как-то не очень охота взламывать пароль к VBA на вашем файле...  
 
Так что давайте самостоятельно.  
Надо скопировать функцию ChangeFileCharset в стандартный модуль,  
и в вашем макросе дописать одну строку:  
 
' код создания файла    
ChangeFileCharset ПолныйПутьКВашемуФайлу, "utf-8"  
 
 
PS: Чтобы файл не создавался «бесформатным», при формировании имени файла добавляйте в конце расширение .kml
 
Совсем забыл  
Проль редактирования 12300, забыл, извините.
 
{quote}{login=HOPSRIGHT}{date=03.08.2012 03:26}{thema=}{post}Вот макрос{/post}{/quote} Добрый день. видимо к файлам .xlsx этот макрос не подходит? у меня 160000 строк.
 
Замените  
Dim i As Integer  
на  
Dim i As Long  
тут вероятно уже исправили?  
For i = 3 To 200
Страницы: 1
Читают тему
Наверх