VBA播放MP3歌曲的代码

VBA播放MP3歌曲的代码 可以用来做背景音乐。 使用方法： 打开word、excel等 然后按Alt+F11 在打开的窗口中粘贴下面代码： 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 Dim sMCI As String * 255 Dim sMP3 Dim iNum As Integer Public Function Blank(ByVal szString As String) As String Dim l As Integer l = InStr(szString, Chr(0)) If l > 0 Then Blank = Left(szString, l - 1) Else Blank = szString End If End Function Private Sub CommandButton1_Click() mciSendString "close OpenFile", 0&, 0, 0 End Sub Private Sub CommandButton2_Click() mciSendString "status OpenFile mode", sMCI, 255, 0 If Blank(sMCI) <> "playing" Then mciSendString "close OpenFile", 0&, 0, 0 mciSendString "open """ & "D:\aw\情非得已.mp3"" alias OpenFile type MPEGVideo", 0&, 0, 0 mciSendString "play OpenFile", 0&, 0, 0 iNum = iNum + 1 'If iNum > UBound(sMP3) Then Timer1.Enabled = False End If End Sub 在文档中添加两个按钮控件就行了。