エクセルマクロvbaについて、教えてください。 【VBAで文字列を一括置換】複数のテキストファイルを１回で変更 https://kenko-keep.com/vba-cnv-file/
エクセルマクロvbaについて、教えてください。 【VBAで文字列を一括置換】複数のテキストファイルを１回で変更 https://kenko-keep.com/vba-cnv-file/ このサイトにある「ファイル置換ツール.xlsm」をダウンロードして、複数テキストの置換編集できるようになったのですが、文字化けしてしまいます。 もとのテキストファイルの文字コードをANSIで保存したら、うまくいきます。 utf-8の文字コードテキストファイルだと文字化けされた置換後のテキストファイルができるようです。 全部のテキストファイルを開いて、ANSIの文字コードを選択の保存では量が多いので大変です。 解決する方法ないでしょうか？ よろしくお願いします。
Visual Basic | Excel・126閲覧・25
ベストアンサー
Dim st_in As Object Dim st_out As Object Dim v Dim i As Integer Dim cmpmode As Long '// 入力側ファイルを開く(UTF-8) Set st_in = CreateObject("ADODB.Stream") st_in.Charset = "UTF-8" st_in.Open st_in.LoadFromFile s1 '// 出力側ファイルを開く(UTF-8) Set st_out = CreateObject("ADODB.Stream") st_out.Charset = "UTF-8" st_out.Open
質問者からのお礼コメント
回答ありがとうございます。 UTF-8版コード書き換え助かります！ 回答は字数制限あって、大変じゃなかったですか？ コピペできる状態で助かりますし、画像付きで分かりやすかったです。 文字化けされずに新しいテキストファイルできました。 ありがとうございました！
お礼日時：6/29 15:13
