本文目录一览：

怎样在excel vba中编写播放声音函数？

在模块里添加对函数的声明：

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

调用代码示例：

Private Sub CommandButton1_Click()

    Call PlaySound("d:/Ring07.wav", 0, H0)

End Sub

相关PlaySound函数的使用说明：

参数lpszName表示声音名，可以是文件名，系统事件名或内存地址，

参数hModule只用于播放嵌入资源，其它的时候设置为0。

参数dwFlags是各种标志常量的组合，有下面一些常用的常量：

    SND_SYNC=H0  同步播放，直到指定声音被播放，函数不会返回，不能跟SND_ASYNC一起使用

    SND_ASYNC=H1  异步播放，不管声音是否播放，函数立即返回程序，不能同SND_SYNC一起使用

    SND_NODEFAULT=H2 如果指定声音不存在，如未设置此参数，将发出默认Beep声，设置了这个参数的话将不发出任何声音

    SND_LOOP=H8  循环声音直至下次调用PlaySound函数

    SND_ALIAS=H10000 lpszName指向注册表项目，也就是说播放系统声音，不要同SND_RESOURCE或SND_FILENAME一起使用

    SND_FILENAME=H20000 声频文件的文件名，不要同SND_RESOURCE或SND_ALIAS一起使用

    SND_PURGE = H40 用来停止当前播放的声音

如何在EXCEL中加入音频文件

先将这句代码放在最前面

Private Declare Function PlayWaveSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszsoundname As String, ByVal uflags As Long) As Long

然后下面代码是运行指定的音频,如果想换就将音频的路径换下就可以了

Public Sub 播放指定声音()

Dim soundName As String

soundName = "C:/WINDOWS/Media/Windows XP 注销音.wav" '声音路径

PlayWaveSound soundName, 0

End Sub

excel自带的Beep是调用哪个声音文件?或者这个Beep声音是保存在哪里？

起发声作用的是MessageBeep(0)函数，它和Beep()的区别主要是是否是阻塞调用的。

MessageBeep()是异步（非阻塞）的，就是说程序执行到此函数后，不等发声完毕就继续执行它后面的程序，所以一般需要在循环中加入Sleep()函数来等待发声完毕再进入下次循环，所以按你的代码，应该不到一秒就结束循环，发声也是很短促。

After queuing the sound, the MessageBeep function returns control to the calling function and plays the sound asynchronously.

参考：

而Beep()是同步（阻塞）的，就是说必须等待函数里发声完毕才会继续执行它后面的程序，所以你的代码把MessageBeep()换成Beep()的话，会发一百次Beep声音，执行完毕所花时间将是单次Beep参数所设时间的100倍。

The Beep function generates simple tones on the speaker. The

function is synchronous; it does not return control to its caller until the

sound finishes.

怎麼可以让excel插入的函数中返回结果为声音

excel函数中没有方法执行操作，声音文件的播放需要执行，要达到这样的效果，只能编程，先通过函数，返回相关的声音文件名，再通过执行宏命令，对特定声音文件进行播放操作。

excel vba 播放音频

我也不会的。但我记录一宏，发现好用。做法如下：

点菜单的插入，对象，由文件创建，选择你那个音频文件，确定。

宏代码：

Sub Macro1()

ActiveSheet.Shapes("Object 1").Select

Selection.Verb Verb:=xlPrimary

End Sub

你插入那个音频文件的名称，选中时可以看到，相应修改代码中的粗体字。

如何在EXCEL中插入音效并让它打开后自动播放

插入→对象→音效，之后可以打开文件或者录制音频。

要实现播放，按Alt+F11，在插入音频的工作表中或者新插入模块中添加代码：

Sub Play()

ActiveSheet.Shapes.Range("对象 1").Select

Selection.Verb Verb:=xlPrimary

End Sub

把这个宏制定到打开文档就好了。