VBAでのUTF8への文字コードの変換

Question

VBAでのUTF8への文字コードの変換について

VBAでの文字コードへの変換方法として一般的なのが、ADODB.Streamを使った物かと思います。

excelファイルからShift-JISのtxtファイル出力　→　ADODB.StreamでUTF8に変化した物を用いて
仕事上で使うマッピングツール、テキストファイルから単語を抽出する作業をしようとした所
文字化けして正しく抽出できませんでした。
そのツールの文字コードもUTF8です。

ただ、そのexcelファイルからShift-JISに出力したtxtファイルを直接、サクラエディタや
NotePad++でUTF8に変換したところツールで文字化けしませんでした。

エディタで変換の方法は業務上、正規には使えず、VBAの変換で行わなければならない為
VBAでADODB.Stream以外での、Shift-JIS　→　UTF8への変換方法をご存じの方いらっしゃいましたら
ご教授をお願い致します。

Comments

[dodox86]

> excelファイルからShift-JISのtxtファイル出力　→　ADODB.StreamでUTF8に変化した物を用いて

これで生成したUTF-8のテキストファイルは、サクラエディタやNotepad++で正しく表示されているのですか？また、そのファイルのBOMの有無はどうなのでしょうか。

[退会済みユーザー]

お世話になります
ADODB.Streamで変換したファイルはサクラエディタ等では正しく見えてます
文字化けしてないです
BOMはついてます

[dodox86]

仕事上で使うマッピングツールとやらが、反対に、BOMが付いてるからダメだったりするのではないですか。
原因をできるだけ明らかにしておかないと、ADODB.Stream以外の方法でUTF-8に変換しても、同じ問題が起きる可能性があります。（

[退会済みユーザー]

そうですね
有難うございます確認してみます

Answer 1

たぶん、想像ですが、
＞そのexcelファイルからShift-JISに出力したtxtファイルを直接、サクラエディタや
＞NotePad++でUTF8に変換したところツールで文字化けしませんでした。

このとき、BOM無で保存したのではないでしょうか。再度、BOM有かBOM無を確認してください。

１．BOM無で保存した場合
ADODB.Streamを使い、BOM無で出力するサンプルがありますので、下記URLを参照し、BOM無で出力するようにしてください。
BOMなしでUTF-8出力
https://tonari-it.com/excel-vba-utf8n-bom/

VBAでUTF-8 BOMなしのファイルを出力する関数。
https://qiita.com/9ryuuuuu/items/d052ee7612ea3d01fed6

２．BOM有で保存した場合
考えにくいですが、
サクラエディタで出力したファイルとVBAで出力したファイルのバイナリー比較を行い、相違点を検視してください。

Comments

[退会済みユーザー]

ご回答有難う御座います
残念ながら、２のBOM有りでした、相違点を確認して別の方法を探したいと思います