L'esercitazione di oggi sull'automazione di Office è incentrata sull'apprendimento di come verificare l'esistenza di un file in una delle directory del computer.
Preparazione
Se sei un po' nuovo alla programmazione, assicurati che la scheda di sviluppo di Microsoft Office Excel sia abilitata e che tu abbia familiarità con alcuni VBA di Excel di base .
Verifica se esiste un file con Excel VBA
Il codice seguente sfrutta le caselle di input per acquisire il percorso del file e il nome del file stesso dall'utente.
Quindi sfrutta il metodo Dir per verificare se il percorso del file esiste davvero.
Infine, visualizza una finestra di messaggio all'utente con il risultato del controllo.
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
Controlla se esiste una cartella
In modo abbastanza simile puoi verificare se esiste una cartella specifica nel tuo sistema operativo. Anche qui sfruttiamo il metodo Dir , ma con il parametro 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 il codice
- Apri Microsoft Excel e vai alla cartella di lavoro.
- Premi Sviluppatore e quindi premi Visual Basic.
- Copia e incolla il codice dall'alto come subroutine in un foglio specifico del tuo modulo VBA.
- Esegui (F5) il codice.
- Salva la tua cartella di lavoro.
Possibili estensioni
Il codice di targa della caldaia sopra e può essere esteso per i seguenti casi d'uso:
- Crea una cartella/file se non esiste già.
- Elimina un file della cartella a condizione che siano presenti nella directory dei file del sistema operativo.
- Cerca file/cartelle utilizzando un carattere jolly.