VBA - Importuj nazwy plików do klikalnych linków

Jest to makro, które pozwala użytkownikowi wybrać wiele plików i zaimportować ich nazwy jako klikalne łącza do arkusza kalkulacyjnego.

Użyłem problemu mp3 jako inspiracji do tego Makro, jednak podałem tylko wskazówki dotyczące opracowania kompletnego rozwiązania mp3.

Następujące makro wykonuje następujące czynności:
1. Pokazuje wspólne okno dialogowe
2. Pozwala użytkownikowi wybrać wiele plików mp3 (możesz to zmienić na dowolny typ pliku, na przykład *.mpg)
3. Importuje wybrane nazwy plików do klikalnych łączy w arkuszu kalkulacyjnym (Arkusz 1)

Następujące makro celowo nie:
1. Pokaż czas odtwarzania pliku mp3
Znalazłem na to rozwiązanie API, jednak prawdopodobnie jest lepszy sposób

2. Pokaż dowolne informacje z tagu (wykonawca, rok, gatunek itp.)
Przeczytaj mp3 jako binarny, nowy dla mnie, ale działał świetnie

3. Zezwól na import z więcej niż jednego katalogu
Obecnie nadpisuje stare dane

Przedstawiam jedno podejście do importowania nazw plików do klikalnych linków w Excelu.

Publiczny Sub ImportMP3()

Licznik przyciemnienia As Integer
Dim PathName jako wariant
Przyciemnij nazwę MP3 jako ciąg

Sheet1.Cells.Clear 'wyczyść stare dane

'pobierz mp3'
PathName = Application.GetOpenFilename _
(„Moja Muzyka (*.mp3), *.mp3”, , „Mój selektor mp3”, , Prawda)

licznik = 1

W przypadku błędu Przejdź do Anuluj 'w przypadku przycisku anulowania

'przeglądaj wybrane pliki
Podczas gdy licznik <= UBound(PathName) 'pobierz nazwę pliku ze ścieżki MP3name = Mid(PathName(counter), _ InStrRev(PathName(counter), "\") + 1) 'utwórz hiperłącze Sheet1.Cells(counter, 1) _ . Hyperlinks.Add Anchor:=Sheet1.Cells(licznik, 1), _ Address:= PathName(licznik), TextToDisplay:=MP3name counter = licznik + 1 Wend Columns("A:A").EntireColumn.AutoFit Cancel: End Sub