VBA - Importați nume de fișiere în linkuri care pot fi făcute clic

Aceasta este o macro care permite unui utilizator să selecteze mai multe fișiere și să le importe numele fișierelor ca linkuri care pot fi făcute clic într-o foaie de calcul.

Am folosit problema mp3 ca sursă de inspirație pentru acest Macro, totuși am oferit doar indicii despre dezvoltarea unei soluții mp3 complete.

Următoarea macro face următoarele:
1. Afișează o casetă de dialog comună
2. Permite unui utilizator să aleagă mai multe fișiere mp3 (puteți schimba acest lucru cu orice tip de fișier, de exemplu * .mpg)
3. Importă numele fișierelor selectate pe linkuri care pot fi făcute clic pe foaia dvs. de calcul (Foaia1)

Următoarea macro nu intenționează:
1. Afișați timpul de redare pentru un fișier mp3
Am găsit o soluție API la acest lucru, totuși există probabil o modalitate mai bună

2. Afișați oricare dintre informațiile despre etichetă (artist, an, gen etc.)
Citiți mp3-ul ca binar, nou pentru mine, dar a funcționat grozav

3. Permiteți importul din mai multe directoare
În prezent, scrie peste date vechi

Vă prezint o importanță asupra importului de nume de fișiere către linkuri care pot fi făcute clic în Excel.

Public Sub ImportMP3 ()

Dim counter Ca întreg
Dim PathName Ca variantă
Dim MP3name ca șir

Sheet1.Cells.Clear „ștergeți datele vechi

„obține mp3-uri
PathName = Application.GetOpenFilename _
(„MyMusic (* .mp3), * .mp3”, „My mp3 Selector”,, True)

contor = 1

On Error GoTo Cancel 'în cazul în care butonul de anulare

'parcurgeți fișierele selectate
În timp ce contorul <= UBound (PathName) 'obține numele fișierului din calea MP3name = Mid (PathName (contor), _ InStrRev (PathName (contor), "\") + 1)' creează hyperlink Sheet1.Cells (contor, 1) _. Hyperlinks.Add Anchor: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A"). EntireColumn.AutoFit Cancel: End Sub