- 締切済み
VBA CSVファイルの文字コードをANSIからUFT-8に変更する方法
VBAを勉強している初心者です。 VBAでCSVファイルの文字をANSIからUFT-8に変更する方法を教えてもらえませんでしょうか。
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- nda23
- ベストアンサー率54% (777/1415)
回答No.1
ADODBのStreamモジュールを使うのは如何でしょう。 単なるファイル変換の例 Dim JIS, UTF Set JIS = CreateObject("ADODB.Stream") JIS.Open JIS.Type = 2 JIS.Charset = "shift_jis" JIS.LoadFromFile "C:\~\JIS.csv" Set UTF = CreateObject("ADODB.Stream") UTF.Open UTF.Type = 2 UTF.Charset = "utf-8" JIS.CopyTo UTF UTF.SaveToFile "C:\~\UTF.csv", 2 JIS.Close Set JIS = Nothing UTF.Close Set UTF = Nothing
お礼
nda23様、早速の回答ありがとうございます。 お教えいただいたADODBのstreamモジュールを使用してみます。^^