访问VBA批量文本文件导入运行时错误3310

Question

我编写了Access VBA代码，用于导入文本文件。 （几个不同的vba模块，它们针对不同的文件路径。但是，当它处理5500-6000个累积文件时，它会停止并给出以下错误：

要再次开始导入，需要重新启动Access。我试过添加一个“DoEvents”，但这似乎并不多。我在网上进行了研究，发现其他人也有同样的问题，但我无法找到他们所做的答案。有没有人知道如何绕过Access可以一次导入的文件数量限制？

代码摘录：停止的位置以粗体显示。

If FileExists(ImportFileName) = True Then
    **DoCmd.TransferText acImportDelim, ImportSpecification, ImportTable, ImportPath & ImportFile, False, ""**

Else
    DoCmd.RunSQL "INSERT INTO " & FNFTable & " (FundID, IndexID, FileName) VALUES (" & FundID & ", " & IndexID & ", '" & ImportFile & "');"
    FNFResults = FNFResults + 1
    GoTo NextTimePeriod:
End If