Ｗａｖファイルを自動再生させる方法

質問

エクセル　ＶＢＡマクロでＷａｖファイル（w_arase31.wav）をＡｍ9：00に自動再生させる方法を教えてください。

回答No.1

Wendy02 · ベストアンサー

こんばんは。

標準モジュール
'-------------------------------------------
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub SoundWavPrc()
　Dim fName As String　'ファイル名
　fName = "C:\Documents and Settings\[UserName]\My Documents\My Music\w_arase31.wav
　sndPlaySound fName, SND_NODEFAULT
End Sub

Sub Auto_Open()

　Call SoundWavPrc
　''または、ブックを開いているなら、上のコードと入れ替え
　' Application.OnTime #9:00:00 AM#, SoundWavPrc
End Sub

'-------------------------------------------

後は、タスク・スケージュラーで、登録して、9:00 になるようにするか、もしくは、立ち上げているなら、

これは、二者択一です。

　Call SoundWavPrc
　''または、ブックを開いているなら、上のコードと入れ替え
　' Application.OnTime #9:00:00 AM#, SoundWavPrc

お礼

Wendy02さん
ありがとうございます。
ＷＡＶファイルを再生することが出来ました。
勉強になりました。