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. Dim counter como inteiro Sheet1.Cells.Clear 'limpar dados antigos 'obter mp3's contador = 1 Em caso de erro GoTo Cancel 'no caso do botão cancelar 'percorrer os arquivos selecionados
Public Sub ImportMP3 ()
Dim PathName como variante
Dim MP3name As String
PathName = Application.GetOpenFilename _
("MyMusic (* .mp3), * .mp3",, "My mp3 Selector",, True)
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
