[[20210211142620]]　『UTF-8のtxtファイルを新規ブックで開きたい』（hana）　ページの最後に飛ぶ

『UTF-8のtxtファイルを新規ブックで開きたい』（hana）

お世話になります。
カンマ区切りのtxtファイルを、新規ブックで開き
必要なデータを取り出そうとしているのですが、いざ本番環境でテストしてみたところ
対象の文字コードがUTF-8だったため、文字化けしてしまいました。

色々と調べてみたのですが、自分がやりたいことへの応用ができませんでした。
以下、文字化けしてしまったコードです。

        Workbooks.OpenText Filename:="C:\Users\●●\Documents\●●.txt", _
        DataType:=xlDelimited, _
        Comma:=True

すみませんがよろしくお願い致します。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 テキストファイルなら、文字コードを取得して、文字コードを指定
 して開く、という方法があったような気がします。

 今回はエクセルで開くので方法は分かりませんが、参考過去ログ
 です。
 ※文字コード取得のみです。

[[20170522134013]]　『ファイル名に機種依存文字が含まれる場合』（天国耳）
（OK） 2021/02/11(木) 14:43

OK様
過去ログのご提示ありがとうございます。
・・・なかなか難しそうですね・・・

ふと思ったのですが、対象ファイルが格納されている場所とファイル名は不変なので
Sendkeysステートメントで一旦普通に開き、ANSIで保存してからOpenText Filenameで開きなおすのもありですかね？

他に良い方法はありますでしょうか。

無ければ明日試してみようと思います。
（hana） 2021/02/11(木) 15:51

こことか参考に試してはどうでしょうか
https://www.tipsfound.com/vba/18014

（マナ） 2021/02/11(木) 21:11

 対象となるファイルは必ずUTF-8なのだろうか？
 それともS-JIS、UTF-8どちらもあり得るのだろうか？
 UTF-8固定であればOpenTextの引数に
 Origin:=65001
 を加えればいいと思うが。
（ねむねむ） 2021/02/12(金) 09:45

マナ様
ねむねむ様

色々とありがとうございます！

 UTF-8固定であればOpenTextの引数に
 Origin:=65001

こちらで解決致しました！本当にありがとうございました！
（hana） 2021/02/15(月) 09:14

コメント返信：