estrarre il nome file

Question

salve a tutti!

in una cella ho il percorso completo di un file come posso estrarre solo il suo nome senza il percorso (prima) e l'estensione finale (dopo)

buon lavoro

Answer 1

salve a tutti!

in una cella ho il percorso completo di un file come posso estrarre solo il suo nome senza il percorso (prima) e l'estensione finale (dopo)

buon lavoro

Un modo senza usare il vb per avere il nome del file :

=SINISTRA(STRINGA.ESTRAI(CELLA("nomefile");RICERCA("[";CELLA("nomefile"))+1;RICERCA("]";CELLA("nomefile"))-RICERCA("[";CELLA("nomefile"))-1);RICERCA(".";STRINGA.ESTRAI(CELLA("nomefile");RICERCA("[";CELLA("nomefile"))+1;RICERCA("]";CELLA("nomefile"))-RICERCA("[";CELLA("nomefile"))-1))-1)

Il file deve essere salvato.

Vedi anche:

http://office.microsoft.com/it-it/excel-help/inserimento-del-nome-del-file-di-excel-corrente-in-una-cella-HA001034627.aspx

Altrimenti, se hai il nome del file in una cella e vuoi reecuperare solo il nome senza estensione., una alternativa al codice di David:

Public Function fTrova(ByVal v As Variant) As String

    Dim s() As String

    s = Split(v, "")

    fTrova = Split(s(UBound(s)), ".")(0)

End Function:

Answer 2

Ciao MauroAP

all'interno dell'editor VBA crea un nuovo modulo e incolla la seguente funzione:

---

Public Function fTrova(ByVal strPath As String) As String

    Dim intStart As Integer

    Dim intEnd As Integer

    intStart = InStrRev(strPath, "") + 1

    intEnd = InStrRev(strPath, ".")

    fTrova = Mid(strPath, intStart, intEnd - intStart)

End Function

---

Ipotizzando che la cella contenente il percorso al tuo file sia la A1, in B1 scrivi:

=fTrova(A1)

David

Answer 3

Public Function fTrova(ByVal v As Variant) As String

 

    Dim s() As String

    s = Split(v, "")

    fTrova = Split(s(UBound(s)), ".")(0)

   

End Function

di rara eleganza ... come sempre!!!

i miei complimenti

David

Answer 4

PROPRIO ORA HO VISTO ANCHE LA FUNZIONE SPLIT!!!

STUDIERO!!!! ANCHE QUESTA!

Answer 5

Grazie David !

Rimgrazio anche Mauro !

Preferisco questa da Vb ..... che ho adattato alle mie esigenze!

StrPath lo avevo gia come valore variabile all'interno di un ciclo che chiede all'utente di selezionare dei file-

NomeFileIntStart = InStrRev(FileSelezionato, "") + 1

NomeFileIntEnd = InStrRev(FileSelezionato, ".")

SoloNomeFile = Mid(FileSelezionato, NomeFileIntStart, NomeFileIntEnd - NomeFileIntStart)

Cells(iRow, Ncol) = SoloNomeFile

Funziona!!

GraZIE MOLTISSIMO!!!! A TUTTI E DUE!