Late binding to avoid MISSING:Microsoft Excel 15.0 Object Library

Private Sub sendquotes_Click()


'  Excel constants:
  Const strcXLPath As String = "C:\Users\amw\AppData\Roaming\Microsoft\Templates\Sales Pipeline Quote Report.xltx"
  Const strcWorksheetName As String = "Sales Pipeline Quote Report"
  Const strcCellAddress As String = "A5"


    
  
  '  Access constants:
  Const strcQueryName As String = "q_SalesPipeLineQuotesCurMo"
  '  Excel Objects:
  Dim objXL As Object ' Excel.Application
  Dim objWBK As Object ' Excel.Workbook
  Dim objWS As Object ' Excel.Worksheet
  Dim objRNG As Object ' Excel.Range
  
  '  DAO objects:
  Dim objDB As DAO.Database
  Dim objQDF As DAO.QueryDef
  Dim objrs As DAO.Recordset
  Dim objQDFT As DAO.QueryDef
  Dim objQDFW As DAO.QueryDef
  
 On Error GoTo Error_Exit_SaveRecordsetToExcelRange
  
  
  
  '  Open a DAO recordset on the query:
  Set objDB = CurrentDb()
  Set objQDF = objDB.QueryDefs(strcQueryName)
  Set objrs = objQDF.OpenRecordset
  
  '  Open Excel and point to the cell where
  '  the recordset is to be inserted:
  ' Set objXL = New Excel.Application
  Set objXL = CreateObject("Excel.Application")
  objXL.Visible = True
  Set objWBK = objXL.Workbooks.Open(strcXLPath)
  Set objWS = objWBK.Worksheets(strcWorksheetName)
    
    With objWS
        .Cells(1, 2).Value = DateSerial(Year(Date), Month(Date), 1)
        .Cells(2, 2).Value = DateSerial(Year(Date), Month(Date) + 1, 1 - 1)
    End With
        
  Set objRNG = objWS.Range(strcCellAddress)
   objRNG.CopyFromRecordset objrs
  




  '  Destroy objects:
  GoSub CleanUp
  
Exit_SaveRecordsetToExcelRange:






  Exit Sub
  
CleanUp:


  '  Destroy Excel objects:
  Set objRNG = Nothing
  Set objWS = Nothing
  Set objWBK = Nothing
  Set objXL = Nothing
  
  '  Destroy DAO objects:
  If Not objrs Is Nothing Then
    objrs.Close
    Set objrs = Nothing
  End If
  Set objQDF = Nothing
  Set objDB = Nothing
  
  Return
  
Error_Exit_SaveRecordsetToExcelRange:


  MsgBox "Error " & Err.Number _
    & vbNewLine & vbNewLine _
    & Err.Description, _
    vbExclamation + vbOKOnly, _
    "Error Information"
    
  GoSub CleanUp
  Resume Exit_SaveRecordsetToExcelRange


End Sub

MsgBox "Error " & Err.Number & vbLf & vbLf & Err.Description, , "Error Information"

Sub M_snb()
  Set w00 = Workbooks.open("C:\Users\amw\AppData\Roaming\Microsoft\Templates\Sales Pipeline Quote Report.xltx")

  with  w00.sheets("Sales Pipeline Quote Report")
    .Cells(1, 2)=date
    .Cells(2, 2)=dateadd("m",1,date)-1
  end with

  With CreateObject("ADODB.recordset")
    .Open "SELECT * FROM q_SalesPipeLineQuotesCurMo", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currentDB.fullname
    w00.Sheets("Sales Pipeline Quote Report").Cells(5, 1).CopyFromRecordset .DataSource
  End With
End Sub

Sub M_snb()
  Set w00 = Workbooks.open("C:\Users\amw\AppData\Roaming\Microsoft\Templates\Sales Pipeline Quote Report.xltx")
  with  w00.sheets("Sales Pipeline Quote Report")
    .Cells(1, 2)=date
    .Cells(2, 2)=dateadd("m",1,date)-1
  end with

  With CreateObject("ADODB.recordset")
    .Open "SELECT * FROM q_SalesPipeLineQuotesCurMo", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currentDB.name
    w00.Sheets("Sales Pipeline Quote Report").Cells(5, 1).CopyFromRecordset .DataSource
  End With
End Sub

Sub M_snb()
  Set w00 = Getobject("C:\Users\amw\AppData\Roaming\Microsoft\Templates\Sales Pipeline Quote Report.xltx")
   with  w00.sheets("Sales Pipeline Quote Report")
     .Cells(1, 2)=date
     .Cells(2, 2)=dateadd("m",1,date)-1
   end with

  With CreateObject("ADODB.recordset")
     .Open "SELECT * FROM q_SalesPipeLineQuotesCurMo", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currentDB.name
     w00.Sheets("Sales Pipeline Quote Report").Cells(5, 1).CopyFromRecordset .DataSource
   End With
 End Sub