Detta är ett makro som tillåter en användare att välja flera filer och importera sina filnamn som klickbara länkar till ett kalkylblad.
Jag använde mp3 -problemet som inspiration för detta makro, men jag gav bara tips om att utveckla en komplett mp3 -lösning.
Följande makro gör följande:
1. Visar en vanlig dialogruta
2. Tillåter en användare att välja flera mp3 -filer (du kan ändra detta till vilken filtyp som helst, *.mpg till exempel)
3. Importerar de valda filnamnen till klickbara länkar i kalkylarket (Sheet1)
Följande makro gör avsiktligt inte:
1. Visa speltiden för en mp3 -fil
Jag hittade en API -lösning för detta, men det finns förmodligen ett bättre sätt
2. Visa någon av tagginformationen (artist, år, genre, etc.)
Läs mp3 som binär, ny för mig men fungerade bra
3. Tillåt import från mer än en katalog
Det skriver för närvarande över gamla data
Jag presenterar ett tag på att importera filnamn till klickbara länkar i Excel. Dimräknare Som heltal Sheet1.Cells.Clear 'rensa gamla data 'få mp3 räknare = 1 On Error GoTo Cancel 'if knappen avbryt 'bläddra igenom valda filer
Public Sub ImportMP3 ()
Dim PathName Som variant
Dim MP3namn som sträng
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "My mp3 Selector",, True)
Medan räknaren <= UBound (PathName) 'får filnamn från sökvägen MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' skapar hyperlänk 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