我无法追踪当机问题，因为VBA一直都显示“无法进入中断模式”错误

Question

我有一个包含10,000行文件的长宏。最后，我尝试使用fileSaveName。如果我只运行宏，它会一直崩溃。我无法找到问题所在，因为如果我逐步执行，则会在保存代码附近的任何地方看到“无法进入中断模式”。如果我“运行到游标”，也会发生同样的事情。然后，当我单击“继续”时，宏就会运行到最后。

当我插入“ Debug.Assert”中断时，单击“继续”后宏运行正常。

“如果保存的话，获取活动的工作簿文件夹

strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"

'创建用于保存文件的默认名称

strFile = QuoteNo & " - OEM List"
strPathFile = strPath & strFile

“立即通过消息框保存

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=strFile, FileFilter:="Excel workbook (*.xlsx), *.xlsx", Title:="Save with this file name or Create a new name")

If fileSaveName <> False Then
  ActiveWorkbook.SaveAs Filename:=fileSaveName
End If

只需重新格式化和过滤文件，然后保存文件就不会损坏。