|
Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統的電腦編寫的一款電子表格軟件。直觀的界面、出色的計算功能和圖表工具，再加上成功的市場營銷，使Excel成為最流行的個人計算機數據處理軟件。 在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音樂文件并播放。
Excel整體界面趨于平面化，顯得清新簡潔。流暢的動畫和平滑的過渡，帶來不同以往的使用體驗。
|
