VBAでファイルをUTF-8,BOMなしで出力したい

Question

前提・実現したいこと

重複した質問をしてしまい申し訳ありません。
以前excelをファイル出力したいという質問をして解答をいただいたのですが
今度は、文字コード：UTF-8,BOMなし,改行コード：LFで
出力したいのですが、どうしても文字コードがShift_JISになってしまいます。
そもそもやり方が間違っているのでしょうか。
よろしくお願いします。

なお、出力している文字列は
select column1 teble1 where column2 ="2"
select column3 table2 where column4 ="4"

などの英数字のみです。

発生している問題・エラーメッセージ

文字コードがShift_JISで出力されてしまう

該当のソースコード

Sub test()
    Dim strline As String
    Dim mypath As String
    Dim str As Object
    Set str = CreateObject("Adodb.Steam")
   
    With str
        .Charset = "UTF-8"
        .Type = adTypeText
        .Linrseparator = 10
     End With
     str.Open
     
    For i = 2 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
        mypath = ThisWorkbook.Path & "00" & i - 1 & ".txt"
        strline = ActiveSheet.Cells(i, 4).Value
        str.writetext strline, adwriteline
    Next
    
    str.postion = 0
    str.Type = adtypeBinary
    str.Position = 3
    Dim byteData() As Byte
    byteData = str.read
    str.Close
    str.Open
    str.write bytedate
    str.savetofile mypath, 2
    
    str.Close
   
End Sub

補足情報（FW/ツールのバージョンなど）

excel2013

Comments

[imihito]

①JSIS→Shift_JISでよろしいですか？ ②出力した文字列に英数字以外の文字は含まれていますか？

[yuusu]

①Shift_Jisです　②出力した文字列は英数字のみです

[ExcelVBAer]

「CreateObject("Adodb.Steam")」は「CreateObject("Adodb.Stream")」(r抜け)ですよね？

Answer 1

結論から言うと、そのままで問題無いです。

---

ASCII文字の範囲内では、BOMなしUTF8エンコードとShift_JISエンコードのバイナリ表現は同じになります。

つまり英数字のみが出力されている場合は、BOMなしUTF8エンコードのテキストファイルとShift_JISエンコードのテキストファイルに違いはありません。

多くのテキストエディタはファイルの中身を元にエンコードを判定しますが、今回の場合は、ファイルの中身からエンコードを判断できません（BOMなしUTF8、Shift_JISどちらとも解釈できる）。

Windowsのテキストエディタの場合メモ帳などの標準がShift_JISとなっているため、決め打ちでShift_JISになっているだけだと思われます。

Comments

[yuusu]

ご回答ありがとうございます。
返信遅れまして、すみません。
日本語を入れて出力したらUTF-8になりました