Toto je makro, které umožňuje uživateli vybrat více souborů a importovat jejich názvy souborů jako klikací odkazy do tabulky.
Jako inspiraci pro toto makro jsem použil problém mp3, poskytl jsem však pouze rady k vývoji kompletního řešení mp3.
Následující makro provede následující:
1. Zobrazuje společné dialogové okno
2. Umožňuje uživateli vybrat více souborů mp3 (můžete to změnit na jakýkoli typ souboru, například *.mpg)
3. Importuje vybrané názvy souborů na odkazy, na které lze kliknout v tabulce (List1)
Následující makro záměrně ne:
1. Ukažte dobu přehrávání souboru mp3
Našel jsem na to řešení API, ale pravděpodobně existuje lepší způsob
2. Ukažte všechny informace o tagu (umělec, rok, žánr atd.)
Přečtěte si mp3 jako binární, pro mě nové, ale fungovalo skvěle
3. Povolte import z více než jednoho adresáře
Aktuálně zapisuje přes stará data
Předkládám jeden pohled na import názvů souborů do klikacích odkazů v Excelu. Počítadlo ztlumení jako celé číslo List 1. Buňky. Vymažte stará data „získat mp3 čítač = 1 On Error GoTo Cancel 'v případě tlačítka Storno 'procházejte vybranými soubory
Public Sub ImportMP3 ()
Dim PathName As Variant
Dim MP3name as String
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "My mp3 Selector",, True)
Zatímco counter <= UBound (PathName) 'získá název souboru z cesty MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' create hyperlink Sheet1.Cells (counter, 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
