Выгрузить результат запроса в существующий файл excell

Option Explicit
 
Sub Zebra()
    Dim li As Long, lColor As Long, lColNum As Long, lColEND As Long
    lColor = xlNone
    On Error Resume Next
    lColNum = InputBox("Укажите номер столбца со значениями", "Окно ввода параметра", 1)
    If lColNum = 0 Then Exit Sub
    If Not IsNumeric(lColNum) Then Exit Sub
    On Error GoTo 0
    lColEND = Cells(1, Columns.Count).End(xlToLeft).Column
    Application.ScreenUpdating = False
    For li = 2 To Cells(Rows.Count, lColNum).End(xlUp).Row
        If Cells(li, lColNum) <> Cells(li - 1, lColNum) Then
            If lColor = xlNone Then lColor = vbGreen Else lColor = xlNone
        End If
        Range(Cells(li, 1), Cells(li, lColEND)).Interior.Color = lColor
    Next li
    Application.ScreenUpdating = True
End Sub

Sub Zebra()
    Dim li As Long, lColor As Long, lColNum As Long, lColEND As Long
    
    Dim app object, wbk as object
    set app=createobject("excel.application")
    set wbk=app.workbooks.open("Путь\файл")
    
    lColor = -4142
    On Error Resume Next
    lColNum = InputBox("Укажите номер столбца со значениями", "Окно ввода параметра", 1)
    If lColNum = 0 Then app.quit: Exit Sub
    If Not IsNumeric(lColNum) Then app.quit: Exit Sub
    On Error GoTo 0
    lColEND = app.Cells(1, Columns.Count).End(-4159).Column
    app.ScreenUpdating = False
    For li = 2 To app.Cells(app.Rows.Count, lColNum).End(-4162).Row
        If app.Cells(li, lColNum) <> app.Cells(li - 1, lColNum) Then
            If lColor = -4142 Then lColor = vbGreen Else lColor = -4142
        End If
        app.Range(app.Cells(li, 1), app.Cells(li, lColEND)).Interior.Color = lColor
    Next li
    app.ScreenUpdating = True
    app.visible=true
End Sub

Dim app As object, wbk as object

lColEND = app.Cells(1, app.Columns.Count).End(-4159).Column

im xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim sFileName As String
Dim rst As Recordset
 
sFileName = CurrentProject.Path & "" & "Обор_шМ.xltm"
   
Set xlApp = CreateObject("excel.application")
Set xlWb = xlApp.workbooks.Open(sFileName)
Set xlWs = xlWb.Worksheets(1)
 
Set rst = CurrentDb.OpenRecordset("SELECT TempOst.Выражение1, TempOst.НомерЗаказа, TempOst.Наименование, TempOst.Материал, TempOst.ЧугунВес, TempOst.ЧугунСумма, TempOst.СтальВес, TempOst.СтальСумма, TempOst.АлюминийВес, TempOst.АлюминийСумма, TempOst.БронзаВес, TempOst.БронзаСумма, TempOst.ТЗР, TempOst.Зарплата, TempOst.ЕСВ, TempOst.[911], TempOst.[912], TempOst.[23020], TempOst.Коман37210, TempOst.[63120], TempOst.Брак, TempOst.Итого, TempOst.Опер FROM TempOst ORDER BY TempOst.НомерЗаказа, TempOst.Опер")
 
 
 
    xlApp.Visible = True
    xlWs.Range("A4").CopyFromRecordset rst
    .[a3] = Forms![Оборот]![ФормаСчет]

xlWs.Range("A3") = Forms![Оборот]![ФормаСчет]