エクセルファイルをcsvファイルへ出力・保存したいです

Question

前提・実現したいこと

VBA初心者です。
エクセルファイルをcsvファイルへ出力・保存したいです。
・文字コードはutf-8
・bom無し
・文字化けなし
を目指しています。
何卒宜しくお願い申し上げます。

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

コンパイルエラー：
変数が定義されていません

のエラーメッセージが出ます。
.LineSeparator = adLF
の部分で引っかかっている？ようです。

該当のソースコード

Option Explicit

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

MsgBox "csvに記載完了"

End Sub

試したこと

色々ネットを検索してみたのですが、該当するエラーに対応する回答が見つからず、
困り果ててしまい、こちらで質問させていただきます。

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

Excel for Microsoft 365 を使用しています。

Answer 1

参照設定で
Microsoft ActiveX Data Objects x.x Library
にチェックを入れましょう。

---

    For i = 1 To ws.UsedRange.Rows.Count
        strLine = ""
        For j = 1 To ws.UsedRange.Columns.Count - 1
            strLine = strLine & ws.Cells(i, j).Value & ","
        Next
        strLine = strLine & ws.Cells(i, j).Value
        .WriteText strLine, adWriteLine
    Next

Comments

[opsy]

ご回答ありがとうございます。また、お返事遅くなってしまいすみません。
ご教示いただいたコードを入力したところ、上手くいったかと思ったのですが、
タイトルが2行になってしまっています（1行目のタイトルが2行ある状態）。
こちらの解決法にお心当たりはございませんでしょうか。
お手数お掛けいたしますが、ご教示くださりましたら幸いです。
何卒宜しくお願い申し上げます。

Answer 2

こんばんわ。

opsyさんの希望は

「エクセルファイルをcsvファイルへ出力・保存」

することですよね。

VBAを使わなければならない必然性があるのでしょうか？

エクセルを開いてCSVファイル形式で保存すればよいのではないでしょうか？

Comments

[opsy]

ご回答ありがとうございます。
ごもっともなのですが、今回はVBAを使って保存する社内事情がありまして…
申し訳ございませんが、ご教示くださりましたら幸いです。
宜しくお願い申し上げます。

[srsnsts]

なるほど・・・・
力になりたいのですが、私のPC、Linuxでして・・・
Excelがインストールされていないのです、申し訳ないです。

[opsy]

そうでしたか…
ご助言感謝します。ありがとうございました。

Answer 3

次のように修正してみてください。

adLF → 10
adWriteLine → 1
adTypeBinary → 1
adSaveCreateOverWrite → 2

Comments

[opsy]

早速のご返答ありがとうございます。
試してみたのですが、文字化けしてしまっています。
またエクセルで開いてみたところ、8列目以降がエクセルの内容を反映していないようです。
8列目2行目以降のデータも入っていません。
こちらの原因は分からないでしょうか。
恐れ入りますが、宜しくお願い申し上げます。

[opsy]

8列目は1行目のタイトル以降（2行目以降）空白セルになっているのですが、
それが何か関係あるのでしょうか？
当方初心者につき良くわからず…
申し訳ございませんが、ご教示くださりましたら幸いです。
宜しくお願い申し上げます。

[hex309]

Do While ws.Cells(i, j + 1).Value <> ""
とあります。
これは、列が空欄まで処理を繰り返すということになります。
ということは逆に、空欄だとその行の処理はそこで終わってしまう、ということになります。
元の表がどの様になっているかわからないので列数指定するとかでしょうかね

[opsy]

ご回答ありがとうございます。また、お返事遅くなってしまい申し訳ございません。
確かにそうですね。ネット上から拾ってきたコードを加工しただけなので、気が付きませんでした。
もとのエクセルは42列あります。
ただ、8行目以降が内容を反映していない理由が良くわからず…
エクセルの内容をそのままcsvに書き出すことはできないものでしょうか。
恐れ入りますが、宜しくお願い申し上げます。