VBA 解析 json
Sub Macro1() Debug.Print "999" Dim FilePath, strData FilePath = "C:\Git\Test\JenProjects.json" Open FilePath For Input As #1 Do While Not EOF(1) Line Input #1, strData Loop Close #1 Debug.Print strData 'MsgBox strData strData = "[{""yyy"":""/t.\\8\\88""},{""yyy"":""9\\99""}]" 'age = "" & scobj.Eval("query[0].yyy") & scobj.Eval("query[1].yyy") testJson (strData) End Sub Sub testJson(jsstr As String) Dim scobj Set scobj = CreateObject("msscriptcontrol.scriptcontrol") ok = scobj Is Nothing Debug.Print TypeName(scobj) ' ScriptControl 'MsgBox ("77") 'Dim scobj As New MSScriptControl.ScriptControl Dim age As String scobj.Language = "JavaScript" scobj.AddCode "var query = " & jsstr age = "" & scobj.Eval("query[0].yyy") Debug.Print "---" & age & "" End Sub
fffffffffffffffff
test red font.