Uma macro do Excel para determinar se uma pasta de trabalho existe - dummies

Esta macro do Excel permite que você passe um caminho de arquivo para avaliar se o arquivo está lá. Por exemplo, você pode ter um processo que manipule um arquivo em algum lugar em seu PC. Por exemplo, talvez seja necessário abrir uma pasta de trabalho existente para adicionar dados a ela diariamente. Nesse caso, talvez seja necessário testar para verificar se o arquivo que você precisa manipular existe.

Como funciona a macro

A primeira coisa a notar sobre esta macro é que é uma função, não um procedimento Sub. Fazer com que esta macro uma função permita que você passe qualquer caminho de arquivo para ele.

Nesta macro, você usa a função Dir, que retorna uma seqüência de caracteres que representa o nome do arquivo que corresponde ao que você passa para ele. Esta função pode ser usada de muitas maneiras, mas aqui, você usa para verificar se o caminho do arquivo que você passa para ele existe:

Função FileExists (FPath As String) como Boolean 'Etapa 1: Declare suas variáveis ​​Dim FName As String 'Etapa 2: Use a função Dir para obter o nome do arquivo FName = Dir (FPath)' Etapa 3: Se o arquivo existe, retornar True; else False If FName "Then FileExists = True _ Else: FileExists = False End Function

A Etapa 1 declara uma variável String que contém o nome do arquivo que retorna da função Dir. FName é o nome da variável String.

< ! --2 ->

Na Etapa 2, você tenta configurar a variável FName. Você faz isso passando a variável FPath para a função Dir. Essa variável FPath é passada através das declarações de função (veja a primeira linha de O código). Esta estrutura impede que você precise codificar de forma rígida um caminho de arquivo, passando-o como uma variável.

Se a variável FName não puder ser definida, o caminho que você passou não existe. Assim, o FName a variável está vazia. O Passo 3 simplesmente traduz esse resultado para uma expressão Verdadeira ou Falso.

Novamente, esta função pode ser usada para avaliar qualquer caminho de arquivo que você passa para isso. A beleza da escrita da macro como uma função.

A macro a seguir demonstra como usar esta função:

Sub Macro1 () Se FileExists ("C: TempMyNewBook. xlsx") = True Then MsgBox "O arquivo existe." Else MsgBox "O arquivo não existe." End If End Sub

Como usar a macro

Para implementar esta macro, você pode copiar e colar os dois pedaços de código em um módulo padrão:

1. Ative o Editor do Visual Basic pressionando Alt + F11.

2. Clique com o botão direito do mouse no nome do projeto / pasta de trabalho na janela do projeto.

3. Escolha Inserir → Módulo.

4. Digite ou cole o código no módulo recém-criado.