vba - 第三个循环不执行导出，但前两个执行了

Question

我有一个大程序，它应该遍历文件夹中的所有文件并执行一堆东西。如果文件夹中有 2 个文件，一切正常。如果有 3 个（我没有尝试过 4 个或 5 个），则在第 3 个循环中，一行（其余所有工作正常）不会做任何事情。

代码没有问题，否则，前两个文件将无法正常工作

在第 3 次运行时，它进入 IF，到达那条线，通过它（我调试过它，所以我自己按了 F8，所以我知道它通过了那里）但是文件夹中的 excel 文件是来自前。从中导出的 MS Access 表是正确的

我迷路了

这是 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, CurProjectNameUpper & "_TOMATCH", MatchLoadPath & "TOMATCH.xlsx", True

If CreateMatchFileFromLoad = -1 Then 

If fExistTable(CurProjectNameUpper & "_TOMATCH") Then
DoCmd.DeleteObject acTable, CurProjectNameUpper & "_TOMATCH"
End If
                                  
DoCmd.TransferDatabase acImport, "ODBC", NewConnect, acTable, CurProjectNameUpper & "_" & VOracleName, CurProjectNameUpper & "_TOMATCH", False, True
                                  
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, CurProjectNameUpper & "_TOMATCH", MatchLoadPath & "TOMATCH.xlsx", True
End If  

                 

标签： vbams-access