Esta es una macro que permite al usuario seleccionar varios archivos e importar sus nombres de archivo como enlaces en los que se puede hacer clic en una hoja de cálculo.
Utilicé el problema del mp3 como inspiración para esta macro, sin embargo, solo proporcioné sugerencias sobre cómo desarrollar una solución completa para mp3.
La siguiente macro hace lo siguiente:
1. Muestra un cuadro de diálogo común.
2. Permite a un usuario elegir varios archivos mp3 (puede cambiar esto a cualquier tipo de archivo, * .mpg por ejemplo)
3. Importa los nombres de archivo seleccionados a enlaces en los que se puede hacer clic en su hoja de cálculo (Hoja1)
La siguiente macro intencionalmente no lo hace:
1. Muestra el tiempo de reproducción de un archivo mp3.
Encontré una solución de API para esto, sin embargo, probablemente haya una mejor manera
2. Muestre la información de la etiqueta (artista, año, género, etc.)
Leer el mp3 como binario, nuevo para mí pero funcionó muy bien
3. Permitir la importación desde más de un directorio
Actualmente escribe sobre datos antiguos
Presento una versión sobre la importación de nombres de archivos a enlaces en los que se puede hacer clic en Excel. Contador de atenuación como entero Sheet1.Cells.Clear 'borrar datos antiguos 'obtener mp3 contador = 1 On Error GoTo Cancel 'en caso de que se cancele el botón 'recorrer los archivos seleccionados
Importación secundaria pública MP3 ()
Atenuar PathName como variante
Atenuar MP3name como cadena
PathName = Application.GetOpenFilename _
("MyMusic (* .mp3), * .mp3", "Mi selector de mp3",, True)
Mientras contador <= UBound (PathName) 'obtiene el nombre de archivo de la ruta MP3name = Mid (PathName (contador), _ InStrRev (PathName (contador), "\") + 1)' crea el hipervínculo Sheet1.Cells (contador, 1) _. Hyperlinks.Add Anchor: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A"). EntireColumn.AutoFit Cancelar: End Sub