VBA - Importar nomes de arquivo para links clicáveis

Esta é uma macro que permite ao usuário selecionar vários arquivos e importar seus nomes de arquivo como links clicáveis ​​em uma planilha.

Usei o problema do mp3 como inspiração para esta macro, mas apenas dei dicas sobre o desenvolvimento de uma solução mp3 completa.

A macro a seguir faz o seguinte:
1. Mostra uma caixa de diálogo comum
2. Permite que um usuário escolha vários arquivos mp3 (você pode alterar isso para qualquer tipo de arquivo, * .mpg por exemplo)
3. Importa os nomes dos arquivos selecionados para links clicáveis ​​em sua planilha (Folha1)

A macro a seguir propositalmente não:
1. Mostra o tempo de reprodução de um arquivo mp3
Eu encontrei uma solução de API para isso, mas provavelmente há uma maneira melhor

2. Mostre qualquer informação da etiqueta (Artista, Ano, Gênero, etc.)
Leia o mp3 como binário, novo para mim, mas funcionou muito bem

3. Permitir importação de mais de um diretório
Atualmente, ele sobrescreve dados antigos

Apresento uma abordagem sobre como importar nomes de arquivos para links clicáveis ​​no Excel.

Public Sub ImportMP3 ()

Dim counter como inteiro
Dim PathName como variante
Dim MP3name As String

Sheet1.Cells.Clear 'limpar dados antigos

'obter mp3's
PathName = Application.GetOpenFilename _
("MyMusic (* .mp3), * .mp3",, "My mp3 Selector",, True)

contador = 1

Em caso de erro GoTo Cancel 'no caso do botão cancelar

'percorrer os arquivos selecionados
Enquanto counter <= UBound (PathName) 'obtém o nome do arquivo do caminho MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' cria o hyperlink Sheet1.Cells (counter, 1) _. Hyperlinks.Add Anchor: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A"). WholeColumn.AutoFit Cancel: End Sub