Muss ich noch Bibliotheken einbinden?
Das Programm kann unter www.mroszynski.de , Name MP3-Update gedownloaded werden.
Danke im voraus. mfg Wolfgang
Sub mp3_abspielen()
Dim WshShell As Object, strPfad As String
Set WshShell = CreateObject("WScript.Shell")
strPfad = "E:\Temp\01. Stormbinger.mp3" 'anpassen
WshShell.Run "MPLAY32 /PLAY /CLOSE " & strPfad, 1, True
Set WshShell = Nothing
End Sub
'Userform mit CommandButton1 und WindowsMediaPlayer1
Private Sub CommandButton1_Click()
With WindowsMediaPlayer1
.URL = "e:\1.avi" 'anpassen
Do
DoEvents
Loop Until .openState = wmposMediaOpen
MsgBox .currentMedia.durationString
End With
End Sub
Um eine MP3-Datei in Excel abzuspielen, kannst Du folgenden VBA-Code verwenden. Dies setzt voraus, dass Du über grundlegende Kenntnisse in Excel VBA verfügst.
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf "VBAProject (DeinDateiname)" klickst und "Einfügen" > "Modul" auswählst.
Kopiere den folgenden Code in das Modul:
Sub mp3_abspielen()
Dim WshShell As Object, strPfad As String
Set WshShell = CreateObject("WScript.Shell")
strPfad = "E:\Temp\01. Stormbinger.mp3" ' Pfad zur MP3-Datei anpassen
WshShell.Run "MPLAY32 /PLAY /CLOSE " & strPfad, 1, True
Set WshShell = Nothing
End Sub
Passe den Pfad zur MP3-Datei an Deine Bedürfnisse an.
Speichere das Modul und schließe den VBA-Editor.
Du kannst nun das Makro ausführen, um die MP3 abzuspielen.
Wenn der oben genannte Ansatz nicht funktioniert, kannst Du auch die Windows Media Player-Objekte in Deiner Userform verwenden. Hier ist ein Beispiel, wie Du dies umsetzen kannst:
CommandButton und einen WindowsMediaPlayer zu Deiner Userform hinzu.Verwende den folgenden Code:
Private Sub CommandButton1_Click()
With WindowsMediaPlayer1
.URL = "E:\Temp\01. Stormbinger.mp3" 'Pfad anpassen
.controls.play
End With
End Sub
Diese Methode ermöglicht es Dir, MP3-Dateien direkt über die Benutzeroberfläche abzuspielen.
Hier sind einige praktische Anwendungen für das Abspielen von MP3-Dateien in Excel:
DoEvents, um sicherzustellen, dass Excel während des Abspielens der MP3-Datei nicht einfriert.1. Wie kann ich eine MP3-Datei in einer Excel-Tabelle verlinken?
Du kannst einen Hyperlink zu einer MP3-Datei in einer Zelle erstellen, indem Du die Zelle auswählst, Rechtsklick machst und "Link" auswählst.
2. Funktioniert das Abspielen von MP3-Dateien in Excel auf allen Versionen?
Die oben genannten Methoden sollten in den meisten modernen Excel-Versionen funktionieren, allerdings kann der Zugriff auf bestimmte Funktionen je nach Installation und Betriebssystem variieren.