VBA - importējiet failu nosaukumus uz klikšķināmām saitēm

Šis ir makro, kas ļauj lietotājam atlasīt vairākus failus un importēt savu failu nosaukumus kā klikšķināmas saites izklājlapā.

Es izmantoju mp3 problēmu kā iedvesmu šim makro, taču es sniedzu tikai padomus par pilnīga mp3 risinājuma izstrādi.

Šis makro veic šādas darbības:
1. Parāda kopīgu dialoglodziņu
2. Ļauj lietotājam izvēlēties vairākus mp3 failus (varat to mainīt uz jebkura veida failu, piemēram, *.mpg)
3. Importē atlasītos failu nosaukumus uz klikšķināmām saitēm izklājlapā (1. lapa)

Tālāk minētais makro apzināti to nedara:
1. Parādiet mp3 faila atskaņošanas laiku
Es atradu tam API risinājumu, taču, iespējams, ir labāks veids

2. Parādiet visu informāciju par tagu (mākslinieks, gads, žanrs utt.)
Lasiet mp3 kā bināru, man jaunu, bet lieliski strādāja

3. Atļaut importēšanu no vairākiem direktorijiem
Pašlaik tas pārraksta vecos datus

Es piedāvāju vienu ieskatu failu nosaukumu importēšanā uz klikšķināmām saitēm programmā Excel.

Publisks apakšimports MP3 ()

Dim skaitītājs Kā vesels skaitlis
Dim PathName As Variant
Blāvs MP3 nosaukums kā virkne

1. lapa. Šūnas. Notīriet vecos datus

"Iegūstiet mp3
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "My mp3 Selector",, True)

skaitītājs = 1

Ieslēgta kļūda GoTo Cancel 'atcelšanas pogas gadījumā

'cilpa caur atlasītajiem failiem
Kamēr skaitītājs <= UBound (PathName) 'iegūst faila nosaukumu no ceļa MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1) "izveido hipersaiti Sheet1.Cells (counter, 1) _. Hipersaites. Pievienot enkuru: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A").