Anh chị giúp em cách chạy MP3 trong file excel

[huynhhuynh87]

em có nhiều file nhạc mp3 trong folder và 1 file excel, khi mình chọn bài hát nào trong file excel thì (1) nó tự mở hoặc (2) chọn bài hát rồi bấm nút nó mới mở

 

[ndu96081631]

em có nhiều file nhạc mp3 trong folder và 1 file excel, khi mình chọn bài hát nào trong file excel thì (1) nó tự mở hoặc (2) chọn bài hát rồi bấm nút nó mới mở

Dùng tạm code này:

Private Declare Function mciSendString Lib "winmm.dll" Alias _
        "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
        lpstrReturnString As String, ByVal uReturnLength As Long, _
        ByVal hwndCallback As Long) As Long

Private Sub play_Click()
  Dim isPlaying As Boolean, mp3File As String
  On Error Resume Next
  With play
    isPlaying = (.Caption = "Play")
    If isPlaying Then mp3File = ThisWorkbook.Path & "\music\" & .Parent.Range("A1").Value & ".mp3"
    PlayMP3 isPlaying, mp3File
    .Caption = IIf(isPlaying, "Stop", "Play")
  End With
End Sub

Private Sub PlayMP3(isPlaying As Boolean, mp3File As String)
  mciSendString IIf(isPlaying, "Open """ & mp3File & """ Alias MM", "Stop MM"), 0, 0, 0
  mciSendString IIf(isPlaying, "Play MM", "Close MM"), 0, 0, 0
End Sub

---------------------------
Để chơi file MP3 ngon lành hơn, tôi nghĩ bạn nên tham khảo bài viết này:
http://www.giaiphapexcel.com/forum/showthread.php?31668-Làm-sao-biết-1-file-MP3-đã-Play-xong