Verificar arquivo existe utilizando VBA Excel

Gráfico de funil Excel
Gráfico de funil Excel
26 de outubro de 2015
Abrir o Excel em tela cheia ocultar guias, barras de rolagens e menus
Abrir o Excel em tela cheia ocultar barras, guias e ferramentas
8 de novembro de 2015

Verificar se arquivo existe utilizando VBA Excel

Neste artigo é apresentado o código VBA para a verificação se um ou mais arquivos existem.

Esta funcionalidade pode ser muito útil da manipulação e geração de arquivos evitando erros durante o processo de abertura ou geração de arquivos.

Para verificar a funcionalidade realize o download do exemplo clicando no botão download ao final do artigo.

Validar a existência de arquivos Excel VBA

Nesta Pasta de trabalho, digite o caminho completo de alguns arquivos, e digite errado um ou outro.

Depois clique no botão Validar existência dos arquivos, ao final da lista.

O procedimento realiza a validação dos arquivos um a um, e ao primeiro incorreto ele para e saí do processo de validação.

Abaixo o código fonte utilizado:

'Função que identifica a existência do arquivo
Private Function lfVerificaArquivo(ByVal lStr As String) As Boolean

    lfVerificaArquivo = True
    
    'Identifica se o arquivo existe
    If Dir(lStr) = vbNullString Then
        lfVerificaArquivo = False
        Mensagem = MsgBox("O arquivo: '" & lStr & "' não foi encontrado! Por favor verifique o caminho e a extensão do arquivo", vbInformation)
    Else
        lfVerificaArquivo = True
    End If
    
End Function

'Procedimento que realiza um loop por todos os arquivos de configuração
Public Sub lsVerificaArquivosConfiguracao()
    Dim lLinha              As Long
    Dim lUltimaLinhaAtiva   As Long
    
    lLinha = 2
    
    'Identifica a quantidade de linhas preenchidas
    lUltimaLinhaAtiva = Worksheets("Plan1").Cells(Worksheets("Plan1").Rows.Count, 4).End(xlUp).Row
    
    'Realiza um loop por todos os registros
    While lLinha <= lUltimaLinhaAtiva
        'Se não for encontrado um arquivo o procedimento é abortado
        If lfVerificaArquivo(Sheets("Plan1").Range("D" & lLinha).Value) = False Then
            Exit Sub
        End If

        lLinha = lLinha + 1
    Wend
    
    MsgBox "Os caminhos dos arquivos estão corretos!"
End Sub

Obrigado pela sua leitura, abaixo o arquivo para download

 

At.

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.