VBA代码中途重新启动没有错误消息

Question

我有下面的代码，它似乎工作正常，但是在它进行到一半时，它会在我调试代码时停止并重新启动。

当它重新启动时不会显示任何错误消息。有谁知道我的代码为什么会这样？

Sub ExportPICs()

If FileIsOpen("U:\FBS\PROJECTS_TEAM\MI\Sean's Projects\PICS and Benefits\Pics & Benefits upload file.xlsm") Then
    MsgBox "That file's open, or doesn't exist - do something else."
    Exit Sub
    End If

Sheets("Post Implementation Costs").Visible = True
Sheets("Post Implementation Costs").Activate
Sheets("Post Implementation Costs").Unprotect Password:="Projects123"

Dim Tracker As String
Tracker = ThisWorkbook.Name

Dim wkbk As Excel.Workbook
Set wkbk = Workbooks.Open(Filename:= _
"U:\FBS\PROJECTS_TEAM\MI\Sean's Projects\PICS and Benefits\Pics & Benefits upload file.xlsm") '***********CODE RESTARTS HERE WITHOUT ERROR MESSAGE

Dim pics As String
pics = Dir("U:\FBS\PROJECTS_TEAM\MI\Sean's Projects\PICS and Benefits\Pics & Benefits upload file.xlsm")


Workbooks(Tracker).Activate
Sheets("Post Implementation Costs").Activate

Dim rng As Range
Dim CountTrue As Long
Set rng = Range("D16:D100")
CountTrue = Application.WorksheetFunction.CountIf(rng, "PIC")

If CountTrue > 0 Then
Rows("19:" & (CountTrue + 18)).EntireRow.Copy
End If

End Sub

Answer 1

如果您在“Pics & Benefits upload file.xlsm”中的 Workbook Open Event 中有任何可以执行循环的代码。

试试Application.EnableEvents = False

之前

Dim wkbk As Excel.Workbook
Set wkbk = Workbooks.Open(Filename:= _
"U:\FBS\PROJECTS_TEAM\MI\Sean's Projects\PICS and Benefits\Pics & Benefits upload file.xlsm")

之后您可以通过Application.EnableEvents = True再次激活它

此代码停止调用 Excel 事件处理程序。将其设置为 false 通常是因为事件处理程序的效果不理想或防止无限循环。

Answer 2

我也发现，对于某些语句，Step 命令不会单步执行，而是让以下所有代码运行。为避免这种情况，请在步骤混淆的下一行设置断点。