VBA - Importujte názvy súborov do klikacích odkazov

Toto je makro, ktoré umožňuje užívateľovi vybrať viac súborov a importovať ich názvy súborov ako odkazy, na ktoré sa dá kliknúť, do tabuľky.

Ako inšpiráciu pre toto makro som použil problém mp3, poskytol som však iba tipy na vývoj kompletného riešenia mp3.

Nasledujúce makro robí nasledujúce:
1. Zobrazí bežné dialógové okno
2. Umožňuje používateľovi vybrať si viacero súborov mp3 (môžete to zmeniť na ľubovoľný typ súboru, napríklad *.mpg)
3. Importuje vybrané názvy súborov do odkazov, na ktoré je možné kliknúť, vo vašej tabuľke (hárok 1)

Nasledujúce makro zámerne nie:
1. Ukážte čas prehrávania súboru mp3
Našiel som na to riešenie API, ale pravdepodobne existuje lepší spôsob

2. Ukážte všetky informácie o štítku (umelec, rok, žáner atď.)
Čítajte mp3 ako binárne, pre mňa nové, ale fungovalo skvele

3. Povoliť import z viac ako jedného adresára
Aktuálne zapisuje staré údaje

Uvádzam jeden pohľad na import názvov súborov na klikateľné odkazy v programe Excel.

Public Sub ImportMP3 ()

Počítadlo stmievania ako celé číslo
Dim PathName ako variant
Dim MP3name ako reťazec

List 1. Bunky. Vymažte staré údaje

„získať mp3
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "My mp3 Selector",, True)

počítadlo = 1

Pri chybe GoTo Cancel 'v prípade tlačidla zrušenia

'prechádzajte vybranými súbormi
Kým counter <= UBound (PathName) 'získa názov súboru z cesty MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' create hyperlink Sheet1.Cells (counter, 1) _. Hypertextové odkazy. Pridajte kotvu: = List1.Články (počítadlo, 1), _ Adresa: = PathName (počítadlo), TextToDisplay: = Počítadlo názvu MP3 = počítadlo + 1 stĺpce Wend („A: A“). EntireColumn.AutoFit Zrušiť: Koniec Sub