将Excel文件导入Access数据库时找不到可安装的ISAM

我目前正在试图让下面的代码工作：

Dim s As Long: s = ActiveWorkbook.Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row Dim acc As Object Set acc = CreateObject("Access.Application") acc.Visible = True acc.OpenCurrentDatabase Application.ActiveWorkbook.Path & "\Database.accdb" acc.CurrentDb.Execute "DELETE FROM Blad1;", 128 ' dbFailOnError = 128 acc.DoCmd.TransferSpreadsheet _ TransferType:=acImport, _ SpreadSheetType:=acspreadsheettypeexcel12xml, _ TableName:="Blad1", _ Filename:=Application.ActiveWorkbook.FullName, _ HasFieldNames:=True, _ Range:="Sheet1$A1:N" & s acc.CloseCurrentDatabase acc.Quit Set acc = Nothing 

我看到行acc.CurrentDb.Execute "DELETE FROM Blad1;" 工作正常，因为它删除了表中的所有数据。 一切似乎运行良好，直到acc.DoCmd.TransferSpreadsheet 。

Microsoft Access打开并出现以下错误：

这意味着多达“错误3170：找不到可安装的ISAM”

我一直在寻找一个答案，但我似乎无法find任何真正解决问题的方法。 你们认为解决scheme是什么？