Excel_VBA 读取XML

最新推荐文章于 2023-03-22 16:42:14 发布
原创 最新推荐文章于 2023-03-22 16:42:14 发布 · 840 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍如何使用VBA宏编写代码来读取XML文件，并返回其根节点。通过设置属性和方法，实现对XML文件的有效解析。
''读取xml文件，返回root节点
Function readXmlFile(ByVal fileName As String) As Object
Dim xmlFile As Object
Dim root As Object

Set xmlFile = CreateObject("MSXml2.DOMDocument")
xmlFile.async = False
xmlFile.Load (fileName) 'XML文件名，带上路径，比如c:\bbb.XML

xmlFile.setProperty "SelectionLanguage", "XPath" '
Set root = xmlFile.DocumentElement
'Set root = xmlFile.getElementsByTagName("TestItem")
Set readXmlFile = root
End Function

这样调用Set nodeStart = readXmlFile(arrFiles(i))
用VBA编写用EXCEL输出XML
08-23
自己制作的用VBA写输出XML。VBA也是初学，主要为了用EXCEL能够编辑XML表。点击保存按钮或者直接CTRL+S就可以输出最终的XML。最终的XML会在当前目录下。DATAOUT是在EXCEL直接看到编辑的结果。代码中有很多冗余的代码，毕竟是初学，参考的东西直接懒的删除，放在里面。
vba操作xml
02-01
vba简单的操作xml 根据xpath 读取节点信息并输出
用VBA读取Excel表格输出到格式化的xml文件中
weixin_33885676的博客
11-24 483
最近需要做一个一劳永逸的XML文档生成，给项目内部专用的，直接VBA方便了，才第一次用。现学现卖了。。。。抽时间还是系统的学习下这方面的知识吧   输出到UTF-8编码的XML文档。并且换行符是Unix的\n换行符。   1 Sub WriteToXml() 2 3 Dim FilePath As String 4 Dim ClientID As Str...
VBA读excel写xml
weixin_30443731的博客
01-29 231
VBA ◆写文件Dim sFile As Object, fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject") sFile.WriteLine (String(8, " ") & "<Request>") sFile.CloseSet sFile = NothingSet fso = Nothi...
VBA解析XML文件
禅：戒定慧
12-19 2053
并对其中的内容进行相关的提取和使用，本文主要使用excel中的vba进行对xml的识别和操作，主要是代码。在有些的工程里面，需要使用excel进行解析xml文件，并且进行内容的提取。
VBA--XML文件的读取与输出
热门推荐
oyq的博客
07-09 1万+
XML的简单使其易于在任何应用程序中读写数据，这使XML很快成为数据交换的唯一公共语言，虽然不同的应用软件支持其它的数据交换格式，但不久之后他们都将支持XML，那就意味着程序可以更容易的与Windows, Mac OS, Linux以及其他平台下产生的信息结合，然后可以很容易加载XML数据到程序中并分析它，并以XML格式输出结果。下面我们来学习一下用VBA如何读取XML文件和输出XML文件1....
VBA小模板：如何把 txt / json /xml 文件内容读入到excel 表里
奔跑的犀牛先生
03-22 4506
如何把 txt / json /xml 文件内容读入到excel 表里
VBA读取XML文件
liuyt2015的博客
01-10 1619
Sub CommandButton1_Click2()               Set dom = CreateObject("MSXml2.DOMDocument")      dom.async = False      If dom.Load("E:\beans.xml") = False Then          MsgBox "Load xml file fai
excel中如何利用VBA批量生成XML文件
伯爵的专栏
04-17 7600
定义一个宏，代码如下： Sub SaveXML() If MsgBox("Are you sure create xml?", vbYesNo) = vbYes Then ActiveWorkbook.Save Dim xlsname, filepath xlsname = Left(ThisWorkbook.N
Excel的Macro读取XML文件到Excel
jiang_yu98的专栏
08-14 643
若干年前满满的热情，被懒惰消磨。。。闲话少说，昨天闲着看小说的时候，突然朋友来信询问用Excel的VBA把XML转成Excel格式表示出来的程序编译通不过。他是网上找的一个简单的例子，没想到程序虽短，坑却不少。随即东拼西凑，做了个例子大致解决问题。网上雷同的内容肯定很多，我只能保证自己的肯定能运行，同时借鉴了网上诸位大能的片段，反正现在编程不就是copy，paste嘛。说一句客观的话：每一句都是自己写的程序的可靠性很低，需要测试测试再测试。被大家传唱的才是经过千锤百炼的，那些被抛弃的都是有bug哒。 要求
EXCEL转XML小工具附VBA源码
04-28
1.打开xls2xml 2.导入excel表格 3.生成xml
在xml中定义excel的sheet_通过VBA将XML文件导入现有excel工作表
weixin_33507732的博客
02-05 375
我有一个相当大的xml文件,我想把它导入一个现有的excelfile,一个特定的工作表中。我自己的代码相当迟钝。我尝试过使用openXml方法,但这会产生不可用的输出我尝试过的代码(虽然有效,但速度很慢)列在这里。这个XML文件包含大约10000个条目,每个条目都有我需要的22个其他值。如果我运行这段代码,excel需要2到3分钟将所有数据放入工作表中,这是不可接受的。我也试过用工作簿.openX...
vba 解析JSON/XML总结笔记，以GoogleMap/OpenstreetMap-Nominatim为例
Goenken博客
12-12 2230
业务中用到vba解析json/xml，这里进行总结笔记。 1.发送请求function Public Function sendReq(ByRef URL As String) As String On Error GoTo err6 Dim HttpReq As MSXML2.XMLHTTP60 Dim ResponseStr As String
VBA 中判断汉字的方法
ppby2002的专栏
04-19 5903
<br />    For i = 1 To Len(ActiveCell)<br />        If Abs(Asc(Mid(ActiveCell, i, 1))) > 255 Then<br />            MsgBox "Got Chinese char!!"<br />            Exit For<br />        End If<br />    Next i
VB.NET利用openXML读取EXCEL数据(一)
goodluckcs_vb的博客
02-06 1446
用VB.NET访问openXML，读EXCEL数据
VBA网抓之xmlhttp创建对象的2种方式
边城浪子的博客
03-05 3429
首先引用 step1:进入VBA中，“工具”－－－－”引用“－－－－“Microsoft XML, v3.0”选中，－－－－“确定” 第1种方式：直接引用 Public Sub g() '第一种 Dim xh As xmlHttp xh.Open "" End Sub 引用“Microsoft XML, v3.0”后，直接定义一个xmlhttp后，后面会直接跟方法。这种方式比较简单。但很多时候兼容性不好。 第二种：后期绑定 Public Sub g() '第二种 Set ht
VBA读写XML文件
weixin_30396699的博客
06-05 971
'Write XML file Sub WriteXML(fpa$, fn$) Dim xmlfile As String xmlfile = ThisWorkbook.Path & ".\Export.xml" CreateXml xmlfile, fpa, fn End Sub Function CreateXml(xmlfile$, fpa...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值