Dette er en makro, der giver en bruger mulighed for at vælge flere filer og importere deres filnavne som klikbare links i et regneark.
Jeg brugte mp3 -problemet som inspiration til denne makro, men jeg gav kun tip om at udvikle en komplet mp3 -løsning.
Følgende makro gør følgende:
1. Viser en fælles dialogboks
2. Tillader en bruger at vælge flere mp3 -filer (du kan ændre dette til enhver filtype, *.mpg f.eks.)
3. Importerer de valgte filnavne til klikbare links i dit regneark (Sheet1)
Følgende makro gør med vilje ikke:
1. Vis spilletiden for en mp3 -fil
Jeg fandt en API -løsning på dette, men der er sandsynligvis en bedre måde
2. Vis nogen af tagoplysningerne (kunstner, årgang, genre osv.)
Læs mp3 som binær, ny for mig, men fungerede godt
3. Tillad import fra mere end et bibliotek
Det skriver i øjeblikket over gamle data
Jeg præsenterer en optagelse af import af filnavne til klikbare links i Excel. Dim tæller Som heltal Ark1.Celler.Ryd 'gamle' data 'få mp3'er tæller = 1 On Error GoTo Cancel 'i tilfælde af knappen Annuller 'gå gennem udvalgte filer
Offentlig underimportMP3 ()
Dim PathName som variant
Dim MP3navn som streng
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "My mp3 Selector",, True)
Mens tæller <= UBound (PathName) 'får filnavn fra sti MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' opretter hyperlink 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