✅ VBA - Importer filnavn til klikkbare lenker

Innholdsfortegnelse

Dette er en makro som lar en bruker velge flere filer og importere filnavnene sine som klikkbare lenker i et regneark.

Jeg brukte mp3 -problemet som inspirasjon for denne makroen, men jeg ga bare tips om å utvikle en komplett mp3 -løsning.

Følgende makro gjør følgende:
1. Viser en vanlig dialogboks
2. Lar en bruker velge flere mp3 -filer (du kan endre dette til hvilken som helst filtype, *.mpg for eksempel)
3. Importerer de valgte filnavnene til klikkbare lenker i regnearket (Ark1)

Følgende makro gjør ikke med vilje:
1. Vis spilletiden for en mp3 -fil
Jeg fant en API -løsning på dette, men det er sannsynligvis en bedre måte

2. Vis hvilken som helst taginformasjon (artist, år, sjanger, etc.)
Les mp3 som binær, ny for meg, men fungerte bra

3. Tillat import fra mer enn én katalog
Det skriver for tiden over gamle data

Jeg presenterer en versjon av import av filnavn til klikkbare lenker i Excel.
Offentlig underimportMP3 ()

Dim counter As Integer Dim PathName Som variant Dim MP3navn som streng


Ark1.Celler.Tøm gamle data
'få mp3
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "My mp3 Selector",, True)
teller = 1
On Error GoTo Cancel 'i tilfelle avbryt -knappen

'bla gjennom utvalgte filer Mens teller <= UBound (PathName) 'får filnavn fra banen MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' oppretter du hyperkobling 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