通过EXCEL VB宏功能实现英语单词的英式美式读音

先看效果：

英音美音自动发音

1、EXCEL需要开启宏

参考：【VBA】excel开启宏，打开开发者模式_vba宏的免费启用方法-CSDN博客

2、插入windows media player

3、打开Visual Basic-插入模块-编写代码

UK获取英式读音

UN获取美式读音

Sub playUK()

'获取读音音频文件
Sheets("sheet1").WindowsMediaPlayer1.Url = "http://dict.youdao.com/dictvoice?audio=" & Selection.Value & "&type=1"
'播放音频
Sheets("sheet1").WindowsMediaPlayer1.Controls.Play

End Sub

Sub playUN()

Sheets("sheet1").WindowsMediaPlayer1.Url = "http://dict.youdao.com/dictvoice?audio=" & Selection.Value & "&type=2"
Sheets("sheet1").WindowsMediaPlayer1.Controls.Play  '播放

End Sub

4、插入按钮-关联宏

5、即可在A列输入单词，电子英式美式即可读单词

完结撒花~