標題: VBA音效 [打印本頁]

---

作者: abcdefgp06    時間: 2010-7-23 10:35     標題: 輸出聲音

請問如何以Excel之VBA自喇叭輸出聲音?

---

作者: jackdream    時間: 2010-7-23 11:01

像這樣? 發一聲"嗶"

Sub test()
    Beep
End Su

---

作者: abcdefgp06    時間: 2011-5-17 13:14     標題: VBA音效

Excel之VBA聲音警示使用音樂檔發聲

在宣告區宣告
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

在程式區家上呼叫音樂檔
       file1 = "D:\pocketPC\Audio-1.wav" '填要播放的音樂檔
     mciSendString "seek " & file1 & " to start", vbNullString, 0, 0
        mciSendString "open " & file1, vbNullString, 0, 0
        mciSendString "play " & file1, vbNullString, 0, 0

測試OK

---

作者: abcdefgp06    時間: 2011-5-17 14:36

本帖最後由 oobird 於 2011-5-17 15:55 編輯

2011/05/17另有一文
Excel之VBA聲音警示使用音樂檔發聲
經測試OK供參考

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)