【VBA】VBAでwavファイル（サウンド）を再生する。

メモとして残します。

■やり方

標準コードに定義

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 Sub PlaySound()
    Dim SoundFile As String, rc As Long
    SoundFile = Chr(34) & "C:\Windows\Media\Windows Critical Stop.wav" & Chr(34)
    rc = mciSendString("Close " & SoundFile, "", 0, 0)
    rc = mciSendString("Open " & SoundFile, "", 0, 0)
    rc = mciSendString("Play " & SoundFile & "", "", 0, 0)
End Sub

■さいごに

上記は非同期での再生で且つ、対象ファイルのプロセスを最初クローズしてから再生するため、短いSEを流すのに最適です。