如何使用VBA让excel在打开时自动播放音乐

hxj356 · 发表于 2009-4-12 14:33

请各位高手解决困扰了我半年多的问题！！
将音乐插入对象到excel里面，如何让这个excel文件在任何一台电脑上（操作系统不限，是否联网不限）都能自动播放设定好的音乐？
使用过N种方法，都不能按要求实现。。。
如果能用VBA实现，请具体说明，并将代码附上！小弟磕头了~~

987654321 · 发表于 2009-4-12 14:43

Private Declare function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub auto_open()
Dim pth As String
pth = ThisWorkbook.Path
Call sndPlaySound32(pth + "\end.wav", 0)
End Sub
将音乐文件放入工作簿同一目录即可

wskcel · 发表于 2009-4-12 17:15

将音乐文件放入工作簿同一目录好象不行

987654321 · 发表于 2009-4-12 18:08

音乐文件是WAV格式的

hxj356 · 发表于 2009-4-12 22:31

我将WAV格式的音乐插入了，也不代码复制了进去，但是没有任何反应，或许是我不懂具体怎么操作，能不能做好一个excel发到我的邮箱！
hexiangjun356@sina.com
万分感谢！！！！

lxmihui · 发表于 2009-4-13 22:28

右击Excel 工具栏，在弹出菜单中单击勾选“ 控件工具箱”,单击“ 控件工具箱” 中的“ 其它控件” 按钮，在下拉列表中选择“ Windows Media Play ” 控件,选中刚插入的Windows Media Play 控件，单击“ 控件工具箱” 中的“ 属性” 按钮打开“ 属性”，单击选中第二行的“ 自定义” ，在自定义右侧表格后会显示一个“ … ” 按钮，单击此按钮就会打开“ Windows Media Play 属性” 窗口。单击“ 文件名或URL ” 后的“ 浏览” 按钮，选择打开要播放的背景音乐文件。接着把下面的“ 自动启动” 复选项选中，在“ 播放计数” 中输入一个比较大的数字，比如：99 ，这样就可以让背景音乐一直重复播放了。在此由于我们需要的只是背景音乐，因此还要单击“ 选择模式” 后的下拉列表从中选择“ Invisible ” ，把在工作表中的Windows Media Play 控件隐藏起来。不要的时候也可以删除。

tcy119 · 发表于 2009-4-13 22:45

http://club.excelhome.net/search ... mp;searchsubmit=yes
你自己去找吧,我就是这样找来的,现在解决了

小fisher · 发表于 2009-4-13 22:48

http://club.excelhome.net/thread-420067-1-1.html
上面这个网址是我做的一个游戏，里面播放的声音就是嵌入工作表中的wav文件，代码是公开的，播放嵌入Wav文件的代码放在sound模块下，原理是使用OleObjects(x).Copy将嵌入文件放入剪贴板，然后从剪贴板里读出嵌入文件的二进制字节到内存数组中，这样就可以使用api函数播放了
下面这个网址里面有我对剪贴板API函数的学习心得：
http://www.officefans.net/cdb/viewthread.php?tid=103805

另外使用OleObjects(x).Verb也可以播放嵌入的声音，不过需要打开一个windows media player或其他播放器的进程，使用控件或其他方法都只能播放硬盘上的文件

[ 本帖最后由小fisher 于 2009-4-13 22:54 编辑 ]

tcy119 · 发表于 2009-4-13 22:55

向你学习,不错

故我在 · 发表于 2009-4-13 23:06

6楼正解我也一直这么做的没必要用VBA

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

[求助] 如何使用VBA让excel在打开时自动播放音乐

回复 8楼小fisher 的帖子

[求助] 如何使用VBA让excel在打开时自动播放音乐

回复 8楼 小fisher 的帖子

回复 8楼小fisher 的帖子