Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Estrapolare Path assoluta da un percorso file completo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Estrapolare Path assoluta da un percorso file completo

Postdi maui.maui » 20/06/08 20:38

Ho bisogno di un aiuto; posseggo un foglio excel ove in una colonna, in questo caso identificata con la colonna D, ho raccolto tuttle pat assolute relative a ciascun file
Es:
::::
d1 E:\Maui_Data\Pvt\Elysir\New_Version\Beta\Document.txt
d2 E:\Maui_Data\USB_Boot_Utility\lba.tar
::::
dn E:\Maui_Data\bash-203\loader.sh

Ora da questa situazione dovrei realizzare una macro in grado di aprire il file manager di windows, cosiddetto esplora risorse, in corrispondenza della path assoluta, a seconda di dove ho posizionato il cursore sulla cella, o addirittura sulla riga, cioe' a dire se il cursore si trova sulla cella d1, o anche se possibile sulla riga 1, cliccando il pulsante della macro dovrei aprire gestione risorse in corrispondenza della path scritta sulla corrispettiva colonna d, in questo caso E:\Maui_Data\Pvt\Elysir\New_Version\Beta\
In realta' come si nota la profondita' della path e' variabile 3 o 4 rami e anche piu' profonde.
Ho provato via vba usando la shell di windows cosiddetto cmd ad aprire il file manager usando tutta la path senza togliere l'ultima parte che rappresenta il nome file; ma il risultato e' che il file manager non mi apre la finestra con la lista files dentro a quella directory ma mi si posiziona direttamente a visualizzare ed es. il file txt se di file txt in quella determinata dir si tratta.
In sostanza devo ottenere una macro che ricavi la path escludendo l'ultima parte del percorso che rappresenta il momefile.
Questo e' quanto, vi ringrazio per l'aiuto che vorrete darmi.
saluti
Maui
maui.maui@libero.it
maui.maui
Newbie
 
Post: 2
Iscritto il: 20/06/08 20:12

Sponsor
 

Re: Estrapolare Path assoluta da un percorso file completo

Postdi By Sal » 22/06/08 10:58

Ciao Maui-maui, mi era stata fatta una richiesta simile, solo in modo inverso, cioè estrapolare il file alla fine della Path, come hai detto e un po difficile, non sapendo la lunghezza della Path, ma comunque ho ricavato questa:

Codice: Seleziona tutto
Sub nomeFile()
r = "C:\Documents and Settings\Utente\Desktop\Excel\Prova1.xls"
l1 = Len(r)
r1 = StrReverse(r)
For x = 1 To l1
  x1 = Mid(r1, x, 1)
  If x1 = "\" Then
    r2 = StrReverse(r2)
    Exit For
  End If
  r2 = r2 + x1
Next x
l2 = len(r2)
r2 = Mid(r2, 1, l2-4)
End Sub


con qualche modifica si può ottenere il discorso inverso:

Codice: Seleziona tutto
Sub NomePath()
R = "C:\Documents and Settings\Utente\Desktop\Excel\Prova1.xls"
l1 = Len(R)
R1 = StrReverse(R)
Rx = R
For x = 1 To l1
  x1 = Mid(R1, x, 1)
  If x1 = "\" Then
    r2 = x
    Exit For
  End If
Next x
Rx = Mid(Rx, 1, l1 - r2)
End Sub


Di cui "R" prende il nome completo Path, ed Rx ritorna la Path senza file,
Ciao By Sal
Avatar utente
By Sal
Utente Junior
 
Post: 79
Iscritto il: 27/08/06 14:40

Re: Estrapolare Path assoluta da un percorso file completo

Postdi Anthony47 » 22/06/08 18:33

Ciao maui.maui e benvenuto nel forum.
In aggiunta alle informazioni gia' date da BySal, il mio suggerimento e' di inserire un hyperlink in ognuna delle celle.
Sul tuo foglio, assegna all' elenco contenente tutti i path il nome "Lista"; poi lancia la seguente macro:
Codice: Seleziona tutto
Sub SetHL()
For Each Cella In Range("Lista")
    HLink = Left(Cella.Value, InStrRev(Cella.Value, "\", -1, 1))
    ActiveSheet.Hyperlinks.Add Anchor:=Range(Cella.Address), Address:=HLink
Next Cella
End Sub

In questo modo potrai aprire explorer col click sulla cella.

Se vuoi adottare la soluzione macro, ricavi "la path escludendo l'ultima parte del percorso che rappresenta il momefile" (come da tua richiesta) con l' istruzione
Codice: Seleziona tutto
PathOnly = Left(Activecell.Value, InStrRev(Activecell.Value, "\", -1, 1))

Explorer lo lancerai con la funzione Shell, ma questo mi pare che lo sai gia'.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Estrapolare Path assoluta da un percorso file completo":


Chi c’è in linea

Visitano il forum: patel, raimea e 8 ospiti