Como comprobar se existe un ficheiro ou cartafol no seu ordenador con Excel VBA?

O titorial de ofimática de hoxe céntrase en aprender a verificar que existe un ficheiro nun dos directorios do teu ordenador.

Preparación

Se es un pouco novo na codificación, asegúrate de que a pestana de desenvolvemento de Microsoft Office Excel estea activada e de que estás familiarizado con algún VBA básico de Excel .

Comprobando se existe un ficheiro con Excel VBA

O seguinte código aproveita as caixas de entrada para capturar o camiño ao ficheiro, así como o propio nome do ficheiro do usuario.

A continuación, aproveita o método Dir para verificar se a ruta do ficheiro realmente existe.

Por último, mostra unha caixa de mensaxe ao usuario co resultado da comprobación.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Comproba se existe un cartafol

Dun xeito bastante similar, pode comprobar se existe un cartafol específico no seu sistema operativo. Tamén aquí aproveitamos o método Dir , pero co parámetro vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

Usando o Código

• Abra Microsoft Excel e navegue ata o seu libro de traballo.
• Prema Developer e despois preme Visual Basic.
• Copia e pega o código de arriba como unha subrutina nunha folla específica do teu módulo VBA.
• Executar (F5) o código.
• Garda o teu caderno de traballo.

Posibles ampliacións

O código da placa da caldeira anterior ampliarase para os seguintes casos de uso:

• Crea un cartafol/ficheiro se aínda non existe.
• Elimina un ficheiro de cartafol sempre que estean presentes no directorio de ficheiros do teu sistema operativo.
• Busca ficheiros/cartafoles mediante un comodín.