EXCEL ve MÜZİK

[ocamsul]

EXCEL ve MÜZÝK

Arkadaşlar Günaydın. Benim Sorum Excel e bir buton yerleştirmek suretiyle çalışma içerisinde kayıtlı bir mp3 ü dinleme şansımız varmı. yada bunu Excel e ekleyebilirmiyiz?

 

[ocamsul]

BİLEN YOKMU ARKADAÞLAR?

 

[Haluk]

[vb:1:b49d6ec317]Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, _
ByVal lpResult As String) As Long

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) 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
'
Sub Test()
Dim MyMp3 As String, Buff As String
Dim hWnd As Long, MyVal As Long
MyMp3 = "C:\Temp\Balaban-SenGelmezOldun.mp3"
If Not Dir(MyMp3) = Empty Then
Buff = String(260, 32)
MyVal = FindExecutable(MyMp3, vbNullString, Buff)
If MyVal > 32 Then
If Application.Version < 9 Then
hWnd = FindWindow("ThunderXFrame", "")
Else
hWnd = FindWindow("ThunderDFrame", "")
End If
ShellExecute hWnd, "Open", MyMp3, vbNullString, "C:\", 0
Else
MsgBox Dir(MyMp3) & " dosyası ile ilişkili" _
& " bir program bulunamadı !", vbExclamation
End If
Else
MsgBox MyMp3 & " dosyası bulunamadı !", vbExclamation
End If
ShellExecute hWnd, "Close", MyMp3, vbNullString, "C:\", 0
End Sub
[/vb:1:b49d6ec317]

 

[ALPEN]

:mrgreen:

temp'te sengelmezoldun.

 

[Haluk]

eheheee... alemsin lem...

:mrgreen:

 

[ocamsul]

aşağıdaki gibi denedim ama bulamadı diye bir mesaj verdi


Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, _
ByVal lpResult As String) As Long

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) 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
'
Sub Test()
Dim MyMp3 As String, Buff As String
Dim hWnd As Long, MyVal As Long
MyMp3 = "C:\Documents and Settings\EXPER\Desktop[/color]"
If Not Dir(MyMp3) = Empty Then
Buff = String(260, 32)
MyVal = FindExecutable(MyMp3, vbNullString, Buff)
If MyVal > 32 Then
If Application.Version < 9 Then
hWnd = FindWindow("ThunderXFrame", "")
Else
hWnd = FindWindow("ThunderDFrame", "")
End If
ShellExecute hWnd, "Open", MyMp3, vbNullString, "C:\", 0
Else
MsgBox Dir(MyMp3) & " dosyası ile ilişkili" _
& " bir program bulunamadı !", vbExclamation
End If
Else
MsgBox MyMp3 & " dosyası bulunamadı !", vbExclamation
End If
ShellExecute hWnd, "Close", MyMp3, vbNullString, "C:\", 0
End Sub

 

[Haluk]

MyMp3 = "C:\Documents and Settings\EXPER\Desktop

MP3 dosyası nerde ? Yazmamışınız ki ????