Clive è un birdwatcher e dispone di oltre 300 file MP3 di suoni di uccelli. Vuole creare un foglio di lavoro Excel con una singola colonna in cui sono elencati i nomi effettivi dei file MP3, ad esempio “cormorant.mp3”. Vuole creare un collegamento ipertestuale da ciascuna di queste circa 300 celle al file MP3 fisico, in modo che il lettore si apra e riproduca il suono dell’uccello. Sa che può inserire individualmente il collegamento ipertestuale, ma ovviamente sarebbe piuttosto noioso. Quindi, si chiede se esiste un modo per creare automaticamente un collegamento di questo tipo in base ai nomi dei file MP3 nel foglio di lavoro.

Questa domanda in realtà ha due parti: inserire i nomi dei file in un foglio di lavoro Excel e quindi creare un collegamento al file MP3 in modo che il canto degli uccelli possa essere riprodotto.

Inizia assicurandoti che tutti i file MP3 si trovino nella stessa cartella sul tuo disco rigido. Il modo in cui puoi ottenere un elenco di file è stato trattato in altri numeri di ExcelTips; potresti voler rivedere le idee su come farlo, trovate in questa pagina ExcelTips:

http://excelribbon.tips.net/T011144

Una volta che i nomi sono nel foglio di lavoro (supponiamo che siano nella colonna A), puoi facilmente utilizzare la funzione del foglio di lavoro HYPERLINK per mettere insieme il collegamento effettivo. Ad esempio, puoi inserire quanto segue nella cella B1:

=HYPERLINK("C:\Documents\Birdsongs\" & A1)

Ciò presuppone che la cartella in cui si trovano i brani sia C: \ Documents \ Birdsongs \. Se il percorso è effettivamente diverso, apporta la modifica nella funzione HYPERLINK.

Una volta che la formula corretta si trova nella cella B1, puoi quindi copiarla per tutte le celle necessarie per ottenere tutti i collegamenti ipertestuali corretti.

Ovviamente è possibile specificare il “testo visualizzato” che verrà utilizzato dalla funzione HYPERLINK. Se i file del canto degli uccelli iniziano con il nome dell’uccello e terminano con .mp3, puoi aggiungere il testo visualizzato alla funzione HYPERLINK in questo modo:

=HYPERLINK("C:\Documents\Birdsongs\" & A1, LEFT(A1, LEN(A1) - 4)

Questo utilizzo elimina semplicemente gli ultimi quattro caratteri (il punto e “mp3”) dal nome del file e quindi lo utilizza come testo visualizzato.

Se si desidera utilizzare un approccio macro per creare effettivamente collegamenti ipertestuali (senza utilizzare la funzione HYPERLINK), un buon punto di partenza è con la macro di cattura del nome del file dal suggerimento a cui si fa riferimento in precedenza in questo suggerimento. Può essere modificato per inserire non solo i nomi dei file nel foglio di lavoro, ma anche per creare i collegamenti ipertestuali richiesti:

Sub MakeHyperlinks()

Dim sPath As String     Dim sFile As String     Dim iRow As Integer

'specify directory to use - must end in "\"

sPath = "C:\Documents\Birdsongs\"



iRow = 0     sFile = Dir(sPath)

While sFile <> ""

iRow = iRow + 1         Sheet1.Cells(iRow,1) = sFile         sBird = Left(sFile, Len(sFile)-4)

ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(iRow,1), _           Address:=sPath & sFile, TextToDisplay:=sBird         sFile = Dir     ' Get next filename     Wend End Sub

Se decidi di seguire il percorso macro, assicurati che non ci sia nulla nel foglio di lavoro corrente. La macro viene eseguita molto rapidamente e cancella tutto ciò che si trova nelle celle in cui scrive. Quando hai finito, ti ritroverai con il nome del file nella colonna A e un collegamento ipertestuale al file MP3 nella colonna B.

Quando si fa clic su un collegamento ipertestuale nel foglio di lavoro, Excel avvia il browser Web e carica il file MP3. Il browser quindi riproduce il file.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (13127) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.