Mediaplayer starten über Makro geht nicht in Excel

Sub player_starten1() Dim fso As Object, f As Object, WshShell As Object Dim strText As String, strVBS As String, strMP3 As String strVBS = "c:\temp.vbs" strMP3 = "C:\Magical Opulence\-1-.mp3" 'anpassen Set fso = CreateObject("Scripting.FileSystemObject") strText = "Set MediaPlayer = CreateObject(" & Chr(34) & "WMPlayer.OCX.7" & Chr(34) & ")" & _ vbCrLf strText = strText & "MediaPlayer.openPlayer (" & Chr(34) & strMP3 & Chr(34) & ")" Set f = fso.OpenTextFile(strVBS, 2, True) f.Write strText f.Close Set WshShell = CreateObject("WScript.Shell") WshShell.Run "wscript " & strVBS, 1, True Set WshShell = Nothing Sleep 200 Kill strVBS unvisible End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Declare Function WaitForSingleObject Lib "kernel32" _ (ByVal hHandle As Long, _ ByVal dwMilliseconds As Long) As Long Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" _ Alias "PostMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Declare Function IsWindow Lib "user32" _ (ByVal hwnd As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" _ (ByVal hwnd As Long, _ lpdwProcessId As Long) As Long 'Constants that are used by the API Const WM_CLOSE = &H10 Const INFINITE = &HFFFFFFFF Const SYNCHRONIZE = &H100000 Sub LiedAbspielen() Open_File "C:\Magical Opulence\-1-.mp3", 1 '

Hi Elmar,
sorry, da fehlte noch ein Teil des Codes - so müsste er jetzt funktionieren:

Option Explicit
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" _
Alias "PostMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Declare Function IsWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, _
lpdwProcessId As Long) As Long
Declare Function ShellExecute Lib "SHELL32.DLL" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
'Constants that are used by the API
Const WM_CLOSE = &H10
Const INFINITE = &HFFFFFFFF
Const SYNCHRONIZE = &H100000
Sub Open_File(strFileName As String, windowType As Integer)
ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub
' Start-Makro
Sub LiedAbspielen()
Open_File "C:\Magical Opulence\-1-.mp3", 1   '

Beliebteste Forumthreads (12 Monate)

Mediaplayer starten über Makro geht nicht in Excel

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mediaplayer starten über Makro geht nicht in Excel

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread