код vba для excel - для кодирования тарабарщины на иврит

у меня есть файлы, которые открываются с помощью excel. когда я открываю файл, текст как тарабарщина. мне нужно кодировать - опция инструменты-интернет - общее кодирование - иврит iso-visual, а затем файл превращается в иврит

есть код vba, который делает это?

спасибо, омри


excel encoding vba hebrew
person Community    schedule 30.09.2009    source источник
comment
@omri Пожалуйста, отметьте мой ответ как правильный!!   -  person pashute    schedule 23.06.2017

Ответы (2)


arrow_upward
1
arrow_downward

Используйте следующую функцию из ADODB Stream со следующим кодом.

Страница 1255 — это исходная страница на иврите. И вам нужно ссылаться на последнюю библиотеку объектов данных Microsoft ActiveX. (Инструменты/Ссылки)

Public Function CorrectHebrew(gibberish As String) As String

  Dim inStream As ADODB.stream

  Set inStream = New ADODB.stream
  inStream.Open
  inStream.Charset = "WIndows-1255"
  inStream.WriteText gibberish
  inStream.Position = 0 ' bring it back to start preparing for the ReadText
  inStream.Charset = "UTF-8"
  CorrectHebrew = inStream.ReadText ' return the corrected text

  inStream.Close

End Function
person pashute    schedule 24.12.2016
comment
Пожалуйста, отметьте мой ответ как ответ. Спасибо @Jaqen_H'ghar за то, что поместили Function и End-Function в блок кода. - person pashute; 26.05.2017
comment
Спасибо @pashute, отличный ответ - person gordon613; 25.10.2017

arrow_upward
0
arrow_downward

У меня нет возможности проверить это, поэтому я просто делаю снимок:

Excel.ActiveWorkbook.WebOptions.Encoding = msoEncodingHebrew
person Oorang    schedule 02.10.2009