VBAでUTF-8,BOMなしで行ごとにファイル出力

Question

excelに書き込まれた内容を読み取り
一行づつ別ファイルでUTF-8,BOMなしで出力したいのですが
やり方が分りません。

申し訳ありませんが、ご教授願います

入力はexcelのD列2行目から一行づつ
出力は"シート名"＋"001","シート名"＋"002"...
というように作成したいです。

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

Answer 1

ググるとそのものずばりが出てきました。
Qiita - vba、UTF-8・BOMなしでファイル出力

ファイル出力部分を関数化して、1行づつloop内で呼び出すとよろしいかと

Comments

[yuusu]

ご回答ありがとうございます。参考にさせていただきます。