利用VBA在Excel中播放MP3音乐

来源:转载

在VBA中通过调用API函数mcisendstring,可以播放MP3格式的音乐。下面是VBA代码,我们可以将它放入模块中,方法是在VBA编辑器中单击菜单“插入→模块”,在代码窗口中输入下列代码。

Option Explicit

Public 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

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Function ConvShortFilename(ByVal strLongPath$) As String

Dim strShortPath$

If InStr(1, strLongPath, " ") Then

strShortPath = String(LenB(strLongPath), Chr(0))

GetShortPathName strLongPath, strShortPath, Len(strShortPath)

ConvShortFilename = Left(strShortPath, InStr(1, strShortPath, Chr(0)) - 1)

Else

ConvShortFilename = strLongPath

End If

End Function

Public Sub MMPlay(ByRef FileName As String)

FileName = ConvShortFilename(FileName)

mciSendString "close " & FileName, vbNullString, 0, 0

mciSendString "open " & FileName, vbNullString, 0, 0

mciSendString "play " & FileName, vbNullString, 0, 0

End Sub

Public Sub MMStop(ByRef FileName As String)

FileName = ConvShortFilename(FileName)

mciSendString "stop " & FileName, vbNullString, 0, 0

mciSendString "close " & FileName, vbNullString, 0, 0

End Sub

然后,可以在VBA中调用上述代码。

播放MP3:MMPlay (Mp3File)

停止播放:MMStop (Mp3File)

其中Mp3File为包含路径的MP3文件名。

下面是一个简单的示例,在工作表“Sheet1”中有两个按钮,一个是“打开并播放MP3文件”,另一个是“停止播放”。单击“打开并播放MP3文件”按钮可以在“打开”对话框中选择一个MP3音乐文件并播放。

分享给朋友:
您可能感兴趣的文章:
随机阅读: