MS Excel Vba 阿拉伯语 unicode

Question

我有一个文本文件和一个启用了宏的 excel 文件。 excel 文件每行从文本文件中获取（使用 vba）字符串（阿拉伯语文本），然后将其放在 sheet1 单元格上。问题是字符串没有正确显示。它以随机日文字符显示。（我的 windows 语言环境是日本）。

这是我的代码：

Open FilePath For Inputs As #1

Do Until EOF(1)

Line Input #1, textline
ActiveWorkbook.sheets(1).Cell(1,1).Value = textline
 'MsgBox(textline)

Loop

Close#1

问题： 如何让粘贴到 excel 文件中的字符串（阿拉伯语文本）仍然是阿拉伯语？

Answer 1

我在很多帖子中搜索后找到了解决方案。请遵循以下

按win键或点击它
键入区域并在 windows 找到它时单击它
选择管理选项卡
在非 Unicode 程序的语言下，您会找到 "change system locale" 键
需要重新启动

Answer 2

抱歉，感觉好久没提这个问题了。
但我仍然想提出一个解决方案：用unicodeencoding表示不同的语言：Sheet1.Cells(2, 1) = ChrW(&H3091)，代表字符ゑ.

Answer 3

找到了使用 Excel 女士的方法。在数据选项卡下 > 从文本导入数据。不要忘记将编码设置为 UTF-8

瞧！魔法！

MS Excel Vba 阿拉伯语 unicode

MS Excel Vba Arabic unicode

unicode

excel

vba

locale

arabic