现象：

从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

'↑↑↑↑↑也可以用OpenTextFile的方式↑↑↑↑↑

Do Until

ts.AtEndOfStream

lineBuffer = ts.ReadLine

columnData = Split(lineBuffer, ",")

…

Loop

ts.Close

Set ts =

Nothing

Set f1 =

Nothing

Set fso =

Nothing

’注意2:其实在使用FileSystemObject作为打开文件处理之前，使用的是下面的文件读取方式(Line Input

)。这种方式，在文件的改行code为"CRLF"的时候没有问题，但是区别不了"LF"改行code,所以预想的是行读取变成了整个文件读取。使用FileSystemObject就可以解决。

********************************************

'Dim

fileNo As Long

'Open

filePath For Input Access Read Lock Write As #fileNo

' Do Until EOF(fileNo)

' Line Input #fileNo, lineBuffer

'　　　　columnData = Split(lineBuffer, ",")

'　　　　…

' Loop

'Close

#fileNo

********************************************

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

解决方案1. 下载免费的转换工具进行转。

解决方案2. 通过access的[外部数据读入]，在其中的某一步骤的时候，可以设置import定义体的读取格式(本例的案例就可以设为utf-8),然后保存到某个数据表中。

解决方案3.使用原先的文件读取方式+

使用[ADODB.Stream]：

(注意：这是网上说的较多的方案，但我实际检验之后发现并不能完全转换。写在这里权当参考)

(注意：使用[ADODB.Stream]，需要在[参照设定]中添加[microsoft activex

data object 2.5

library]以上版本)

’对上面的文件读取方式取得的每一行数据进行变换

lineBuffer = tran_ado(lineBuffer, "utf-8",

"shift_jis")

’转换函数

Function tran_ado(ByVal strA As String, _

Optional ByVal strInCode As String = "utf-8", _

Optional ByVal strOutCode As String = "Shift-JIS") As String

' Microsoft ActiveX Data Objects 2.5 Library

Dim Stm

As New

ADODB.Stream Stm.Type =

adTypeText

Stm.Mode =

adModeUnknown

Stm.Open

Stm.Charset

= strOutCode

Stm.WriteText strA

Stm.Position

= 0

Stm.Type =

adTypeText

Stm.Charset

= strInCode

tran_ado =

Stm.ReadText()

Stm.Close

End Function

解决方案4(本例的最终解决方案).下记的文件读取方式 +

使用[ADODB.Stream]：

Dim ts As

ADODB.Stream Set ts = New

ADODB.Stream ts.Type = adTypeText

ts.Charset = "UTF-8"

'改行code根据文件而定

ts.LineSeparator = adLF

ts.Open

'文件装载

ts.LoadFromFile

(filePath) Do While Not (ts.EOS)

'行读取：ReadText(adReadLine)

'全文件读取：ReadText(adReadAll) lineBuffer = ts.ReadText(adReadLine)

…

Loop

■事例

Sub readLogfile(ByVal Target As Range)

Dim

iFileName As String

Dim

ts As ADODB.Stream '★【ツール\参照設定】で【microsoft activex data object 2.5

library】バージョン以上追加設定要

Dim

lineBuffer As String

Dim

userIdDic As

Dictionary '★【ツール\参照設定】で【microsoft Scripting runtime】バージョン以上追加設定要

Dim

lvArr As Variant

Dim

lsReadDate As String

Dim

iPrtRow As Long

'対象日付を読込

lsReadDate =

Cells(Target.Row + 1,

Target.Column) 'ユーザID出力開始行

iPrtRow =

Target.Row +

3 iFileName =

Application.GetOpenFilename

If iFileName

= "False" Then

'MsgBox "読込対象ログファイルを選択してください。"

Else

wz = InStrRev(iFileName, "\")

Path = Left(iFileName, wz)

fname = Right(iFileName, Len(iFileName) - wz)

'MsgBox "読込対象：" & fname & vbCrLf & "パス：" & Path

'---------読込開始-----------

Set ts = New ADODB.Stream

ts.Type =

adTypeText '★文字コードによって設定

ts.Charset = "UTF-8"

ts.LineSeparator =

adLF '★改行コードによって設定

ts.Open

'ファイルロード

ts.LoadFromFile (iFileName)

Do While Not (ts.EOS)

'行読込：ReadText(adReadLine)

'全文読込：ReadText(adReadAll)

lineBuffer = ts.ReadText(adReadLine)

If (IsNull(lineBuffer) Or IsEmpty(lineBuffer) Or lineBuffer = "")

Then

Else

lvArr = Split(lineBuffer, ",")

If (UBound(lvArr) > 5) Then

If (lvArr(1) = lsReadDate) Then

'重複なしのユーザIDの格納