【VBA研究】错误：缺少函数或变量

白给少年王胖子: 我也是这个问题，微信铃声有声音，但是用的是听筒播放的铃声，把手表的通话关掉之后就正常了

Calixtohyj: 谢谢，非常好用

lzzzl: 类模块名：clsScript 一次解析JSON后可多次从结果中获取属性。

lzzzl: Option Explicit Private objHtml As Object Private objWin As Object Private Sub init() If objHtml Is Nothing Then Set objHtml = CreateObject("HTMLFile") Set objWin = objHtml.parentWindow End If End Sub 'eg set person = new clsScript '?person.parseAndGet("{name: ""zhang3"", age: 24}", "name") Public Sub parse(ByVal jsonStr As String) init '解析结果保存到脚本全局变量以备后用 objWin.execScript "window.x=" & jsonStr & ";" End Sub Public Function parseJsonAndGetProperty(ByVal jsonStr As String, ByVal nestedPropertyName As String) As String 'parseJsonAndGetProperty = objWin.Eval("window.x=" & jsonStr & ";window.x." & nestedPropertyName) parse jsonStr parseJsonAndGetProperty = getProperty(nestedPropertyName) End Function Public Function getProperty(ByVal nestedPropertyName As String) As String getProperty = objWin.Eval("window.x." & nestedPropertyName) End Function

lzzzl: 写了一个类供大家分享