✅ VBA - Uvozi imena datotek v povezave, ki jih je mogoče klikniti

Kazalo

To je makro, ki uporabniku omogoča, da izbere več datotek in uvozi njihova imena datotek kot povezave, ki jih je mogoče klikniti, v preglednico.

Kot navdih za ta makro sem uporabil težavo s mp3 -jem, vendar sem dal le namige za razvoj celovite mp3 rešitve.

Naslednji makro naredi naslednje:
1. Prikaže skupno pogovorno okno
2. Uporabniku omogoča izbiro več datotek mp3 (to lahko spremenite v katero koli vrsto datoteke, na primer *.mpg)
3. Uvozi izbrana imena datotek v povezave, ki jih je mogoče klikniti v preglednici (List 1)

Naslednji makro namenoma ne:
1. Prikažite čas predvajanja datoteke mp3
Za to sem našel rešitev API, vendar je verjetno boljši način

2. Prikažite podatke o oznaki (izvajalca, leto, zvrst itd.)
Preberite mp3 kot binarni, zame nov, vendar je odlično deloval

3. Dovoli uvoz iz več imenikov
Trenutno zapisuje stare podatke

Predstavljam en pogled na uvoz imen datotek na povezave, ki jih je mogoče klikniti v Excelu.
Javni pod uvozMP3 ()

Števec zatemnitve kot celo število Zatemni ime poti kot varianto Zatemni MP3 ime kot niz


Sheet1.Cells.Clear 'počisti stare podatke
'dobite mp3
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3",, "Moj mp3 izbirnik",, True)
števec = 1
On Error GoTo Cancel 'v primeru gumba za preklic

'prehod skozi izbrane datoteke Medtem ko števec <= UBound (PathName) '' pridobi ime datoteke s poti MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1) 'ustvarite list hiperpovezav 1. Celice (števec, 1) _. Hyperlinks.Add Anchor: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A"). EntireColumn.AutoFit Prekliči: End Sub