VBA获取音标代码： Function yb(word As String) As String

Dim url As String
Dim xmlHttp As Object
Dim htmlf As Object
Dim yingbiao As String

' 构建查询 URL（这里以有道词典为例）
   url = "https://www.youdao.com/w/" & word

' 创建 XML HTTP 对象
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")

' 发送 HTTP GET 请求
xmlHttp.Open "GET", url, False
xmlHttp.send



' 创建 HTML 文档对象
Set htmlf = CreateObject("HTMLFile")
htmlf.body.innerHTML = xmlHttp.responseText


yingbiao = htmlf.getElementById("phrsListTab").getElementsByClassName("phonetic")(0).innerText


yb = yingbiao

End Function

VBA获取中文翻译代码： Function fanyi(word As String) As String

Dim url As String
Dim xmlHttp As Object
Dim htmlf As Object
Dim jieguo As String

' 构建查询 URL（这里以有道词典为例）
   url = "https://www.youdao.com/w/" & word

' 创建 XML HTTP 对象
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")

' 发送 HTTP GET 请求
xmlHttp.Open "GET", url, False
xmlHttp.send



' 创建 HTML 文档对象
Set htmlf = CreateObject("HTMLFile")
htmlf.body.innerHTML = xmlHttp.responseText

' 提取定义

jieguo = htmlf.getElementById("phrsListTab").getElementsByTagName("li")(0).innerText

fanyi = jieguo

End Function

效果图：

为了方便查看，对中文翻译做了一下简单截取，只保留第一个逗号或者分号前面部分。