怎样使用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秒钟后就可以听到音乐已在播放