[Excel] MP3 Lister / Player / Playlist

[schauan]

Hallöchen,

anbei habe ich ein Beispiel zur Auflistung von MP3-Dateien sowie zum Abspielen mit dem Mediaplayer.

Die Datei sollte man im gleichen Laufwerk wie die MP3 ablegen.  

In der Datei ist auf dem Blatt "Musik" eine Tabelle mit dem Namen Tabelle1. Sofern man mit dem Cursor in der Tabelle ist, wird das Kontextmenü um den Menüpunkt MP3-Verwaltung erweitert. Darin befinden sich zwei Unterpunkte. Diese sind zum Einlesen und Abspielen von MP3-Files.

Das Einlesen erfolgt rekursiv, das heißt, bei der Auswahl eines Verzeichnisses werden alle MP3 in allen Unterverzeichnissen gelistet.
In den letzten 4 Spalten kann man Zusatzeinträge vornehmen, z.B. die Titel mit Sternen bewerten oder hier im Beispiel Artist und Titel ausgeben, um z.B. mehrfache Songs auf verschiedenen Alben festzustellen.

Wie oben geschrieben, soll die Datei im gleichen Laufwerk wie die MP3-Sammlung liegen. Zum Abspielen wird geprüft, in welchem Laufwerk sich die Datei befindet und ggf. der Laufwerksbuchstabe in der Pfadangabe geändert. Das hat den Vorteil, dass das Abspielen bei externen Datenträgern auch bei wechselnden Laufwerksbuchstaben funktioniert.

Zum Abspielen wird eine Playlist im Format M3U erzeugt. Eingetragen werden alle selektierten Titel. Dabei ist es egal, in welcher Spalte der Tabelle die Titel selektiert werden. Bei gefilterten Daten muss man die Titel ggf. einzeln selektieren, ansonsten werden auch ausgeblendete Titel in die Liste eingetragen. Na ja, etwas "Verbesserungspotential" muss auch sein
Die Playlisten kann man dann natürlich unabhängig verwenden.

Dieses Beispiel zeigt im Code u.a. den Umgang mit Tabellen sowie des speziellen Kontextmenüs.

Weitergehende Möglichkeiten:

Mit einigen MP3-Tag-Editoren ist es möglich, die Tags anhand von eingelesenen CSV-Daten zu ändern. In der Tabelle kann man natürlich mit den bekannten Excelfunktionen oder Suchen&Ersetzen oder ... Änderungen an den Einträgen vornehmen, die Daten entsprechend den Anforderungen des Tag-Editors weiter aufbereiten und als CSV ausgeben.

Mit einer Codeerweiterung wäre auch das direkte Umbenennen der Dateien aus Excel heraus möglich. Ich sagte es weiter oben schon - ... Verbesserungspotentiel ...