Question

为什么VBA使用on error resume next仍然出错

Sub 获取所有客户姓名()
On Error Resume Next
Dim Item As Integer
With CreateObject("scripting.dictionary")
For Item = 1 To 5
'Sheets("合同明细表").Cells(4, "I").End(xlDown).Row
.Add Cells(Item, "A").Value, ""
Next Item
MsgBox Join(.Keys, ",")
End With
End Sub
'Sheets("合同明细表").Cells(4, "I").End(xlDown).Row
这句话可忽略





Answer 1

Sub test()

    On Error Resume Next

    Dim dic As New Dictionary

    Dim i As Integer

    For i = 0 To 10

        dic.Add i, i

    Next

    For i = 0 To 10

        dic.Add i, i

    Next

    

    Dim a As Variant

    For Each a In dic

        Debug.Print a

    Next

End Sub

添加引用后,这一段不会出错,不知道为什么,

你引用有添加吗,没有的话试一下,我也不知道,我测试结果,没提示错误

追问

添加了的

追答

那你试试不要用with块

追问

我试了你的代码    也是提示这样的错误，我觉得肯定是我这office自身问题，不是程序问题，因为我只要把5改成3  也就是说  没有重复添加到字典的时候是乐意完美运行的

不管怎么说  还是谢谢你  我没财富值  不能继续追问了

Answer 2

代码编辑器中选择工具--选项--通用选项卡中的错误捕获，勾选遇到未处理的错误时中断