VBA - Fájlnevek importálása kattintható hivatkozásokra

Ez egy makró, amely lehetővé teszi a felhasználó számára, hogy több fájlt válasszon ki, és fájlnevét kattintható linkként importálja egy táblázatba.

A makró inspirációjául az mp3 problémát használtam, de csak tippeket adtam a teljes mp3 megoldás kifejlesztésére.

A következő makró a következőket teszi:
1. Egy közös párbeszédpanelt jelenít meg
2. Lehetővé teszi a felhasználó számára, hogy több mp3 fájlt válasszon (ezt bármilyen fájltípusra módosíthatja, például *.mpg)
3. Importálja a kiválasztott fájlneveket a táblázatban található kattintható linkekre (1. táblázat)

A következő makró szándékosan nem:
1. Mutassa meg az mp3 fájlok lejátszási idejét
Találtam erre egy API megoldást, de valószínűleg van egy jobb módszer

2. Mutassa meg a címke adatait (előadó, év, műfaj stb.)
Olvassa el az mp3 -t bináris formában, új nekem, de nagyszerűen működött

3. Engedélyezze az importálást több könyvtárból
Jelenleg a régi adatokat írja át

Bemutatok egy nézetet a fájlnevek importálásáról az Excel kattintható linkjeire.

Nyilvános alimportálás MP3 ()

Homályos számláló Egész számként
Dim PathName Variant
Halvány MP3 név karakterláncként

1. lap. Cellák. Törölje a régi régi adatokat

'szerezz mp3 -at
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "My mp3 Selector",, True)

számláló = 1

On Error GoTo Cancel 'esetén törlés gomb

'ciklus a kiválasztott fájlok között
Míg a számláló <= UBound (Útnév) 'fájlnévhez jut az MP3name = Közép (Útnév (számláló), _ InStrRev (Útnév (számláló), "\") + 1)' hivatkozással létrehozza a Sheet1.Cells (számláló, 1) _ hiperhivatkozást. Hyperlinks.Add Anchor: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A"). EntireColumn.AutoFit Mégse: Alrész vége