vba - 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 的常数。