Determine se existe uma pasta de trabalho usando VBA no Microsoft Excel

Anonim

No Microsoft Excel, podemos verificar se o arquivo existe em um local específico usando o código VBA. A macro exibirá o status na forma de uma caixa de mensagem. Neste artigo iremos identificar, se o estado de algum arquivo específico existe ou não, com a ajuda do código VBA. Podemos usar a função Dir para verificar se o arquivo existe no local usando o Excel VBA.

Usando este programa podemos verificar se existe algum arquivo que já existe no mesmo local. Assim, podemos deletar ou renomear o arquivo antigo.

Pergunta: Quando estamos criando macro para automatizar a tarefa, geralmente salvamos o arquivo de saída em um local. Gostaria de ter uma macro para verificar e em troca mostrar se o arquivo está disponível ou não no caminho específico.

Para ilustrar este exemplo, salvaremos o arquivo “Sample.xlsx” no caminho "D: \ FolderName \ Sample.xlsx"

Para identificar se a pasta de trabalho existe, precisamos seguir as etapas abaixo para iniciar o editor VB:

  • Clique na guia Desenvolvedor
  • No grupo Código, selecione Visual Basic

  • Clique em Inserir e depois em Módulo
  • Isso criará um novo módulo
  • Insira o seguinte código no Módulo Padrão
 Sub FileExists () Dim FilePath As String Dim TestStr As String FilePath = "D: \ FolderName \ Sample.xlsx" TestStr = "" Em erro Resume Next TestStr = Dir (FilePath) Em erro GoTo 0 If TestStr = "" Then MsgBox " O arquivo não existe "Else Workbooks.Open" D: \ FolderName \ Sample.xlsx "End If End Sub

  • Agora que a macro está pronta para ser executada, usaremos a tecla de atalho F5 e o arquivo "Amostra" será aberto

  • Se o arquivo não estiver disponível no caminho predefinido, a seguinte caixa de mensagem será exibida

Conclusão: Desta forma, podemos reconhecer facilmente se um determinado arquivo existe ou não em um caminho específico usando o código VBA.

Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.

Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail