返回列表 上一主題 發帖

VBA音效

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

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

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

TOP

像這樣? 發一聲"嗶"

Sub test()
    Beep
End Su

TOP

輸出聲音

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

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題