[VBScript] Error handling: 3x zelfde error?

[Crazybyte]

Bij het bedrijf waar ik momenteel werk, maakt men gebruik van een ERP pakket. In dat pakket zit een Product Configurator, die we zelf kunnen programmeren.

Nu heb ik een class geschreven waarin de volgende functie staat.

VBScript:

    Public Function Openen(varExcelDocumentIn, varWerkbladIn)
        Set ExcelApp = Nothing
        Set ExcelBook = Nothing
        Set ExcelSheet = Nothing
        Openen = True
        
        ' De Applicatie starten
        On Error Resume Next
            Set ExcelApp = CreateObject("Excel.Application")
            If Err = 0 Then 
                ExcelApp.Visible = False
                Set ExcelBook = ExcelApp.Workbooks.open(varExcelDocumentIn)
                If Err = 0 Then
                    Set ExcelSheet = ExcelBook.Worksheets(varWerkBladIn)
                    If Err = 0 Then
                        ExcelSheet.Activate
                    Else
                        MsgBox "ExcelSheet bestaat niet"
                        Openen = False
                        Err.Clear
                    End If
                Else
                    MsgBox "ExcelBook bestaat niet"
                    Openen = False
                    Err.Clear
                End If
            Else
                MsgBox "ExcelApp bestaat niet"
                Openen = False
                Err.Clear
            End If
    End Function

In de code van de Product Configurator vind er een aanroep naar deze functie plaats. Dit gaat allemaal goed. Als het opgegeven werkblad niet bestaat, geeft ie netjes 1x voor het opstarten de foutmelding "ExcelSheet bestaat niet". Echter als ExcelBook niet bestaat, verschijnt de "ExcelBook" bestaat niet 3x (2x voor opstarten van de Product Configurator en 1x bij afsluiten ervan) in plaats van maar 1x voor het opstarten.

Ik vermoed dat er in de code van de functie iets fout zit, maar aangezien ik pas sinds deze week bezig ben met VBScript, heb ik geen idee waar het nu daadwerkelijk fout gaat.

Hopelijk ziet iemand van jullie het.

[SchizoDuckie]

Nou heb ik geen verstand van vbscript hoor, maar haal dat regeltje on error resume next eens weg

[sopsop]

Die on error resume next moet blijven staan. Hij checkt direct erna of er een error is opgetreden.

Maar het lijkt erop dat hij de functie toch echt drie keer aanroept.

Probeer dit eens:

Visual Basic:

    Public Function Openen(varExcelDocumentIn, varWerkbladIn) 
              MsgBox "ExcelApp bestaat niet" 
              Openen = False 
    End Function

Probeer deze functie eens. Hoevaak zie je dan een msgbox "ExcelApp bestaat niet"?

[ Voor 46% gewijzigd door sopsop op 18-07-2007 15:44 ]

[Phenomenon]

Waarom 'On Error Resume Next'?

Je kan toch met normale foutafhandeling werken?

[Crazybyte]

sopsop schreef op woensdag 18 juli 2007 @ 15:42:
Probeer deze functie eens. Hoevaak zie je dan een msgbox "ExcelApp bestaat niet"?

Die verschijnt maar 1 keer.

Het valt me overigens op als ik, voordat ik de class declaratie doe, er een Msgbox "test" neer zet en ik zorg dat de fout optreed die Msgbox "ExcelBook bestaat niet" aanroept, die Msgbox "test" ook drie keer verschijnt.

Terwijl dat bij de andere foutmeldingen niet gebeurd.

Phenomenon schreef op woensdag 18 juli 2007 @ 15:48:
Waarom 'On Error Resume Next'?

Je kan toch met normale foutafhandeling werken?

Wat versta je hier precies onder?

[ Voor 18% gewijzigd door Crazybyte op 18-07-2007 15:55 ]

[Verwijderd]

Ik zou gewoon je errormessage een keer uitbreiden.
Hierdoor krijg je misschien een duidelijkere foutmelding te zien.
Verder zie ik echt niets mis met je functie hoor...

VBScript:

    Public Function Openen(varExcelDocumentIn, varWerkbladIn) 
        Set ExcelApp = Nothing 
        Set ExcelBook = Nothing 
        Set ExcelSheet = Nothing 
        Openen = True 
         
        ' De Applicatie starten 
        On Error Resume Next 
            Set ExcelApp = CreateObject("Excel.Application") 
            If Err = 0 Then  
                ExcelApp.Visible = False 
                Set    ExcelBook = ExcelApp.Workbooks.open(varExcelDocumentIn) 
                If Err = 0 Then 
                    Set ExcelSheet = ExcelBook.Worksheets(varWerkBladIn) 
                    If Err = 0 Then 
                        ExcelSheet.Activate 
                    Else 
                        MsgBox "ExcelSheet bestaat niet"  & vbcrlf & err.code & " - " & err.description
                        Openen = False 
                        Err.Clear 
                    End If 
                Else 
                    MsgBox "ExcelBook bestaat niet"   & vbcrlf & err.code & " - " & err.description
                    Openen = False 
                    Err.Clear 
                End If 
            Else 
                MsgBox "ExcelApp bestaat niet"   & vbcrlf & err.code & " - " & err.description
                Openen = False 
                Err.Clear 
            End If 
    End Function

Succes...

[Crazybyte]

Verwijderd schreef op woensdag 18 juli 2007 @ 15:58:
Ik zou gewoon je errormessage een keer uitbreiden.
Hierdoor krijg je misschien een duidelijkere foutmelding te zien.
Verder zie ik echt niets mis met je functie hoor...

Dit haalt ook niets uit, melding is 3x exact hetzelfde.

Met wat uitproberen in de tussentijd, lijkt de functie Sluiten voor het probleem te zorgen.

Even de class er volledig bijnemen:

VBScript:

class ExcelFuncties
    ' Variabelen declareren
    Private ExcelApp
    Private ExcelBook
    Private ExcelSheet
    
    Public Function Openen(varExcelDocumentIn, varWerkbladIn)  
        Set ExcelApp = Nothing  
        Set ExcelBook = Nothing  
        Set ExcelSheet = Nothing  
        Openen = True  
        
        ' De Applicatie starten  
        On Error Resume Next  
        Set ExcelApp = CreateObject("Excel.Application")  
        If Err = 0 Then   
            ExcelApp.Visible = False  
            Set    ExcelBook = ExcelApp.Workbooks.open(varExcelDocumentIn)  
            If Err = 0 Then  
                Set ExcelSheet = ExcelBook.Worksheets(varWerkBladIn)  
                If Err = 0 Then  
                    ExcelSheet.Activate  
                Else  
                    MsgBox "ExcelSheet bestaat niet" & err.number & " - " & err.description 
                    Openen = False  
                    Err.Clear  
                End If  
            Else  
                MsgBox "ExcelBook bestaat niet" &  err.number & " - " & err.description 
                Openen = False  
                Err.Clear  
            End If  
        Else  
            MsgBox "ExcelApp bestaat niet" & err.number & " - " & err.description 
            Openen = False  
            Err.Clear  
        End If  
    End Function
        
    Public Function Lees(varRijIn, varKolomIn)
        Lees = ExcelSheet.Cells(varRijIn, varKolomIn).value
    End Function
    
    Public Function Sluiten()
        If IsObject(ExcelApp) Then
            If IsObject(ExcelBook) Then
                ExcelApp.DisplayAlerts = False
                ExcelBook.close
                ExcelApp.quit   
                
                Set ExcelSheet = Nothing
                Set ExcelBook = Nothing
                Set ExcelApp = Nothing  
            End If
        End If  
    End Function
End Class

De aanroep gebeurt als volgt:

VBScript:

Include clsExcelFuncties

Dim objExcel
Set objExcel = New ExcelFuncties

If objExcel.Openen(HuidigBedrijfDir + "excelbestand.xls", "Blad1") = false then
   Msgbox "Het document is niet geopend"
Else
   MsgBox "De eerste keuze is: " & objExcel.Lees(1,2)
End If

objExcel.Sluiten

Zodra ik "objExcel.Sluiten" weghaal (uit-comment), dan geeft ie de melding maar 1x

[Phenomenon]

Crazybyte schreef op woensdag 18 juli 2007 @ 15:54:
[...]

Wat versta je hier precies onder?

Visual Basic:

On error goto ErrHandler

Exit sub
:ErrHandler
bla bla

[Crazybyte]

Phenomenon schreef op woensdag 18 juli 2007 @ 16:14:
[...]

Visual Basic:

...

Kijk eens goed wat ik voor taal gebruik
Dat wat jij voorstelt is in VBScript niet mogelijk, helaas.

[Verwijderd]

Dat ziet er eigenlijk allemaal vrij goed uit volgens mij.
ik heb niet dadelijk een idee waar het verkeerd zit.
Succes...

PS. als er hier niet dadelijk iemand kan helpen kan je ook altijd je vraag eens laten vallen op het vbscript forum van TEK-TIPS. daar zitten een paar echte vbscript guru's (PHV, Tsuji, marcdmac...)
www.tek-tips.com

[Crazybyte]

Zoals ik toen straks al gepost heb, leek de functie Sluiten te zorgen voor het probleem. Ik heb dan ook dit:

VBScript:

Public Function Sluiten()
        If IsObject(ExcelApp) Then
            If IsObject(ExcelBook) Then
                ExcelApp.DisplayAlerts = False
                ExcelBook.close
                ExcelApp.quit    
                
                Set ExcelSheet = Nothing
                Set ExcelBook = Nothing
                Set ExcelApp = Nothing    
            End If
        End If    
    End Function 

Veranderd in:

VBScript:

Public Function Sluiten()
        On Error Resume Next
        ExcelApp.DisplayAlerts = False
        On Error Resume Next
        ExcelBook.close
        On Error Resume Next
        ExcelApp.quit    
                
         Set ExcelSheet = Nothing
         Set ExcelBook = Nothing
         Set ExcelApp = Nothing    
    End Function 

Vervolgens was het probleem verholpen en verscheen de melding dat het bestand niet correct is, nog maar 1 keer.

Ik vraag me echter wel af of dit de juiste manier is om het probleem af te handelen.

[SKiLLa]

Die "On Error Resume Next" is toch maar echt 1x nodig en blijft actief totdat je 'm weer uitschakeld met "On Error Goto 0", maar de functie sluiten:

VBScript:

Public Function Sluiten() 
    If IsObject(ExcelApp) Then 
        If IsObject(ExcelBook) Then
            ExcelApp.DisplayAlerts = False 
            ExcelBook.close 
            ExcelApp.quit     
                 
            Set ExcelSheet = Nothing 
            Set ExcelBook = Nothing 
            Set ExcelApp = Nothing     
        End If 
    End If     
End Function 

Moet volgens mij zijn:

VBScript:

Public Sub Sluiten() 

    On Error Resume Next

    If IsObject(ExcelApp) Then 
        ExcelApp.DisplayAlerts = False 

        If IsObject(ExcelBook) Then

            If IsObject(ExcelSheet) Then
                ExcelSheet.Close
                Set ExcelSheet = Nothing
            End If

            ExcelBook.Close 
            Set ExcelBook = Nothing
        End If

        ExcelApp.quit     
        Set ExcelApp = Nothing     
    End If

    Err.Clear
    On Error Goto 0
End Sub

Ook zet je in de functie Openen de return waarde "Openen = True" in het begin van de routine, terwijl het beter is om deze by default op False te zetten en pas op True te zetten wanneer dat ook daadwerkelijk gelukt is. Nu kan (eventuele) foutieve logica/errorhandling in die functie ervoor zorgen dat je onterecht True terugkrijgt ...