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.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步