VBA定时播放音乐代码

Sub 定时播放音乐()
    Dim a, b, c, d As Date
    Dim musicFilePath As String
    a = TimeValue("8:20:00")
    b = TimeValue("8:30:00")
    c = TimeValue("9:35:00")
    d = TimeValue("9:50:00")
    Application.OnTime a, "预备铃"
    Application.OnTime b, "开考铃"
    Application.OnTime c, "提醒铃"
    Application.OnTime d, "结束铃"
End Sub
Sub 预备铃()
    Dim musicFilePath As String
    musicFilePath = "G:\桌面\定时播放\音乐\预备铃.mp3"
    Sheet1.WindowsMediaPlayer1.URL = musicFilePath
    Sheet1.WindowsMediaPlayer1.Controls.Play
End Sub
Sub 开考铃()
    Dim musicFilePath As String
    musicFilePath = "G:\桌面\定时播放\音乐\开考铃.mp3"
    Sheet1.WindowsMediaPlayer1.URL = musicFilePath
    Sheet1.WindowsMediaPlayer1.Controls.Play
End Sub
Sub 提醒铃()
    Dim musicFilePath As String
    musicFilePath = "G:\桌面\定时播放\音乐\提醒铃.mp3"
    Sheet1.WindowsMediaPlayer1.URL = musicFilePath
    Sheet1.WindowsMediaPlayer1.Controls.Play
End Sub
Sub 结束零()
    Dim musicFilePath As String
    musicFilePath = "G:\桌面\定时播放\音乐\结束铃.mp3"
    Sheet1.WindowsMediaPlayer1.URL = musicFilePath
    Sheet1.WindowsMediaPlayer1.Controls.Play
End Sub