level 3
你可以把这个 JSON 第三方库的代码贴出来，否则大家如何帮助你。
2025年01月10日 12点01分
吧务
level 12
level 7
这是我多年前写的，你看下有没有相关。
Public Function JSONGet(ByVal JSONPath As String, ByVal JSONString As String) As String
Dim JSON As Object
Set JSON = CreateObject("ScriptControl")
JSON.Language = "JavaScript"
JSONGet = JSON.Eval("JSON=" & JSONString & ";JSON." & JSONPath & ";")
Set JSON = Nothing
End Function
2025年01月13日 01点01分
5
Public Function JSONGet(ByVal JSONPath As String, ByVal JSONString As String) As String
Dim JSON As Object
Set JSON = CreateObject("ScriptControl")
JSON.Language = "JavaScript"
JSONGet = JSON.Eval("JSON=" & JSONString & ";JSON." & JSONPath & ";")
Set JSON = Nothing
End Function