怎样使用VBA播放背景音乐？

1、首先在开诉光发工具中打开VBA编辑器

2、在单元格痕物区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

 

Sub auto_open()

 

    ReturnSoundValue=mciExecute("open " & ThisWorkbook.Path &

 

    "\上海滩.mid ALIAS rsv")

 

    mciExecute "play rsv"

 

End Sub

 

Sub关闭()

 

    mciExecute "裹游良close rsv"

 

End Sub

5、重启工作簿，2秒钟后就可以听到音乐已在播放