Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Смена кодировки
 
Никак справиться не могу, может у вас будут идеи? Нужно открывать файл html в экселе, пример "март.html"(а он в турецкой кодировке :)), менять ему кодировку на кириллицу и сохранять полученное в книге с тем же именем, например "март.xls". Названия файлов всегда меняются, но действия надо выполнять одинаковые - смена кодировки и сохранение. Из этого файла затем берутся данные для всяких сводных таблиц. Как записать такой макрос? Упорно не меняет у меня кодировку и все. Кусочек файла в турецкой кодировке прикрепила.
 
вот файл
 
Добрый день.

Ниже решение.
Это "рыба":
!!! НЕ ЗАБУДЬТЕ ПРОСТАВИТЬ СВОЙ ПУТЬ К HTML!!
функция создаёт новый файл с именем "рекодировка.html"

Sub RecodingHTML()
Dim TextLine As String
Dim CharSetPos As Integer
Open "C:\кодировка.html" For Input As #1
Open "C:\рекодировка.html" For Output As #2
Do While Not EOF(1)
Line Input #1, TextLine
If InStr(1, TextLine, "<meta http-equiv=Content-Type content", _
vbTextCompare) > 0 Then
CharSetPos = InStr(1, TextLine, "charset=Windows-1254", vbTextCompare)
If CharSetPos > 0 Then
' заменим чарсет на Кирилицу: Windows-1251
Mid(TextLine, CharSetPos, Len("charset=Windows-1254")) _
= "charset=Windows-1251"
End If
End If
Print #2, TextLine
Loop
Close #2
Close #1
End Sub

p.s. TIP! напоминаю, что если на любом сообщении с кодом на данном форуме нажать "[ответить с цитированием]" - то код получится отформатирован так, как его вставили в форум (движок форума удаляет ведущие пробелы в начале строки.. ;-((
Интересно, хоть когда-нибудь движок форума поменяют?!!! ;-(
 
{quote}{login=Kaena}{date=27.04.2008 06:49}{thema=Смена кодировки}{post}Никак справиться не могу, может у вас будут идеи? Нужно открывать файл html в экселе, пример "март.html"(а он в турецкой кодировке :)), менять ему кодировку на кириллицу и сохранять полученное в книге с тем же именем, например "март.xls". Названия файлов всегда меняются, но действия надо выполнять одинаковые - смена кодировки и сохранение. Из этого файла затем берутся данные для всяких сводных таблиц. Как записать такой макрос? Упорно не меняет у меня кодировку и все. Кусочек файла в турецкой кодировке прикрепила.{/post}{/quote}
---
Если запустить прилагаемый в архиве файл, и ответить утвердительно на вопрос операционной системы, то на Вашем компьютере турецкой кодировке 1254 будут соответвовать русские символы 1251.
После этого в Вашем файле вместо непонятных cимволов можно будет увидеть: Алиева Зоя - 1579.A
---
ZVI
Vladimir Zakharov
Microsoft MVP – Excel
 
См. файл
Страницы: 1
Читают тему (гостей: 3)