エクセルVBAを教えてください

質問

エクセルVBAを教えてください
Gmailの「CSV 形式でユーザー リストをダウンロード」で作成されたCSVを開くと
氏名が文字化けしています
それを手作業で
1.メモ帳で開き
2.「名前を付けて保存」で「文字コード=ANSI」で上書き保存して閉じる
をしていますが、手間なのでエクセルVBAで自動化したいと思っています
エクセルVBAのコーディングを教えてください
ネットで探したのですが見つからなくて…
※ファイルの選択などのコーディングは分かりますので、固定のファイル名で結構です

宜しくお願いします

回答No.1

nda23 · ベストアンサー

Dim A, B
Set A = CreateObject("ADODB.Stream")
Set B = CreateObject("ADODB.Stream")
A.Open
A.Type = 2
A.Charset = "UTF-8" '★UTF-8を想定
A.LoadFromFile "C:\～入力ファイル"
B.Open
B.Type = 2
B.Charset = "SHIFT_JIS"
A.CopyTo B
B.SaveToFile "C:\～出力ファイル", 2
A.Close
B.Close

こんな感じです。★のところに文字コードを指定します。
UniCodeだとか、UTF-7など、レジストリに登録された
コード名が使えます。

お礼

nda23さん

ご回答頂いたコーディングで変換する事が出来ました
ありがとうございました