Durante la programmazione delle macro, potrebbe essere necessario determinare se un particolare file esiste su disco. Ad esempio, lo scopo della macro potrebbe essere quello di aprire e leggere da un file di testo. Prima di farlo, ti consigliamo di controllare per vedere se il file esiste, al fine di evitare errori.

La seguente funzione VBA può essere utilizzata per verificare l’esistenza di un file. Tutto quello che devi fare è passargli il nome completo del file come una stringa e la macro restituisce True (se il file esiste) o False (se non lo fa).

Function FileThere(FileName As String) As Boolean      FileThere = (Dir(FileName) > "")

End Function

Questa funzione funziona utilizzando la funzione Dir, che verifica la presenza di un file in una directory. Se il file esiste, Dir restituisce il percorso completo del file. La condizione Vero / Falso della funzione viene derivata confrontando quanto restituito da Dir con una stringa vuota. Se viene restituito qualcosa, il file esiste perché Dir non restituisce una stringa vuota.

È possibile utilizzare una funzione simile alla seguente:

If FileThere("c:\myfile.txt") Then      '      ' Do stuff here      ' Else      MsgBox "File Not There!"

End If

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2516) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Determining If a File Exists.