Application.displayalerts = false不停止popup窗口

我试图在Excel中使用VBA来查找和replace多个值。 正在更新的字段有HTML文本，所以我得到一个窗口popup窗口，说我将失去格式更改，当它发布回TFS它将被存储为纯文本。 使用Application.displayalerts = false不会停止该窗口的出现。

有没有一种方法可以使用代码使其消失？

Answer 1

join下面的行将解决问题。

Application.EnableEvents = False 

如果你有兴趣，当我开始一个漫长的过程时，我喜欢使用这个函数：

 Sub SetEvents(ByVal State As Boolean) With Excel.Application .DisplayAlerts = State .ScreenUpdating = State .EnableEvents = State If State = True Then .Calculation = xlCalculationAutomatic Else .Calculation = xlCalculationManual End With End Sub 

通过添加这个，你可以在你的主要子目录中closures计算，事件，屏幕和警报：

 Sub CallEvents() SetEvents False 'Do some stuff SetEvents True End Sub