VBA编码阿拉伯语后者

Question

嗨..

我有以下代码将数据从TXT文件复制到Excel文件..问题是一些数据包含阿拉伯文后者，下面的结果是“ط¨ط'ط±ظٹط©”

那么如何将结果编码为阿拉伯语。

Fname = TempFile
If fsoSheet.FileExists(Fname) = False Then Exit Sub

iRow = 2

Set file2 = fsoSheet.OpenTextFile(Fname, ForReading,true)

Do While Not file2.AtEndOfStream
    Record = file2.ReadLine
    P = Split(Record,",") 

    For iCol = 1 To 8   

'   msgbox("COL"& p(icol)- 1)

        ExcelSheet.Application.Cells(iRow, iCol) = P(iCol- 1)

    Next

    iRow = iRow + 1

Loop



file2.Close

Answer 1

OpenTextFile末尾有一个附加参数可以指示将文本文件打开为Unicode：

Set file2 = fsoSheet.OpenTextFile(Fname, ForReading,true, TristateTrue)

注意：TristateTrue是一个等于-1的常量。