[Excel] separare il percorso dal file

[feno]

ciao
se nella cella A1 ho il seguente valore

D:\QUALITA'\SISTEMA QUALITA' AMBIENTE\Copie obsolete\Procedure\TEMP\Revisionate\PRO-COM-18_Riesame delle richieste contrattuali del prodotto non standard_attuale.doc

che in pratica è un percorso di un file che può variare come nidificazione di cartelle

e volessi mettere nella cella B1 il percorso e nella cella B2 il nome del file quale formula dovrei usare?

[archimede]

Codice: Seleziona tutto

Public Function NomeFile(rsFullPath As String) As String
    NomeFile = Dir(rsFullPath)
End Function

Quindi, in B2 =nomefile(A1) e in B1 =SINISTRA(A1;TROVA(B2;A1)-1).

HTH.

Alessandro

[archimede]

Quanto sopra ammesso che il file sia davvero presente nella posizione indicata in A1.

Alessandro

[feno]

nn funz... mi dà #NOME?

dove devo dichiararla?

a questo punto potrei proprio dichiararmi una funzione che fa un loop sul valore della cella e trova il valore \ mette quello che sta a sx di questo valore nella variabile percorso e quello che sta a dx nella variabile file...


Insomma qualcosa del genere....

[Alexsandra]

La Function di Archimede funziona,la mevi mettere in un modulo in VBA (ALT+F11 ed entri nel VB , Menù inserisci ,scegli modulo e incolli il codice di Archimede) Poi devi mettere il percorso completo con il nome file,funziona anche senza "nome file" a patto che tu metta la "\" e ti riporta il 1° file presente nel percorso
PS. Attento a non invertire le formule in B1 e B2

[archimede]

dove devo dichiararla?

A me funziona: tu dove l'hai dichiarata?

ALT-F11 --> Inserisci --> Modulo

Alessandro

[feno]

ho creato questo codice che estrae il percorso anche se non esiste la dir sul pc.

Codice: Seleziona tutto

Public Function path(percorso As String) As String
 For i = 1 To Len(percorso)
  valore = Mid(percorso, i, 1)
  If valore = "\" Then
   path = Mid(percorso, 1, i)
  End If
 Next i
 
End Function


Spero possa tornare utile a qualcuno.

Ciao

[archimede]

Oppure:

Codice: Seleziona tutto

Public Function path(percorso As String) As String
   path = Mid(percorso, 1, InStrRev(percorso, "\", -1, vbTextCompare))
End Function

Alessandro