こんにちは。KenKen_SP です。 UTF-8 で書かれたテキストファイルの文字列を読み込んでコードを 試してみましたが、そのまま動きましたね、、意図は何ですか? Excel2000 以上なら Unicode 対応してますので、Excel内部でのみの 処理なら特に問題はないと思います。理由があって別のキャラセット に変換するならもう一つ ADOBE.Stream を CreateObject し、そちら の Charset を変換したいキャラセットに設定してから、WriteText するなり、CopyTo すればいいです。 こんな感じ。 Sub CONVERT_CHARSET() '参照設定するなら:Microsoft ActiveX Data Objects x.x Library Dim SRC As Object Dim DST As Object Dim strFILEPATH
![VBAでUTF-8文字を読込、Excelに出力する方法](https://cdn-ak-scissors.b.st-hatena.com/image/square/a73abc454de4aaacb370bad26db2312eacbc7375/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2101_2.jpg)