VBA代码中途无需重新启动的错误消息

Question

我有下面的代码似乎但是中途通过它做工精细，停止和重新启动时，我调试的代码。

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

感谢 SB

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”将执行循环。

尝试Application.EnableEvents = False

befor

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

我发现也与某些语句的步骤命令不会一步，但让所有下面的代码运行。为了避免这种情况，请在步骤发生混淆后的行中设置一个断点。