Private Sub btn_Click()
    Dim Xls As Object
    
    Exl.Action = acOLEActivate
    Set Xls = GetObject(Class:="Excel.Application")

    MsgBox Xls.Workbooks(1).Worksheets(1).Cells(1, 1)
    Xls.Workbooks(1).Worksheets(1).Cells(1, 1) = 100 * Rnd
    MsgBox Xls.Workbooks(1).Worksheets(1).Cells(1, 1)
    Exl.Action = acOLEClose
    Me.Dirty = False
End Sub

Private Sub btn_Click()
    Dim Xls As Object
    Dim WB  As Object
    Dim rs As DAO.Recordset
    Dim fld As DAO.Field
    Dim i As Long
    '
    Set rs = CurrentDb.OpenRecordset("МойЗапрос")
    '
    Exl.Action = acOLEActivate
    Set Xls = GetObject(Class:="Excel.Application")
    Xls.Workbooks(1).Worksheets(1).Cells(2, 1).CopyFromRecordset rs
    '
    i = 1
    For Each fld In rs.Fields
        Xls.Workbooks(1).Worksheets(1).Cells(1, i) = fld.Name
        i = i + 1
    Next
    '
    Exl.Action = acOLEClose
    Me.Dirty = False
    '
    rs.Close
    Set rs = Nothing
    Set Xls = Nothing
End Sub

...
    Set Xls = GetObject(Class:="Excel.Application")
...
    Xls.Workbooks(1).....CopyFromRecordset rs
...