我有用 excel 打开的文件。当我打开文件时,文本就像胡言乱语。我需要编码 - 工具 - 互联网选项 - 通用编码 - 希伯来语 iso-visual 然后文件转到希伯来语
有一个 vba 代码可以做到这一点吗?
谢谢, omri
使用 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
我真的没有办法测试这个,所以我只是试一试:
Excel.ActiveWorkbook.WebOptions.Encoding = msoEncodingHebrew