【VBA】全ての列の値を引用符で囲んでCSV出力するコードの書きかた

Question

前提

VBAでボタンをクリックするとエクセルからCSVに出力するマクロを作っています。

該当のソースコード

CSV出力するコードです。
シート1行目にA1セルにシートのタイトル、2行目に表のタイトル行があります。
3行目から下のみを出力します。

Sub CSV出力_詳細指定()
  Dim Filename As String
  Filename = Mid(ActiveWorkbook.Name, 1, InStrRev(ActiveWorkbook.Name, ".") - 1) & EXT
  
  Dim Filepath As String
  Filepath = ActiveWorkbook.Path & "\" & Filename
  
  Call csv.Output(TargetSheet:=ActiveSheet, Filepath:=Filepath, _
                  StartRow:=3, StartCol:=1, _
                  WithQuoteCols:="1,2", _
                  Charset:="utf-8")
                 
  MsgBox Filepath & "にCSVファイルを、文字コード「UTF-8」で出力しました。" & Chr(13) _
                  & "3行目から下のみ出力しています。" & Chr(13)
End Sub

実現したいこと

上のコードでは、対象範囲の1列目と2列目をダブルクオーテーションで囲んで出力させますが、実際の表は50列まであるので、より広い範囲の列の値を「" "」で囲んで出力させたいです。

試したこと

5列目くらいまでの少ない範囲であれば

WithQuoteCols:="1,2,3,4,5", 

と書けば良いですが、50までいちいち書くのは少し大変です。
省略の仕方を調べても見当たらなかったのですが、やはり面倒でも書くべきでしょうか。
なるべく少ないコードで書ける方法があれば、アドバイスいただけると幸いです。
よろしくお願いいたします。

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

PC：Windows11
ソフト：Microsoft365 Excel

Comments

[otn]

csv.Outputの中身は？
それを改造すれば良いのでは？

[sk.exe]

> Call csv.Output(TargetSheet:=ActiveSheet, Filepath:=Filepath, _
> StartRow:=3, StartCol:=1, _
> WithQuoteCols:="1,2", _
> Charset:="utf-8")

https://www.excelspeedup.com/csvsyuturyoku/

上記の記事で紹介されている（ダウンロードしたマクロ有効ブックに保存されている）
マクロを使用されている、ということでしょうか。

> 対象範囲の1列目と2列目をダブルクオーテーションで囲んで出力させますが、
> 実際の表は50列まであるので、より広い範囲の列の値を「" "」で囲んで出力させたい

> 50までいちいち書くのは少し大変です。

csv モジュールのコードを改変して範囲指定を簡略化できるようにするか、
引数 WithQuoteCols に渡す文字列（列番号リスト）をコードによって生成する
ようになさればよろしいでしょうけど、いずれにせよ For 文の使用が必須となるはず。

[koburon]

コメントありがとうございます。
csv.Outputの内容が不足していました。
そうです、そちらのサイトで紹介されているマクロを使用しました。

Answer 1

csv.Output はおそらく下記のサイトからダウンロードしたものですね。そのコードを書き換えてもいいとは思いますが、連番を生成する関数を作成してそれを利用すればどうでしょう。

【超簡単】ワンタッチでエクセルからCSV出力するVBAプログラム

標準モジュールに下記の関数を作成します。

Public Function GetSequence(minNum As Long, maxNum As Long) As String
    Dim i As Long
    For i = minNum To maxNum
        GetSequence = GetSequence & "," & i
    Next
    GetSequence = Mid(GetSequence, 2)
End Function

csv.Output を Call している部分のコードを下記のように書き換える。

  Call csv.Output(TargetSheet:=ActiveSheet, Filepath:=Filepath, _
                  StartRow:=3, StartCol:=1, _
                  WithQuoteCols:=GetSequence(1, 50), _
                  Charset:="utf-8")

追記

Microsoft365ということなので、新関数の Sequence を使えば、自作関数を作成する必要はないですね。

  Call csv.Output(TargetSheet:=ActiveSheet, Filepath:=Filepath, _
                  StartRow:=3, StartCol:=1, _
                  WithQuoteCols:=Join(WorksheetFunction.Sequence(1,50),","), _
                  Charset:="utf-8")

Comments

[koburon]

回答ありがとうございます。
はい、その通り、上記のサイトに紹介されているマクロを使用しました。
関数を作成しコードを書き換え実行したところ、望み通り50列全ての項目に「""」が付いたCSVファイルができました。
テキストエディタで開いて確認済みです。
こちらをベストアンサーとさせていただきます、ありがとうございました。

[koburon]

追記コメントありがとうございます。
新機能があったんですね。
こちらのコードも今後のため参考とさせていただきます。