FUNÇÃO E INSTRUÇÃO DE CONTROLE DO FLUXO DE EXECUÇÃO – GOTO

GoTo

    Instrução empregada para provocar uma quebra intencional no fluxo de execução do código de um procedimento para uma linha ou rótulo específico dentro do procedimento, utilizando esta sintaxe:

GoTo LinhaOuRótulo

Onde,

• LinhaOuRótulo: argumento obrigatório que define o número da linha ou nome do rótulo para onde o fluxo de código deverá ser desviado. 

As seguintes considerações são válidas para a instrução GoTo:

• GoTo pode redirecionar o fluxo de código apenas dentro do procedimento onde aparece;
• Apesar de GoTo poder ser empregado no código, evite o seu uso para impedir que a quebra da estrutura do código, o qual deve ser sempre linear, de cima para baixo, até a última instrução (ou até encontrar uma instrução Exit ou End).

Exemplo: O exemplo a seguir mostra como empregar uma instrução GoTo para forçar o usuário a fornecer um diretório onde se encontra o arquivo desejado. O usuário poderá indicar o caminho quantas vezes quiser, até que o procedimento encontre o arquivo TESTE.LOG solicitado seja encontrado pela função Dir() do VBA.

Public Function CaminhoParaArquivoLog() as string

   Dim strCaminho as string

TentaDeNovo:

   StrCaminho = InputBox(“Forneça o caminho para o arquivo TESTE.LOG:”,”Caminho?”)

   If Len(strCaminho) > 0 Then

       If Len(Dir(strCaminho & “\TESTE.LOG”) = 0 Then

           MsgBox “Arquivo não encontrado em “ & strCaminho

           GoTo TentaDeNovo

        End If

        Else

           CaminhoParaArquivoLog = strCaminho

   End If

End Function

Até a Próxima!!