Pular para o conteúdo

Tratamento de erros no VBA Compiler

Erros em tempo de execução podem ocorrer quando o seu código VBA compilado é executado. Enquanto o VBA padrão utiliza a instrução On Error para o tratamento de erros, o VBA compiler do XLS Padlock utiliza um bloco Try...Except.

Quando um erro ocorre dentro do bloco Try (ou em qualquer procedimento que ele chame), o compilador saltará imediatamente para o bloco Except para o tratamento.

Sintaxe

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

Exemplo de código

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