Ricerca e memorizzazione file
Hai un problema con Excel?
Ricerca e memorizzazione file
di Fabio (utente non iscritto) data: 22/08/2017 18:16:46
Buongiorno a tutti,
avrei la necessità di una macro che una volta avviata mi permetta la visualizzazione delle cartelle (come con esplora risorse) e una volta individuato e selezionato il file che mi interessa mi memorizzi nella cella A1 il percorso e nella cella B1 il nome del file.
Ho fatto alcuni tentativi, anche con il registratore, ma senza risultati (conosco molto poco vba).
Qualcuno ha qualche macro che fa già quello che mi interessa?
Grazie.
Fabio
di patel data: 22/08/2017 18:42:27
immagino che col registratore tu riesca soltanto ad aprire il file (se è un file excel), però è un buon punto di partenza, mostra il codice che hai registrato.
di Fabio (utente non iscritto) data: 22/08/2017 19:12:42
Non devo aprire un file ma solo memorizzare il percorso è il nome del file.
Con il registratore non registra l'apertura della cartella (con esplora risorse) e la selezione del file
di patel data: 23/08/2017 05:32:25
prova questa
Sub File()
Set fd = Application.FileDialog(msoFileDialogFilePicker)
If fd.Show = -1 Then
selfile = fd.SelectedItems(1)
pos = InStrRev(selfile, "")
Selpath = Left(selfile, pos - 1)
Range("A1") = Left(selfile, pos - 1)
Range("B1") = Right(selfile, Len(selfile) - pos)
End If
Set fd = Nothing
End Sub |
di fabio (utente non iscritto) data: 23/08/2017 11:00:18
grazie Patel, è proprio quello che mi serviva.
Ora penso, e spero, di riuscire ad adattarlo al mio progetto.
Non è indispensabile ma sarebbe una "finezza": è possibile impostare come tipo file da ricercare che sia "csv" anzichè "Tutti i file (*.*)" ?
Grazie mille e buona giornata.
Fabio
di patel data: 23/08/2017 12:52:59
modifica cosi
Sub File()
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Filters.Add "", "*.csv", 1
....... |
di fabio (utente non iscritto) data: 23/08/2017 15:24:08
ora è più che perfetto...
grazie mille
Vuoi Approfondire?