Code:

Dim wb As New Excel.Workbook

Sub ReplyWithExcelAttachment()
    Dim rpl As Outlook.MailItem
    Dim itm As Object
    
    Set itm = GetCurrentItem()
    If Not itm Is Nothing Then
        Set rpl = itm.Reply
        Set wb = Workbooks.Add
   
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder
        strPath = fldTemp.Path & "\"
        strFile = strPath & "newbook.xls"
        wb.SaveAs strFile
        wb.Close
        rpl.Attachments.Add strFile, , , "newbook.xls"
        fso.DeleteFile strFile
        
        rpl.Display
    End If
    
    Set wb = Nothing
    Set rpl = Nothing
    Set itm = Nothing
End Sub

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
        
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select
    
    Set objApp = Nothing
End Function