Ønsker at gemme en Excel fil (.xlsx) fra VBA Access (run-time error 430)

Har nedenstående sub som fejler i xlimportworkbook.saveas..... delen


Sub DataSourceReportOpenSave(strFname As String)
Dim xlExcelApp As Excel.Application
Dim xlImportWorkbook As Excel.Workbook

Set xlExcelApp = New Excel.Application
Set xlImportWorkbook = xlExcelApp.Workbooks.Open(inFileDir & strFname & ".csv", 0, True)
     
      Workbooks.Open FileName:=inFileDir & strFname & ".csv"
      xlImportWorkbook.SaveAs FileName:=outFileDir & "\LOAD " & strFname & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
     
xlImportWorkbook.Close False
Set xlExcelApp = Nothing

End Sub