VBA Hatası İşleme Excel'de çalışmaz

VBA ile çok fazla deneyimim olmadı, ancak bazen iş yerinde kullanıyorum. Son zamanlarda, gerçekleşmemesi gereken bir sorunla karşılaştım ve ne patronum ne de kendim çözemedim.VBA Hatası İşleme Excel'de çalışmaz

Temel olarak, bu sorun, Application özelliği DisplayAlerts öğesinin True olarak ayarlanmış olmasıdır ve herhangi bir nedenle değiştirilemez. Muhtemelen ilgili bir hataya bastığımda, her zaman End | Debug | Help uyarısını görüntülemez ve hiçbir zaman uygulanan hata işlemine asla vurmaz.

64-bit Office 2010'u bir 64-bit Windows 7 makinesinde çalıştırıyorum. Bununla birlikte, bir platform sorunu olduğuna inanmıyorum, çünkü birden fazla farklı platformda, işletim sistemlerinde ve yazılım permütasyonlarında test ettim ve başka hiçbir makine bu hataya sahip değil; sadece benim.

Bunu daha önce herhangi biriyle karşılaştığında veya herhangi bir fikri varsa, bazı örnek kodlar oluşturdum. Düşünebildiğim tek şey, makinemde buna sebep olan bir şey var. Ama bir program arındırma ve birçok yeniden başladıktan sonra, ne olabileceğini deşifre etmeye daha yakın değilim.

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

hatası (gerektiği gibi) for-loop üçüncü sayım atılır. Hatanın türü alakasız, ilgili olan, hatayı alıyorum ve hata işleyicisine asla basmamam.

Bu konuda herhangi bir öneri veya yardım çok takdir edilecektir.

Çok teşekkürler!

kaynak

2010-08-09 Samuel Slade