El tutorial d'ofimàtica d'avui se centra a aprendre a verificar que existeix un fitxer en un dels directoris de l'ordinador.
Preparació
Si sou una mica nou en la codificació, assegureu-vos que la pestanya de desenvolupament de Microsoft Office Excel estigui activada i que esteu familiaritzat amb alguns VBA bàsics d'Excel .
Comprovar si existeix un fitxer amb Excel VBA
El codi següent aprofita els quadres d'entrada per capturar la ruta al fitxer així com el propi nom del fitxer de l'usuari.
A continuació, aprofita el mètode Dir per verificar si realment existeix la ruta del fitxer.
Finalment, mostra un quadre de missatge a l'usuari amb el resultat de la comprovació.
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
Comproveu si existeix una carpeta
D'una manera força semblant, podeu comprovar si hi ha una carpeta específica al vostre sistema operatiu. També aquí aprofitem el mètode Dir , però amb el paràmetre 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
Ús del Codi
- Obriu Microsoft Excel i navegueu al vostre llibre de treball.
- Premeu Desenvolupador i després premeu Visual Basic.
- Copieu i enganxeu el codi de dalt com a subrutina en un full específic del vostre mòdul VBA.
- Executeu (F5) el codi.
- Guarda el teu llibre de treball.
Possibles ampliacions
El codi de la placa de caldera anterior s'ampliarà per als casos d'ús següents:
- Creeu una carpeta/fitxer si encara no existeix.
- Suprimiu un fitxer de carpeta sempre que estigui present al directori de fitxers del vostre sistema operatiu.
- Cerca fitxers/carpetes amb un comodí.