人人人人人人人人人人人人

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

  

posted @ 2021-03-02 16:12  wgscd  阅读(87)  评论(0编辑  收藏  举报
test red font.