Speichern als Methode der Arbeitsmappenklasse fehlgeschlagen - Outlook vba

Question

Ich versuche, die Outlook-Mailanhangsdatei (einzelne Datei) mit XLSX-Dateiformat zu speichern, aber unter Code mit Fehler Save as Mehtode of workbook class failed in der Zeile wb.saveAs. brauche jemanden Hilfe.

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

schließlich bekam ich die Antwort: microsoft excel library im Werkzeug Hinzufügen und wb as workbook