SQLで取得した値をExcelに書き出したい

Question

SQLにて取り出した値をExcelに入力したいのですが、その方法がわかりません。
データは取り出せてます。
Excelのセルの1つ前の行がSQLから取り出したWri(RowCnt, 0)と違うのならそれを入力し、更にWri(RowCnt, 1)と同じ値の列を探してWri(RowCnt, 4)の値を入力したいです。
For i = 9 To UBound(Wri)のとこまでは行くのですが、そのあとがオブジェクトが必要ですというエラーで前に進めません。
ご教示お願いします。

Public Function Output_202(s() As String) As String

    Dim outputfile As String
    
    Dim sSQL As String
    Dim rst  As ADODB.Recordset

    Dim sNen  As String
    Dim sSin  As String
    Dim sSgyo As String
    Dim sHday As String
    
    Dim Rec()  As Variant
    Dim RowCnt As Long
    Dim ColCnt As Long
    
    Dim Wri() As Variant
    
    Dim wbk As Workbook
    Dim wks As Worksheet
    
    Dim i As Long
    Dim j As Long
    Dim c As Long

    '引数のセット
    sNen = Mid$(s(1), 7, 2) '年度
    sSin = Mid$(s(1), 6, 1) '新規・再送
    sSgyo = Mid$(s(1), 12, 4) '作業年月
    sHday = s(2) '発送日
    
    '出力ファイル準備
    outputfile = sNen & "年度"
    If sSin = "2" Then outputfile = outputfile & "_再送"
    outputfile = outputfile & "_件数表～コース別・金庫別発送件数_"
    outputfile = outputfile & Format$(Date$, "yyyymmdd") & Format$(Time$, "hhmmss") & ".xlsx"
    
    If file_copy("Z202.xlsx", sFolderFormatFile, outputfile, sFolderSaveFile) = 9 Then
        'ファイルコピーエラー
        Output_202 = "ひな形ファイル Z202.xlsx を取得できません"
        Exit Function
    End If

    Application.ScreenUpdating = False
    Set wbk = Workbooks.Open(sFolderSaveFile & outputfile)
    Application.ScreenUpdating = True

    'データ読込
'On Error GoTo ERR_RTN:
    
    'DBからデータ取得
    If access_mySQL_Server = False Then
        GoTo ERR_RTN
    End If
    
    With cmd
    
        sSQL = "SELECT concat(wfz_bkcode,':',wfz_bkname),concat(wfz_kzcode,cast(wfz_h_flg as char)) as code,wfz_count,wfz_test,count(wfz_bkcode) "
        sSQL = sSQL & " from " & s(1) & ", kzz"
        sSQL = sSQL & " where wfz_kzcode = kzz_kzcode"
        sSQL = sSQL & " group by wfz_bkcode,code"

        .ActiveConnection = cnn
        .CommandText = sSQL
        Set rst = .Execute
        sSQL = ""
        
        ColCnt = rst.Fields.Count
        RowCnt = rst.RecordCount
        
        If RowCnt > 0 Then
            ReDim Rec(ColCnt - 1, RowCnt - 1)
            Rec = rst.GetRows
        End If
        
        ReDim Wri(RowCnt, ColCnt)
            
        Set wks = wbk.Worksheets(1)
        
        For RowCnt = 0 To UBound(Rec, 2)

            Wri(RowCnt, 0) = CStr(Rec(0, RowCnt))
            Wri(RowCnt, 1) = CStr(Rec(1, RowCnt))
            If Len(Wri(RowCnt, 2)) = 1 Then
                Wri(RowCnt, 2) = "第" & StrConv(Wri(RowCnt, 2), vbWide) & "分冊"
            ElseIf Len(Wri(RowCnt, 2)) = 2 Then
                Wri(RowCnt, 2) = StrConv(Mid$(Wri(RowCnt, 2), 1, 1), vbWide) & "/" & StrConv(Mid$(Wri(RowCnt, 2), 2, 1), vbWide) & "分冊"
            End If
            If Wri(RowCnt, 3) <> "" Then
                Wri(RowCnt, 3) = "課題" & CStr(Rec(3, RowCnt)) & "回"
            Else
                Wri(RowCnt, 3) = "×"
            End If
            Wri(RowCnt, 4) = Rec(4, RowCnt)
               
        Next
        
        For i = 9 To UBound(Wri)
            If wks.Cells(i - 1, 2).Value <> Wri(RowCnt, 0).Value Then wks.Cells(i, 2).Value = Wri(RowCnt, 0)
            For c = 4 To 38
                If wks.Cells(5, c) = Wri(RowCnt, 1) Then
                    j = wks.Cells(5, c).colomn
                    Exit For
                End If
            Next
            
            wks.Cells(i, j).Value = Wri(RowCnt, 4).Value
        Next
        
        wks.Cells(1, 4).Value = Format$(Date$, "yyyy/m/d")
        wks.Cells(3, 3).Value = "20" & Format$(sSgyo, "##年##月")
        
        wks.Select
        wks.Cells(1, 1).Select
        
    End With

    If close_mySQL_Server = False Then
        GoTo ERR_RTN
    End If
    
    Application.DisplayAlerts = False
    wbk.Save
    Application.DisplayAlerts = True

    wbk.Close
    Set wks = Nothing
    Set wbk = Nothing
    
    Output_202 = outputfile

Exit Function
ERR_RTN:
    If Len(sErr(0)) = 0 Then
        sErr(0) = CStr(Err.Number)
        sErr(1) = Err.Description
        sErr(2) = "Output_202"
        sErr(3) = sSQL
    End If
End Function

Answer 1

For i = 9 To UBound(Wri)のとこまでは行くのですが、そのあとがオブジェクトが必要ですというエラーで前に進めません。

Wri()はVariantで宣言してますが代入している値はStringですよね？
.Valueを削除しましょう。

If wks.Cells(i - 1, 2).Value <> Wri(RowCnt, 1).Value Then wks.Cells(i, 2).Value = Wri(RowCnt, 1)

~~これ↓も
wks.Cells(i, j).Value = Wri(RowCnt, 4).Value
~~

Comments

[Naoko_Coco]

ありがとうございます。進めました！

[Y.H.]

あぁ、wri(*,4)はStringじゃないんですね。
では後者の.Valueは付けたままで構いません。
回答修正しておきます。