Titel und Interpret aus MP3Tags auslesen und in Excel archivieren.

[Stefan Krauß]

Hallo NG,

ich suche eine Möglichkeit aus MP3 Dateien die ID-Tags in Excel
einzulesen.
Z.B. in Spalte A : Interpret
Spalte B : Titel

wie kann ich das in VBA lösen, oder gibt es da vielleicht schon was.

Eine andere, wenn auch nicht so gute, Möglichkeit wäre den
Dateinamen des MP3-Files auszulesen.

Leider fehlt mir zu beiden lösungen der Ansatz, oder is es gar zu
kompliziert?! I don't know.

Mann sollte mit dem Makro ein ganzes Verzeichniss anwählen können
und alle Dateien mit der endung mp3 sollten nach diesen Tags
durchsucht und dann in Excel aufgelistet werden.

Vielleicht kann mir jemand der Experten hier helfen.

Danke und Gruß
Stefan

[salemsaberhagen]

genau das gleiche problem hab ich mit mpg,mpeg und avi
dateien
für mp3´s gibts den "mp3lister"

http://www.pcbusiness-online.de/common/dtt/file.php3?
areaid=43&fileid=590

da kannste den downloaden für ummesonz,also gratis.
mfg salemsaberhagen

>-----Originalnachricht-----

>.
>

[Stefan Krauß]

Danke thats it!!!

Gruss und schöne Feiertage.

"salemsaberhagen" <salemsa...@web.de> schrieb im Newsbeitrag
news:019c01c2abaf$81ab9f50$d5f82ecf@TK2MSFTNGXA12...

[Melanie Breden]

Hallo Stefan,

"Stefan Krauß" schrieb:

> ich suche eine Möglichkeit aus MP3 Dateien die ID-Tags in Excel
> einzulesen.
> Z.B. in Spalte A : Interpret
> Spalte B : Titel
>
> wie kann ich das in VBA lösen, oder gibt es da vielleicht schon was.
>
> Eine andere, wenn auch nicht so gute, Möglichkeit wäre den
> Dateinamen des MP3-Files auszulesen.
>
> Leider fehlt mir zu beiden lösungen der Ansatz, oder is es gar zu
> kompliziert?! I don't know.
>
> Mann sollte mit dem Makro ein ganzes Verzeichniss anwählen können
> und alle Dateien mit der endung mp3 sollten nach diesen Tags
> durchsucht und dann in Excel aufgelistet werden.
>

nachfolgender Code listet dir alle Dateien eines angebenen Verzeichnisses
aus:

[Quelle: Das Excel VBA Codebook; Bert Körn und Monika Weber]
Sub Pfad_InputBox()
Dim ASF As Object
Dim i As Integer
Dim Pfad As Variant
Set ASF = Application.FileSearch

Pfad = Application.InputBox("Bitte den Pfad eingeben", "Pfad", _
"C:\Codebook") ' InputBox für den Pfad
If Pfad = False Then Exit Sub
Columns("A:A").ClearContents ' Spalte A leeren
With ASF
On Error GoTo Errorhandler
ChDir Pfad ' Verzeichnis wechseln
.NewSearch ' Neue Suche beginnen
.LookIn = Pfad ' Suchen in <<Pfad>>
.Filename = "*.*" ' Alle Dateien anzeigen
If .Execute > 0 Then ' Wenn Suche erfolgreich, dann
' Anzahl Dateien ausgeben
msgbox "Es wurden " & .FoundFiles.Count & _
" Datei(en) gefunden.", vbInformation, _
"Anzahl Dateien:"
' Ausgabe in Tabelle2
For i = 1 To .FoundFiles.Count
Sheets(1).Cells(i, 1) = .FoundFiles(i)
Next i
Else
msgbox "Es wurden keine Dateien gefunden", _
vbCritical, "Keine Dateien"
Exit Sub
End If
End With
Columns("A:A").AutoFit ' Spaltenbreite anpassen
Exit Sub
Errorhandler:
msgbox "Pfad " & Pfad & " nicht gefunden", vbCritical, "Fehler:"
End Sub

Die Ausgabespalte kannst du mit "Daten -> Text in Spalten" bearbeiten um die
Pfadangaben vom Namen und Interpreten zu trennen.

mit Gruße und noch frohe Feiertage
Melanie