MS Excel VBA阿拉伯语unicode

问题描述：

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

这里是我的代码：

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中粘贴文件的时候要还阿拉伯语？

你已经尝试设置单元格字体** Arial Unicode MS **获得文本后？ –

是的，我已经尝试过。如果我直接将阿拉伯文字复制粘贴到Excel中，它会正确显示。 – Maguzu

请编辑问题并添加您正在使用的VBA代码。在输出到单元格之前，请尝试输入“MsgBox”字符串，并检查对话框是否显示正确的内容。 – omegastripes

答

我在许多帖子中搜索后发现解决方案。请按照以下

按Win键或点击它
型区域，点击它在Windows找到它
选择管理选项卡
下非Unicode程序，你会发现语言“更改系统区域设置”键
重新启动将需要

答

对不起，感觉就像它已经相当一段时间，因为这个问题是上调。
但我仍想提出一个解决方案：使用unicodeencoding来代表不同的语言：Sheet1.Cells(2, 1) = ChrW(&H3091)，这是站在字符ゑ。

MS Excel VBA阿拉伯语unicode

相关推荐