如何用VBA播放同目录WAV声音

banditson · 发表于 2018-6-30 16:34

ring.rar (58.9 KB, 下载次数: 35)
如上，B列出现重复时给出提示（已实现），想同时循环播放ring.wav文件，是循环播放哦，然后在点击确定后声音停止，如果不能循环播放的话播放一次也可以。谢谢！

活在理想的世界 · 发表于 2018-6-30 16:52

需要有wmp控件

banditson · 发表于 2018-6-30 17:01

活在理想的世界发表于 2018-6-30 16:52
需要有wmp控件

因为笔记本没有蜂鸣器，VBA中用BEEP不会响，所以想用WAV文件播放来提示，请问WMP控件怎么弄呢

活在理想的世界 · 发表于 2018-6-30 17:13

本帖最后由活在理想的世界于 2018-6-30 17:14 编辑

banditson 发表于 2018-6-30 17:01
因为笔记本没有蜂鸣器，VBA中用BEEP不会响，所以想用WAV文件播放来提示，请问WMP控件怎么弄呢

Windows Media Player控件
把这个控件调出来，然后百度一下用法（真的很简单），然后你的想法就可以实现了。

活在理想的世界 · 发表于 2018-6-30 17:24

刚才测试了一下，这两句代码足矣解决你的问题。

注意，假设WMP控件在Sheet1里面

Sub d()
Sheet1.WindowsMediaPlayer1.URL = "D:\音乐\WAV\天边\01.天边.wav"
Sheet1.WindowsMediaPlayer1.settings.setMode "loop", 1
End Sub

复制代码

banditson · 发表于 2018-6-30 17:31

我有加入一个Windows Media Player控件，然后双击写入代码
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
playSound ThisWorkbook.Path + "\ring.wav", 0&, &H1
End Sub

但就是无法播放，控件完全没反应的状态。请问怎么处理，然后怎么在重复提示时自动触发这个播放和关闭这个播放？谢谢谢谢！

活在理想的世界 · 发表于 2018-6-30 17:39

banditson 发表于 2018-6-30 17:31
我有加入一个Windows Media Player控件，然后双击写入代码
Private Sub WindowsMediaPlayer1_OpenStateCha ...

Sheet1.WindowsMediaPlayer1.URL = "路径&文件名&后缀"
Sheet1.WindowsMediaPlayer1.settings.setMode "loop", 1

活在理想的世界 · 发表于 2018-6-30 17:39

banditson 发表于 2018-6-30 17:31
我有加入一个Windows Media Player控件，然后双击写入代码
Private Sub WindowsMediaPlayer1_OpenStateCha ...

我给你发的贴子需要审核，传附件的话音频文件太大。

你慢慢等吧。

活在理想的世界 · 发表于 2018-6-30 17:42

banditson 发表于 2018-6-30 17:31
我有加入一个Windows Media Player控件，然后双击写入代码
Private Sub WindowsMediaPlayer1_OpenStateCha ...

属性和方法没用对，路径也错了。

活在理想的世界 · 发表于 2018-6-30 17:43

banditson 发表于 2018-6-30 17:31
我有加入一个Windows Media Player控件，然后双击写入代码
Private Sub WindowsMediaPlayer1_OpenStateCha ...

不要用事件，在模块里直接下SUB

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA播放同目录WAV声音