Fouten afhandelen in de VBA Compiler

Bij het uitvoeren van uw gecompileerde VBA-code kunnen runtimefouten optreden. Terwijl standaard-VBA de instructie On Error voor foutafhandeling gebruikt, maakt de VBA Compiler van XLS Padlock gebruik van een Try...Except-blok.

Wanneer er binnen het Try-blok (of in een procedure die het aanroept) een fout optreedt, springt de compiler voor de afhandeling onmiddellijk naar het Except-blok.

Syntaxis

Try
    ' ... Code to execute ...
Except
    ' ... Code to run if an exception occurs ...
End

Codevoorbeeld

NumberStr = ""
if InputQuery("Input", "Type an integer from 1 to 7", NumberStr) then
    try
        Number = StrToFloat(NumberStr)
    except
        raise("Not a valid number")
    end

    select case Number
        case 1
            ShowMessage("One")
        case 1 + 1
            ShowMessage("Two")
        case 4.5 / 1.5
            ShowMessage("Three")
        case 2 * 2
            ShowMessage("Four")
        case Length("xxxxx")
            ShowMessage("Five")
        case 3 + 3, 3 + 4
            ShowMessage("Six or Seven")
        case else
            ShowMessage("You did not type an integer from 1 to 7")
    end select
end if