Collegamento ipertestuale multiplo

Hai un problema con Excel?

Nuova discussione

Collegamento ipertestuale multiplo
di Nero 60 (utente non iscritto) data: 27/05/2014 11:10:30
Grazie a chiunque potrà aiutarmi a risolvere questo problema .
Ho necessità di creare un collegamento ipertestuale tra una descrizione inserita in una cella di un file xlsx e una immagine salvata su DVD.
Il problema è che i collegamenti sono 500.000 con altrettante descrizioni, ovviamente una diversa dall’altra, e altrettante immagini.
Le immagini sono ripartite in directory diverese in quanto fanno parte di acquisizioni separate.
Mi aiutate ad automatizzare la creazione di questi collegamenti.
Grazie

di lepat (utente non iscritto) data: 27/05/2014 13:05:53
un esempio di codice

Sub HyperlinksToDirectory()
stDir = "C: .................."
drow = 2
stFile = Dir(stDir & "*.*")
Do Until stFile = ""
  Cells(drow, 1).Hyperlinks.Add Anchor:=Cells(drow, 1), SubAddress:="", Address:=stDir & "" & stFile, TextToDisplay:=stFile
  drow = drow + 1
stFile = Dir()
Loop
End Sub

Vuoi Approfondire?