返回列表 上一主題 發帖

VBA音效

abcdefgp06

帖子
10 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
windows XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2010-7-23 
最後登錄
2011-7-3 
1# 跳轉到 »
發表於 2010-7-23 10:35 | 只看該作者

輸出聲音

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

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
2#
發表於 2010-7-23 11:01 | 只看該作者
像這樣? 發一聲"嗶"

Sub test()
    Beep
End Su

TOP

abcdefgp06

帖子
10 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
windows XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2010-7-23 
最後登錄
2011-7-3 
3# 倒序看帖
打印
tT
發表於 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

帖子
10 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
windows XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2010-7-23 
最後登錄
2011-7-3 
4#
發表於 2011-5-17 14:36 | 只看該作者
本帖最後由 oobird 於 2011-5-17 15:55 編輯

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

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題