MS Excel Vbaアラビア語のユニコード

Question

テキストファイルとマクロ対応のExcelファイルがあります。 Excelファイルは、行ごとにテキストファイルから文字列（アラビア語テキスト）を（vbaを使用して）取得し、それをsheet1セルに配置します。問題は、文字列が正しく表示されていないことです。ランダムな日本語の文字で表示されます。 （私の窓ロケールは日本です）。ここで

は私のコードです：

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

多くの投稿を検索して解決策を見つけました。以下

1. Enterキー勝つか
2. 型領域をクリックすると、ウィンドウがそれ
3. はあなたが見つけるUnicode対応でないプログラムの言語の下で管理タブ
4. を選択して見つけたとき、それをクリック従ってください。再起動が

Answer 2

問題だったので、かなり時間がかかったように申し訳ありませんが、感じを必要とされるであろう

キー「システムロケールの変更」育った。
でも解決策を提案したいと考えています。 unicodeencodingを使用して、異なる言語を表すSheet1.Cells(2, 1) = ChrW(&H3091)（文字はゑ）を表しています。