Application.displayalerts = false不停止弹出窗口

Question

我尝试在Excel中使用VBA来查找和替换多个值。正在更新的字段包含HTML文本，因此我收到一个窗口弹出窗口，其中显示我将丢失格式更改，并且当它发布回TFS时，它将被存储为普通文件文本。使用Application.displayalerts = false并不会阻止该窗口出现。

有没有办法可以使用代码让它消失？

Answer 1

添加以下行将解决问题。

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

通过添加此功能，您可以在主子组中关闭计算，事件，屏幕和警报：

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