Hiperlink disco locale



  • Hiperlink disco locale
    di gargiu data: 12/09/2014 13:48:56

    Ciao a tutti, in una form ho delle macro che mi aprono dei documenti salvati in una cartella su disco.
    So che in HTML se ho i file memorizzati nella medesima cartella della home page, posso omettere l'intero percorso indicando solo la cartella della radice in cui ho salvato home page e file collegati ad essa in questo modo:

    ..BuildingGestione_KABAdocumento.pdf

    In VBA, ho dei pulsanti che mi aprono dei documenti memorizzati sul disco del server aziendale, con la macro che riporto sotto.
    Iella vuole che mi hanno cambiato il nome del disco, motivo per cui a tutte quelle macro a cui ho indicato dove prelevare i documenti devo modificare il nome che indica il disco sul server.

    È possibile in VBA omettere la sergente del disco e dare la sola indicazione della struttura della cartella, come potrei fare con HTML?

    In questo caso posso spostare l'intera struttura della cartella in qualsiasi altro disco ed avere sempre le macro che non mi danno errore non trovando il disco di locazione.

    Spero di essermi spiegato bene.

     
    Private Sub CommandButton70_Click()
    Shell "explorer.exe G:P304OSBuildingGestione_KABAdocumento.pdf", vbNormalFocus
    End Sub



  • di Luca73 data: 12/09/2014 14:21:16

    Ciao
    Se capisco bene il tuo file excel dove stanno le macro sta nello stesso "disco" dove si trovano i file che vuoi aprire (..BuildingGestione_KABAdocumento.pdf ).
    Io nella tua situazione costruirei una macro come quella sotto riportata che a aprtire dall'indirizzo del file excel mi ricostruisce l'indirizzo che mi interessa.

    Ciao
    Luca
     
    Sub Prova()
    Dim ind
    Dim fs, f, fp, fd s
        Set fs = CreateObject("Scripting.FileSystemObject")
        ind = ActiveWorkbook.Path
        Set f = fs.GetFolder(ind)
        Set fp = f.parentfolder '(equivalente di .. salire di un livello)
        Set fd = fs.GetFolder(fp.Path & "BuildingGestione_KABA") 'spostamento nella directory che mi interessa
    Shell "explorer.exe " & fd.path  & "documento.pdf", vbNormalFocus
    End Sub
    






  • di gargiu data: 12/09/2014 14:34:38

    Interessante come soluzione, ma molto laboriosa considerando che gli hiperlink da modificare sono un centinaio.