Ovo je makronaredba koja korisniku omogućuje odabir više datoteka i uvoz njihovih naziva datoteka kao veza koje se mogu kliknuti u proračunsku tablicu.
Koristio sam problem s mp3 -om kao inspiraciju za ovaj makro, no dao sam samo savjete o razvoju cjelovitog mp3 rješenja.
Sljedeći makro radi sljedeće:
1. Prikazuje uobičajeni dijaloški okvir
2. Omogućuje korisniku odabir više mp3 datoteka (ovo možete promijeniti u bilo koju vrstu datoteke, na primjer *.mpg)
3. Uvoz odabranih naziva datoteka u veze koje se mogu kliknuti u vašoj proračunskoj tablici (List 1)
Sljedeći makro namjerno ne:
1. Prikažite vrijeme reprodukcije mp3 datoteke
Našao sam API rješenje za ovo, međutim vjerojatno postoji bolji način
2. Prikažite bilo koje podatke o oznaci (izvođač, godina, žanr itd.)
Čitajte mp3 kao binarni, meni novi, ali je odlično funkcionirao
3. Dopustite uvoz iz više direktorija
Trenutno zapisuje stare podatke
Predstavljam jedan pristup uvozu naziva datoteka na veze koje se mogu kliknuti u Excelu. Brojač zatamnjenja Kao cijeli broj Sheet1.Cells.Clear 'clear old data 'Nabavi mp3 brojač = 1 On Error GoTo Cancel 'u slučaju gumba za otkazivanje 'prođite kroz odabrane datoteke
Javni pod uvozMP3 ()
Zatamni ime puta kao varijantu
Dim MP3name As String
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3",, "My mp3 Selector",, True)
Dok brojač <= UBound (PathName) 'dobije naziv datoteke s puta MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' kreirajte hipervezu 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 Odustani: End Sub
