【VBA】保存したcsvファイルをメモ帳でUTFに変換する方法を教えてください。
VBAの初心者です。
皆様のお力をお借りしたい次第です。
今私はデスクトップに保存したcsvファイルをUTFに変換し、
windowsメールでアドレスのインポートをしようとしていますが、
csvファイル自体をUTFに変換すると文字化けをしてしまうため、
メモ帳でUTFに変換→csv保存をしたいと思っております。
メモ帳をExcelから命令するにはどうしたらいいでしょうか?
以下はUTFに変換する際に使用させてもらったものです。
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
お礼
文字化けしないのですか。 ありがとうございました。 参考になりました。