Access2000でUTF8をSHIFT-J変

質問

お世話になります。
Access2000でUTF8のテキストファイルをSHIFT-JISに変換して読み込みたいのですが、どのようにしたら良いのか分かりません。
VBAでこの処理を行ないたいと思っております。

どなたかご教授いただければ、大変助かります。

回答No.1

nda23

UTF-8のファイルをSJISのファイルに変換する例です。

'変数を定義する
Dim 変換元ファイル As Object
Dim 変換先ファイル As Object
'変換元ファイルのオブジェクトをインスタンス化する
Set 変換元ファイル = CreateObject("ADODB.Stream")
'変換元を開く
変換元ファイル.Open
'変換元ファイルを設定する
変換元ファイル.Type = 2
変換元ファイル.Charset = "UTF-8"
'変換元ファイルを読み込む
変換元ファイル.LoadFromFile "D:\okvbs\UTF8.txt"
'変換先ファイルのオブジェクトをインスタンス化する
Set 変換先ファイル = CreateObject("ADODB.Stream")
'変換先ファイルを開く
変換先ファイル.Open
'変換先ファイルを設定する
変換先ファイル.Type = 2
変換先ファイル.Charset = "SHIFT_JIS"
'変換先ファイルにコピーする
変換元ファイル.CopyTo 変換先ファイル
'変換先ファイルを保存する
変換先ファイル.SaveToFile "D:\okvbs\SJIS.txt", 2
'各オブジェクトを廃棄する
変換元ファイル.Close
Set 変換元ファイル = Nothing
変換先ファイル.Close
Set 変換先ファイル = Nothing

お礼

お忙しいところ、ありがとうございます。
ADODB.Streamを利用し、テキストファイルを作成して変換できることを確認できました。