excel - 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