Trovare il Path

Tutte le seguenti macro dovranno essere inserite in un modulo ed associate ad un relativo pulsante.

Per avere in percorso completo del file attualmente aperto in Excel:

Sub DimmiPath()

MsgBox "Il path č " & ThisWorkbook.Path

End Sub

Per trovare un file o tutti i file data una cartella e una estensione. Nell'esempio sotto, verranno cercati tutti i file con estensione .xls ( .Filename = "*.xls" ) nella cartella Documenti ( .LookIn = "C:\Documenti" ) . Verrā riportato il numero di quanti file ci sono ed il loro nome, in ordine alfabetico.

Sub Trovafile()

Set fs = Application.FileSearch
With fs
.LookIn = "C:\Documenti"
.Filename = "*.xls"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

End Sub

Una variante alla precedente routine, č la seguente, di cui riporto solo il passo da modificare. Nella precedente macro, la cartella in cui eseguire la ricerca č inserita nel codice, e quindi fissa. Per eseguire la ricerca in altre cartelle sarebbe necessario modificare il codice. La variante che vi sottopongo consentirā di scegliere la cartella in cui eseguire la ricerca, semplicemente scrivendo il percorso completo della cartella, in una cella del foglio di lavoro, ad esempio in A1 (dove scriveremo, sempre per esempio, C:\MiaCartella)

Set fs = Application.FileSearch
With fs
.LookIn = "Range(A1)"       'parte da modificare

Per avere l'elenco di tutti i file .xls presenti nella cartella dove risiede il file attualmente aperto in Excel

Sub QualiFile()

With Application.FileSearch
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next I
End With

End Sub

Per avere il percorso (path) predefinito utilizzato da Excel per aprire i file.

Sub Default()

MsgBox "L'attuale percorso predefinito č " & _
Application.DefaultFilePath

End Sub