excel - vba 代码中的希伯来语文本无法正确解码

Question

我开发了一本工作簿，其中包含一些底层 vba 代码。该工作簿是希伯来语，vba 代码也使用希伯来语，例如比较希伯来语字符串，或使用希伯来语名称访问表格。我在 Excel 2010 中开发了此工作簿，并将其保存为 xlsm 文件(启用宏)。它在各种机器和 Excel 版本上都运行得很好，除了在安装了 Excel 2007 的特定 PC 上。问题似乎是我在 vba 代码中使用的希伯来字符串没有正确解码，并且被视为乱码。工作簿本身中的希伯来语文本(即单元格或工作表名称)非常好，只有我在 VBA 代码本身中使用的文本似乎无法正确读取。我想做的是在工作簿打开后自动正确设置编码/解码，以便它可以在任何计算机上使用任何 Excel 版本。

阅读更多内容后 here和 here我意识到当系统区域设置不是希伯来语时会发生这种情况。我可以使用 vba 代码仅在 Excel 中动态设置它(即不在操作系统级别更改它)，以便我编写的希伯来语文本可以工作吗？否则，我需要从 vba 代码中删除所有希伯来语文本。

Answer 1

使用ADODB Stream中的以下函数(您需要引用最新的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
    inStream.Charset = "UTF-8"
    CorrectHebrew = inStream.ReadText
    inStream.Close
End Function