Question

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

有一个vba代码可以做到吗？

感谢，欧米

Answer 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

Answer 2

我真的没有办法测试这个，所以我只是拍了一下：

Excel.ActiveWorkbook.WebOptions.Encoding = msoEncodingHebrew

excel的vba代码 - 将乱序编码为希伯来文

2 个答案: