トップ　>　汎用コード　>　音楽の再生

 '標準モジュールの先頭に貼り付けます
Const conFileName As String = "Sample"
'///Win32API/////////////////////////////////////////////////////////////
#If VBA7 Then
    Declare PtrSafe Function mciSendString Lib _
            "winmm.dll" Alias "mciSendStringA" ( _
        ByVal lpstrCommand As String, _
        ByVal lpstrReturnString As String, _
        ByVal uReturnLength As Long, _
        ByVal hwndback As LongPtr) As Long
#Else
    Declare Function mciSendString Lib _
            "winmm.dll" Alias "mciSendStringA" ( _
        ByVal lpstrCommand As String, _
        ByVal lpstrReturnString As String, _
        ByVal uReturnLength As Long, _
        ByVal hwndback As Long) As Long
#End If

Sub Sound_Open() '音声ファイルをメモリに読み込み
    Dim lngP        As Long
    Dim mciCommand  As String
    Dim strFilePath As String
    Const conVBN    As String = """"
    '音声ファイルの選択
    strFilePath = Application.GetOpenFilename _
        ("音声ファイル (*.wav;*.mid;*.mp3;*.wma),*.wav;*.mid;*.mp3;*.wma")
    If strFilePath <> "False" Then
        lngP = InStrRev(strFilePath, ".")
        If 0 < lngP Then
            strFilePath = conVBN & strFilePath & conVBN
            mciCommand = "Open " & strFilePath & " alias " & conFileName
            Call mciSendString(mciCommand, "", 0, 0)
        End If
    End If
End Sub

Sub Sound_Close()  '音声ファイルをメモリからクリア
    'ブックを閉じる前に実行してください
    Call mciSendString("Close All", "", 0, 0)
End Sub

Sub Sound_Play()   '再生
    '音声ファイルを読み込まないと、再生できません
    Call mciSendString("Play " & conFileName & " from 0", "", 0, 0)
End Sub

Sub Sound_Pause()  '一時停止
    Call mciSendString("Pause " & conFileName, "", 0, 0)
End Sub

Sub Sound_Resume() '一時停止解除
    Call mciSendString("Resume " & conFileName, "", 0, 0)
End Sub

Sub Sound_Stop()   '停止
    Call mciSendString("Stop " & conFileName, "", 0, 0)
End Sub