Кодировка в Excel

[Artem Vakhitov]

Здравствуйте, коллеги!

Мне заказчик для референсу дал Excel-файл, а там вместо кириллицы кракозяблы отображаются. Как их превратить в нормальный русский текст?

Образец: Äîïîëíèòåëüíûå ñâåäåíèÿ ñì. â çàìåòêàõ î âûïóñêå.

Заранее спасибо!

[Farid]

Обратитесь к нему, "конспиранту". Пусть пришлёт в нормальном виде.

P.S. (Оффтоп).
Я жутко ругаюсь, когда БП присылает мне на перевод документ в формате bmp размером более 1,5 МБ.

[Бродяга]

Файл этот, скорее всего, экспортирован из чего-то чем-то через что-то. Поскольку в самом Экселе кракозябры не возникают уже с доисторических времён.

[esperantisto]

Такая проблема часто возникает в OpenOffice.org Calc при открытии файлов Excel 95 (и в OOo Writer — Word 95). На этой случай имеются следующие макросы:

Код: Выделить всё

  *****  Recode from cp1252 to cp1251 for Word and Excel files without language set.
REM  *****  Authors Dmitry G. Mastrukov and A. Novodroskii 2002, code corrercted by Dmitri Gabinski
REM  ***** GPL license


Dim mCP1252(123) As String
Dim mCP1251(123) As String

Sub Init
mCP1252() = Array("€","‚","¸","„","…","†","‡","ˆ","‰","Š","‹","Œ","Ž", _
                 "‘","’","“","”","•","–","—","™","š","›","œ","¡","ž", _
                 "Ÿ"," ","¡","¢","£","¤","¥","¦","§","¨","©","ª","«", _
                 "¬","­","®","¯","°","±","²","³","´","µ","¶","·","¸", _
                 "¹","º","»","¼","½","¾","¿","À","Á","Â","Ã","Ä","Å", _
                 "Æ","Ç","È","É","Ê","Ë","Ì","Í","Î","Ï","Ð","Ñ","Ò", _
                 "Ó","Ô","Õ","Ö","×","Ø","Ù","Ú","Û","Ü","Ý","Þ","ß", _
                 "à","á","â","ã","ä","å","æ","ç","è","é","ê","ë","ì", _
                 "í","î","ï","ð","ñ","ò","ó","ô","õ","ö","÷","ø","ù", _
                 "ú","û","ü","ý","þ","ÿ")
mCP1251() = Array("Ђ","‚","ё","„","…","†","‡","€","‰","Љ","‹","Њ","Ћ", _
                 "‘","’","“","”","•","–","—","™","љ","›","њ","ќ","ћ", _
                 "џ"," ","Ў","ў","Ј","¤","Ґ","¦","§","Ё","©","Є","«", _
                 "¬","­","®","Ї","°","±","І","і","ґ","µ","¶","·","ё", _
                 "№","є","»","ј","Ѕ","ѕ","ї","А","Б","В","Г","Д","Е", _
                 "Ж","З","И","Й","К","Л","М","Н","О","П","Р","С","Т", _
                 "У","Ф","Х","Ц","Ч","Ш","Щ","Ъ","Ы","Ь","Э","Ю","Я", _
                 "а","б","в","г","д","е","ж","з","и","й","к","л","м", _
                 "н","о","п","р","с","т","у","ф","х","ц","ч","ш","щ", _
                 "ъ","ы","ь","э","ю","я")
End Sub

Sub RecodeAllWriter
  Dim n As Long
  Dim oDocument As Object
  Dim oReplace As Object
  Init()   
  oDocument = ThisComponent
  oReplace = oDocument.createReplaceDescriptor
  For n = lbound(mCP1252()) To ubound(mCP1252())
    oReplace.SearchString = mCP1252(n)
    oReplace.ReplaceString = mCP1251(n)
    oReplace.SearchCaseSensitive = TRUE
    oDocument.replaceAll(oReplace)
   Next n
  MsgBox "Преобразовано"
End Sub

Sub RecodeAllCalc
  Dim n As Long
  Dim m As Long
  Dim oDocument As Object
  Dim oReplace As Object
  Init()   
  On error goto ex
  oDocument = ThisComponent
  m = 0
  While 1 = 1
  oReplace = oDocument.Sheets(m).createReplaceDescriptor
  For n = lbound(mCP1252()) To ubound(mCP1252())
    oReplace.SearchString = mCP1252(n)
    oReplace.ReplaceString = mCP1251(n)
    oReplace.SearchCaseSensitive = TRUE
    oDocument.Sheets(m).replaceAll(oReplace)
  Next n
  m = m + 1
  Wend
  ex:
  MsgBox "Преобразовано"
End Sub

Воспользуйтесь OOo или попробуйте переписать макросы на VBA.

[chatonau]

А я как-то без макросов просто прочитал, чего ему там написали -
"Дополнительные сведения см. в заметках о выпуске".

Может ему просто тупо русский шрифт на систему поставить?

[BInc]

Можно скопировать в ворд, Сервис > Исправить поврежденный текст, потом скопировать обратно.

[esperantisto]

Можно. Но трудоёмко несколько.