vba去oracle数据后乱码,vba中读取utf-8文件乱码问题

现象：

从linux中通过sh生成一个csv文件，该文件的格式是utf-8，(我的操作系统为日文XP,文字编码为shift_jis)

⇒用excel直接打开，文件乱码。

⇒在access中使用原来的文件读取方式，不能正确读取。

调查：

----------------------------------------------------------------------------------

原先的读取方式为：

’注意1:要使用FileSystemObject，需要在[参照设定]中添加[microsoft excel 11.0

object library]

Dim fso

As New FileSystemObject

Dim f1 As

File

Dim ts As

TextStream

Set f1 =

fso.GetFile(filePath)

Set ts =

f1.OpenAsTextStream(ForReading)

'↓↓↓↓↓也可以用OpenTextFile的方式-↓↓↓↓↓

'Dim stmFile

'Dim strText As String

'Set stmFile = fso.OpenTextFile(filePath, ForReading, False)

'…

'strText = stmFile.ReadLine

'…

'stmFile.Close

'↑↑↑↑↑也可以用