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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen