【VBA】OPENを使ってCSVファイルを出力するコードの書き方

Question

背景、状況

VBAでボタンをクリックするとエクセルからCSVに出力するマクロを作っています。
マクロの作成依頼者からは以下の要望を含めてコードを書くように依頼されました。

• PostgreSQLにデータをインポートできるCSVを出力
• CSVの文字コードは全て「Shft_JIS」
• SQLの文字データ型は全て「character」
• 全てのセル値をダブルクオートで囲んで出力
• Openステートメントでファイルを開く
• Printステートメントでデータ入力処理を行う

該当のソースコード

Public Sub CSV出力()
    Dim ws As Worksheet
    Dim maxrow As Long
    Dim csvFile As String
    Dim fileNo As Integer
    Dim wrow As Long
    Dim wcol As Long
    Dim i As Long
    Dim val As String
    Dim out_line As String
    Const stCol = 1
    Const enCol = 144
    Dim arrVal(enCol - stCol) As String
    
    csvFile = ActiveWorkbook.Path & "sample.csv"
    
    Set ws = Worksheets("Sheet1")
    maxrow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    fileNo = FreeFile
    Open csvFile For Output As #fileNo
     For wrow = 3 To maxrow
         i = 0
         For wcol = stCol To enCol
            '1データ取得
            val = ws.Cells(wrow, wcol).Value
            'データをダブルクオートでくくり、配列へ格納
            arrVal(i) = wrap_data(val)
            i = i + 1
         Next
         'カンマで連結
         out_line = Join(arrVal, ",")
         Print #fileNo, out_line
     Next
    Close #fileNo
    
    MsgBox ("CSVファイルを「Shft_JIS」で出力しました。レコード部分のみ出力しています。")
End Sub

'入力文字列をダブルクオートでくくる
Private Function wrap_data(ByVal val As String) As String
    wrap_data = """" & val & """"
End Function

知りたいこと

依頼者にコードのレビューを実施したところ、「データを配列へ格納する」手順は良いが、これだけだと、「ただ格納しているだけでSQLに入れられるように書き込みができていない」、という指摘を受けました。

上記のマクロでCSV自体は問題なく出力できており、解決策を求めているわけでは無いので、Q&Aではなく、意見交換とさせていただきました。
入力処理に関して皆さんはどう書いているかご意見いただけると幸いです。
よろしくお願いいたします。

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

PC：Windows11
ソフト：Microsoft365 Excel