Clive es un observador de aves y tiene más de 300 archivos MP3 de sonidos de aves. Quiere crear una hoja de cálculo de Excel con una sola columna en la que se enumeran los nombres reales de los archivos MP3, por ejemplo, «cormorant.mp3». Quiere crear un hipervínculo desde cada una de estas aproximadamente 300 celdas al archivo MP3 físico, de modo que el reproductor abra y reproduzca el sonido del pájaro. Sabe que puede insertar el hipervínculo individualmente, pero obviamente eso sería bastante tedioso. Por lo tanto, se pregunta si existe una forma de crear automáticamente dicho enlace en función de los nombres de los archivos MP3 en la hoja de trabajo.

Esta pregunta en realidad tiene dos partes: obtener los nombres de los archivos en una hoja de cálculo de Excel y luego crear un enlace al archivo MP3 para que se pueda reproducir el canto de los pájaros.

Comience por asegurarse de que todos los archivos MP3 estén en la misma carpeta de su disco duro. La forma de obtener una lista de archivos se ha tratado en otros números de ExcelTips; es posible que desee revisar las ideas de cómo hacer esto, que se encuentran en esta página de ExcelTips:

http://excelribbon.tips.net/T011144

Una vez que los nombres están en la hoja de trabajo (supongamos que están en la columna A), puede usar fácilmente la función de la hoja de trabajo HIPERVÍNCULO para armar el enlace real. Por ejemplo, podría colocar lo siguiente en la celda B1:

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

Esto supone que la carpeta en la que se encuentran las canciones es C: \ Documents \ Birdsongs \. Si la ruta es realmente diferente, simplemente realice el cambio en la función HIPERVÍNCULO.

Una vez que la fórmula correcta esté en la celda B1, puede copiarla para la cantidad de celdas que necesite para obtener todos los hipervínculos correctos.

Por supuesto, puede especificar el «texto de visualización» que utilizará la función HIPERVÍNCULO. Si sus archivos de cantos de pájaros comienzan con el nombre del pájaro y terminan con .mp3, puede agregar el texto de visualización a la función HIPERVÍNCULO de esta manera:

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

Este uso simplemente elimina los últimos cuatro caracteres (el punto y «mp3») del nombre del archivo y luego lo usa como texto de visualización.

Si desea utilizar un enfoque de macro para crear hipervínculos (sin usar la función HIPERVÍNCULO), entonces un buen lugar para comenzar es con la macro de captura de nombre de archivo del consejo mencionado anteriormente en este consejo. Se puede modificar para poner no solo los nombres de archivo en la hoja de trabajo, sino también para crear los hipervínculos necesarios:

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

Si decide seguir la ruta macro, asegúrese de que no haya nada en la hoja de trabajo actual. La macro se ejecuta muy rápidamente y borra todo lo que esté en las celdas en las que escribe. Cuando termina, termina con el nombre del archivo en la columna A y un hipervínculo al archivo MP3 en la columna B.

Cuando hace clic en un hipervínculo en la hoja de trabajo, Excel inicia su navegador web y carga el archivo MP3. El navegador luego reproduce el archivo.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (13127) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.