VBA 编码阿拉伯语后者

Question

Hi..

我有以下代码将数据从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 的常量。