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

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

播放路径：URL="路径&文件名&后缀"
循环：settings.setMode "loop", 1

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

11111111111111111111111111111111111111111111111111

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

播放和控制用Controls属性里的方法，具体.开看。

CxinGui · 发表于 2018-6-30 22:10

本帖最后由 CxinGui 于 2018-6-30 22:28 编辑

帮你改了一下，看看是不是你想要的效果？

banditson · 发表于 2018-6-30 22:25

谢谢“活在理想的世界”的指导，自己按你的方法摸索出来了，同时感谢“CxinGui”提供附件，我会下下来对比一下，谢谢大家！同时上传我自己做出来的附件，供大家指导批评，做得不好之处请别见笑。
思路：WindowsMediaPlayer1在Sheet1中，于是新建模块中加入了播放和停止的SUB，由Sheet1表B列出现重复时报警并播放声音，按确定触发停止stopplay，同时文件打开时不知为何没重复也老是自动播放声音，所以在workbook的open事件中也加入了stopplay的触发，最后将WindowsMediaPlayer1的visible改为false，基本完美！

ring.rar (58.9 KB, 下载次数: 41)

CxinGui · 发表于 2018-6-30 22:32

banditson 发表于 2018-6-30 22:25
谢谢“活在理想的世界”的指导，自己按你的方法摸索出来了，同时感谢“CxinGui”提供附件，我 ...

我给出的文件需要运行宏中的“停止播放“停止声音。不然会一直响。

chenjx80 · 发表于 2018-7-2 12:59

无需使用控件，播放wav声音文件，一个PlaySound足矣！
只播放一次，或循环播放，或停止播放，PlaySound均可轻松应付。

活在理想的世界 · 发表于 2018-7-2 14:01

chenjx80 发表于 2018-7-2 12:59
无需使用控件，播放wav声音文件，一个PlaySound足矣！
只播放一次，或循环播放，或停止播放，PlaySound均 ...

这东西我不会用，你愿意教我吗？

如果愿意的话请贴代码？

我看看控件和PlaySound哪个跟方便。

谢谢配合。

banditson · 发表于 2018-7-3 11:04

活在理想的世界发表于 2018-7-2 14:01
这东西我不会用，你愿意教我吗？

如果愿意的话请贴代码？

再请教高手一问，按现在可以实现EXCEL控制声音播放，但音频文件处理在文件簿外，拷贝EXCEL文件同时要附带音频文件。能不能把音频文件加入到EXCEL文件中（音频文件很小），并控制播放。谢谢！

banditson · 发表于 2018-7-3 11:05

chenjx80 发表于 2018-7-2 12:59
无需使用控件，播放wav声音文件，一个PlaySound足矣！
只播放一次，或循环播放，或停止播放，PlaySound均 ...

是啊是啊，如果有代码的话请贴出来，或用我15楼的文件制作一个PLAYSOUND的文件，大家共同学习一下，最好可以把WAV文件直接加入到EXCEL形成一个文件，谢谢哈！

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

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

评分