Verificar arquivo existe utilizando VBA Excel

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