Dit is een macro waarmee een gebruiker meerdere bestanden kan selecteren en hun bestandsnamen als klikbare links in een spreadsheet kan importeren.
Ik gebruikte het mp3-probleem als inspiratie voor deze macro, maar ik gaf alleen hints voor het ontwikkelen van een complete mp3-oplossing.
De volgende macro doet het volgende:
1. Toont een algemeen dialoogvenster
2. Hiermee kan een gebruiker meerdere mp3-bestanden kiezen (u kunt dit wijzigen in elk bestandstype, bijvoorbeeld *.mpg)
3. Importeert de geselecteerde bestandsnamen naar klikbare links in uw spreadsheet (Sheet1)
De volgende macro doet dit met opzet niet:
1. Toon de speelduur van een mp3-bestand
Ik heb hiervoor een API-oplossing gevonden, maar er is waarschijnlijk een betere manier
2. Toon een van de Tag-informatie (Artiest, Jaar, Genre, etc.)
Lees de mp3 als binair, nieuw voor mij maar werkte prima
3. Importeren vanuit meer dan één map toestaan
Het schrijft momenteel over oude gegevens
Ik presenteer een kijk op het importeren van bestandsnamen naar klikbare links in Excel. Gedimde teller als geheel getal Blad1.Cellen.Clear 'oude gegevens wissen' 'haal mp3's' teller = 1 Bij fout Ga naar Annuleren 'in het geval de knop Annuleren' 'door geselecteerde bestanden bladeren'
Publieke subimport MP3()
Padnaam dimmen als variant
Dim MP3-naam als string
PathName = Application.GetOpenFilename _
("Mijn muziek (*.mp3), *.mp3", , "Mijn mp3-kiezer", , True)
Terwijl teller <= UBound(PathName) 'bestandsnaam ophalen van pad MP3name = Mid(PathName(counter), _ InStrRev(PathName(counter), "\") + 1) 'hyperlink maken Blad1.Cells(counter, 1) _ . Hyperlinks.Anker toevoegen:=Sheet1.Cells(counter, 1), _ Address:= PathName(counter), TextToDisplay:=MP3name counter = counter + 1 Wend Columns("A:A").EntireColumn.AutoFit Cancel: End Sub
