Kак воспроизвести звуковой файл?

1. Вариант
   code: #vba

   iFileName = "C:\Windows\Media\LogOff.wav"
   iMacroFunction = "SOUND.PLAY(,""" & iFileName & """)"
   ExecuteExcel4Macro iMacroFunction

   Если же необходимо программно определить был или нет воспроизведён звук, то для этого можно воспользовать функцией IsSoundPlay, вызов которой приведён ниже.

   code: #vba

   Private Sub Test()
       iFileName$ = "C:\Windows\Media\LogOff.wav"
    
       If IsSoundPlay(iFileName$) = True Then
          MsgBox "Мы только что воспроизвели звук", , ""
       Else
          MsgBox "К сожалению, ничего не вышло", , ""
       End If
   End Sub
    
   Private Function IsSoundPlay(iFileName$) As Boolean
       iMacroFunction$ = "SOUND.PLAY(,""" & iFileName$ & """)"
       IsSoundPlay = Not IsError(ExecuteExcel4Macro(iMacroFunction$))
   End Function

2. Вариант

   Если на компьютере установлен Проигрыватель Windows Media Player, то :

   code: #vba

   CreateObject("MediaPlayer.MediaPlayer.1").Open "C:\Windows\Media\Tada.wav" 'Tada.wma

   Обратите внимание на то, что Вы можете использовать и другие возможности этого проигрывателя, к примеру, узнать причину отсутствия звука:

   code: #vba

   With CreateObject("MediaPlayer.MediaPlayer.1")
        .Open "C:\Windows\Media\Music.mp3"
        If .HasError = True Then MsgBox .ErrorDescription, , ""
   End With