vba code for excel - 히브리어로 횡설수설하기 위해

Question

Excel에서 열리는 파일이 있습니다. 파일을 열면 텍스트가 횡포 한 것처럼 보입니다. 내가 인코딩해야 - 도구 - 인터넷 옵션 - 일반 인코딩을 - 히브리어 ISO-시각 다음 파일의 회전을

이를 수행 VBA 코드가를 히브리어?

덕분에, 오므리

Answer 1

난 정말이를 테스트 할 수있는 방법이 없어, 그래서 난 그냥 샷을 복용하고 다음으로,

Excel.ActiveWorkbook.WebOptions.Encoding = msoEncodingHebrew 

Answer 2

사용 ADODB 스트림에서 다음 함수를 암호.

페이지 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