"Error 3021 no hay ningún registro activo" Al ejecutar modulo

Me salta el error 3021 no hay ningún registro activo cuando ejecuto la siguiente macro.

El depurador me marca la linea donde está la ejecucción de la importación guardada. (RunSavedImportExport) el caso es que este modulo ha estado funcionando sin problema hasta que de repente ha empezado a dar este error. La unica forma por ahora de solucionarlo fue borrar la importación guardada y crearla de nuevo, pero al día siguiente vuelve a fallar y tengo que volver a borrar la importación y guardarla con el mismo nombre para que vuelva a funcionar.

La importación guardada es desde una carpeta de outlook.

Private Sub Comando39_Click()
resultado = MsgBox("¿Está seguro de realizar una nueva importación?", vbOKCancel, "Importación")
If resultado = vbOK Then
sql = "delete * from [Bandeja de entrada]"
CurrentDb.Execute sql
DoCmd.RunSavedImportExport ("Importación: Exportacion2")
DoCmd.RunMacro ("consulta17")
DoCmd.RunMacro ("Consulta16")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Tabla1", "C:\Users\" & NombreUsuario() & "\Desktop\srac16.xlsx", True
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Tabla1", "C:\Users\" & NombreUsuario() & "\Desktop\srac17.xlsx", True
Kill "C:\Users\" & NombreUsuario() & "\Desktop\srac17.xlsx"
Kill "C:\Users\" & NombreUsuario() & "\Desktop\srac16.xlsx"
MsgBox "Importación Realizada"
Else
MsgBox ("Importación Cancelada")
End If
End Sub