VBAのUFT-8の変換がうまくいかない

Question

外部から表を参照しCSVにてDB用のデータを作成しています。
ネットで調べて出てきたコードを書き加えても中身が入っていないCSVしか保存されません。わかる方ご教授お願いいたします。

Sub writeCSV_utf8N()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)

Dim csvFile As String
csvFile = ActiveWorkbook.Path & "\data_utf8.csv"

'ADODB.Streamオブジェクトを生成
Dim adoSt As Object
Set adoSt = CreateObject("ADODB.Stream")

Dim strLine As String
Dim i As Long, j As Long
i = 1

With adoSt
    .Charset = "UTF-8"
    .LineSeparator = adLF
    .Open

    Do While ws.Cells(i, 1).Value <> ""

        strLine = ""

        j = 1
        Do While ws.Cells(i, j + 1).Value <> ""

            strLine = strLine & ws.Cells(i, j).Value & ","
            j = j + 1

        Loop

        strLine = strLine & ws.Cells(i, j).Value

        .WriteText strLine, adWriteLine

        i = i + 1

    Loop

    .Position = 0 'ストリームの位置を0にする
    .Type = adTypeBinary 'データの種類をバイナリデータに変更
    .Position = 3 'ストリームの位置を3にする

    Dim byteData() As Byte '一時格納用
    byteData = .Read 'ストリームの内容を一時格納用変数に保存
    .Close '一旦ストリームを閉じる（リセット）

    .Open 'ストリームを開く
    .Write byteData 'ストリームに一時格納したデータを流し込む
    .SaveToFile csvFile, adSaveCreateOverWrite
    .Close

End With

End Sub

Comments

[otn]

1行に複数文が入ってますが、これは改行がおかしい（コピペミス）？あるいは区切りの : が抜けている？
あるいは、本当にこのコードを実行している？？

Answer 1

.WriteText strLine, adWriteLineが一度も実行されていないと言うことなので、
Cells(1,1)が空なのでは？

Answer 2

提示頂いたコードで、CSVファイルは作成されているのでしょうか？
無駄な処理も多いように見受けられます。

以下を参考にしてみてください。
https://excelwork.info/excel/adodbstream/