04 2019 档案

VBA XML信息提取
摘要：Option Explicit Sub 读取XML节点() '后期绑定 'Dim xdoc As Object 'Set xdoc = CreateObject("MSXML2.DOMDocument") '前期绑定 Dim xdoc As New DOMDocument60 '声明的同时创建XML对象 Dim b As Boolean, root As IXMLDOMElement b = x... 阅读全文
posted @ 2019-04-12 11:45 tec2019 阅读(709) 评论(0) 推荐(0)
VBA 生成XML(转)
摘要：需要引用连个库，Microsoft ADO Ext. 6.0 for DDL and Security, Miscrosoft ActiveX Data Objects 2.7 Library . 阅读全文
posted @ 2019-04-12 10:56 tec2019 阅读(1268) 评论(0) 推荐(0)
VBA解析Json(转)
摘要：Sub bluejson() 'ok Dim aa Set x = CreateObject("ScriptControl"): x.Language = "JScript" aa = "{""myname"":""Michael"",""myaddress"":{""city"":""Beijing"",""stree 阅读全文
posted @ 2019-04-02 16:18 tec2019 阅读(1287) 评论(0) 推荐(0)