Elenco file e collegamento ipertestuale



  • Elenco file e collegamento ipertestuale
    di Hannibal data: 10/03/2011

    Buongiorno a tutti, ho un altro quesito.
    ho circa 2000 disegni in formato pdf in una cartella. ho trovato in rete un programma che mi crea il file excel con il contenuto della cartella.
    quindi nella colonna a, in ogni cella ho il nome del corrispettivo file.
    ecco la domanda: come faccio a fare in modo che se clicco sulla cella a1, si apra in automatico il corrispondente file pdf?
    in sostanza non voglio passare le mie giornate a creare collegamenti ipertestuali a 2000 codici...
    grazie a tutti quanti interverranno.



  • di Baz (utente non iscritto) data: 10/03/2011

    Ciao,
    se nella colonna a hai i tuoi file completi (es. c:cartellafile.pdf) usa il seguente codice, modificando il valore delle righe da analizzare (nell'esempio analizza dalla riga 1 alla 3)


     
    Sub CollegIpert()
    Dim r
    
    For r = 1 To 3
        ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & r), Address:= _
            Range("A" & r).Value
    Next r
    
    End Sub
    



  • di Hannibal data: 11/03/2011

    Provato e funziona! grazie!



  • di Baz (utente non iscritto) data: 11/03/2011