0

我有用 excel 打开的文件。当我打开文件时,文本就像胡言乱语。我需要编码 - 工具 - 互联网选项 - 通用编码 - 希伯来语 iso-visual 然后文件转到希伯来语

有一个 vba 代码可以做到这一点吗?

谢谢, omri

4

2 回答 2

1

使用 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
于 2016-12-24T21:36:56.173 回答
0

我真的没有办法测试这个,所以我只是试一试:

Excel.ActiveWorkbook.WebOptions.Encoding = msoEncodingHebrew
于 2009-10-02T02:01:40.607 回答