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

我發現也與某些語句的步驟命令不會一步，但讓所有下面的代碼運行。爲了避免這種情況，請在步驟發生混淆後的行中設置一個斷點。