ワークブッククラスのメソッドとして保存できません - Outlook vba

Question

xlsxファイル形式のOutlook添付ファイル（単一ファイル）を保存しようとしていますが、Save as Mehtode of workbook class failedの行にwb.saveAsというエラーが表示されます。誰か助けが必要です。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
     Dim objAtt As Outlook.Attachment 
     Dim objExcel As Object 
     Dim wb As Object 
     Dim saveFolder As String, dateFormat As String, fName As String 
     saveFolder = "D:\Ashok\Work\Capital\Collection\" 

     For Each objAtt In itm.Attachments 
     sFileName = LCase(objAtt.FileName) 

      sPathName = saveFolder & sFileName 
      objAtt.SaveAsFile sPathName 


    Set objExcel = CreateObject("Excel.Application") 
      Set wb = objExcel.Workbooks.Open(sPathName) 

' error on below line 

      wb.SaveAs FileName:=Replace(sPathName, ".csv", ".xlsx"), FileFormat:=xlOpenXMLWorkbook 
       wb.Close SaveChanges:=True 


      Kill sPathName 
      objExcel.Quit 

    Next 
    End Sub 

Answer 1

は最終的に私は答えました：ツールでmicrosoft excel libraryを追加すると、私は、これは推測です試したことのないwb as workbook