如何创建xsl文件 xml_EXCEL知识分享 I 连载如何快速创建XML文件
转自:Excel之家ExcelHome
XML文件本质上是文本文件,因此使用创建文本文件的方式就可以创建XML文件。此外,在VBA中也可以使用XML DOM对象创建XML文件,示例代码如下。
#001 Sub CreateXML()
#002 Dim objXMLDOM As Object
#003 Dim objNode As Object
#004 Dim objVer As Object
#005 Set objXMLDOM = CreateObject("Microsoft.XMLDOM")
#006 Set objVer = objXMLDOM.createProcessingInstruction("xml", _
"version=" & Chr(34) & "1.0" & Chr(34))
#007 objXMLDOM.appendChild objVer
#008 Set objNode = objXMLDOM.createElement("Test")
#009 objNode.appendChild objXMLDOM.createTextNode(vbCrLf)
#010 objXMLDOM.appendChild objNode
#011 CreateNode objNode, "FirstName", "张"
#012 CreateNode objNode, "LastName", "三"
#013 CreateNode objNode, "NikName", "张三"
#014 CreateNode objNode, "Level", "版主"
#015 objXMLDOM.Save ThisWorkbook.Path & "umber.xml"
#016 Set objXMLDOM = Nothing
#017 Set objNode = Nothing
#018 Set objVer = Nothing
#019 End Sub
#020 Sub CreateNode(objNode As Object, _
strName As String, strValue As String)
#021 Dim objNewNode As Object
#022 With objNode
#023 .appendChild .OwnerDocument.createTextNode(Space$(4))
#024 Set objNewNode = .OwnerDocument.createElement(strName)
#025 objNewNode.Text = strValue
#026 .appendChild objNewNode
#027 .appendChild .OwnerDocument.createTextNode(vbCrLf)
#028 End With
#029 Set objNewNode = Nothing
#030 End Sub
代码解析:
第5行代码采用后期绑定的方式,使用CreateObject函数创建对Microsoft.XMLDOM对象的引用。除此之外,也可以使用前期绑定的方式引用【Microsoft XML,V6.0】库,具体操作步骤如下。
在Visual Basic编辑器中依次单击菜单【工具】→【引用】打开【引用 - VBAProject】对话框,在【可使用的引用】列表框中定位并勾选【Microsoft XML, v6.0】的复选框,如图所示。
引用Microsoft XML库
第6行代码使用CreateProcessingInstruction方法建立新的处理指令,该指令包含了指定的目标和数据。其中“xml”表示目标或处理指令的字符串,“version=***”表示处理指令的数据。尽管新的处理指令被建立,但并没有添加到文件树中。
第7行代码使用appendChild方法将第6行代码的处理指令插入到文件树中。AppendChild方法表示加上一个节点作为指定节点最后的子节点。
第8行代码使用createElement方法创建名为“Test”的新元素,也可以使用CreateNode方法来创建该元素,示例代码如下。
Set objNode = xmldoc.CreateNode(1, "Test", "")
CreateNode方法建立一个指定型态、名称及命名空间的新节点,其语法格式如下。
xmlDocument.createNode(type, name, nameSpaceURI)
其中参数type代表将被建立的节点型态,参数name代表新节点的名称,参数nameSpaceURI则指定定义命名空间URI字符串。
第9行代码使用createTextNode方法创建新的text节点,并指定代表该节点的字符串,使用appendChild方法将该节点插入到文件树中。
第10行代码使用appendChild方法将新创建的元素Test加入到文件树中。
第11行到第14行代码调用CreateNode过程创建“Test”元素下的节点。
第15行代码使用Save方法保存XML DOM对象到指定的XML文档。
第20行到第30行代码为CreateNode过程,该过程在指定元素下创建新的节点并为节点赋值。
运行CreateXML过程,将在指定的目录下创建名为“number.xml”的文档。使用记事本程序打开该文档,结果如下图所示。
XML文档的文本内容
在IE浏览器中打开“number.xml”文档,单击“”前面的“−”符号可以折叠所有的标签,单击“”前面的“+”符号可以展开隐藏的标签,如下图所示。
XML文件在Internet Explorer中的显示效果
代码扩展:
使用Workbooks对象的OpenXML方法可以打开XML文件,其语法格式如下。
Workbooks.OpenXML(Filename,[Stylesheets],[LoadOption])
其中参数Filename是必需的,其值代表要打开的文件名。
参数Stylesheets是可选的,其值指定XSLT(XSL转换)样式表的处理指令。XSL是eXtensible Style Language的缩写,是XML的样式表语言。XML用于承载数据,XSL则用于设置数据的显示格式。XSL是一个较为复杂的主题,感兴趣的读者可以自行学习相关资料。
参数LoadOption是可选的,指定打开XML数据文件的方式。其值可以为xlXmlLoadOption常量之一。
此外,使用VBA代码也能够将工作表另存为XML文件,只需设置SaveAs方法的参数FileFormat为xlXMLSpreadsheet常量即可,示例代码如下。
ActiveSheet.SaveAs ThisWorkbook.Path & "excelxml.xml", xlXMLSpreadsheet
利用SaveAs方法保存示例文件为XML文件,使用记事本程序打开XML文件,结果如下图所示。
使用SaveAs方法将工作簿保存为XML文件
除了将整个工作簿保存为XML文件,也可以仅保存指定的单元格范围为XML文件。保存当前工作表A1:B3单元格区域到代码所在工作簿路径下的rangexml.xml文件。示例代码如下。
#001 Sub SaveRangetoXML()
#002 Dim strContent As String
#003 strContent = Range("A1:B3").Value(xlRangeValueXMLSpreadsheet)
#004 Open ThisWorkbook.Path & "angexml.xml" For Binary As #1
#005 Put #1, , strContent
#006 Close #1
#007 End Sub
如何创建xsl文件 xml_EXCEL知识分享 I 连载如何快速创建XML文件相关推荐
- 一次代码重构之旅-快速读写xml文件工具类封装
为了满足系统的灵活性,有些功能经常需要用到配置文件,一般是xml格式的居多.如何能快速读写配置文件呢? 以前都是用dom4j提供的api来读写xml文件,用dom4j读写配置文件总感觉像是在结构化的处 ...
- 当把Python的过程文件发给其他人,如何方便别人快速下载过程文件所需要的库
当把Python的过程文件发给其他人,如何方便别人快速下载过程文件所需要的库: 1. 定位到所在的工程文件位置,下载requests包,输入如下指令: pip install requests 2. ...
- linux cp 目录不存在自动创建,Linux运维知识之Linux:复制并创建目标目录,如果它不存在...
本文主要向大家介绍了Linux运维知识之Linux:复制并创建目标目录,如果它不存在,通过具体的内容向大家展现,希望对大家学习Linux运维知识有所帮助. 我需要一个命令(或者可能是cp的一个选项)来 ...
- python读取log文件_python文件读写(一)-txt, log, json, csv, xml文件
1.概述在平时自动化测试工作中,经常会用python对一些文件进行读写操作.其中使用最多的文件格式,就是txt, log, json, csv, xml, zip, tar, gz, ra ...
- xml文件导入mysql_如何使用XML_LOAD()将XML文件导入MySQL数据库表;功能?mysql-问答-阿里云开发者社区-阿里云...
我有一个看起来像这样的XML文件: 539 Name Surname email.domain.com 2011-04-02 13:30:00 2011-04-02 18:15:00 1,2,4,5, ...
- linux rsync删文件速度,Linux下使用rsync最快速删除大量文件的方法
要在Linux下删除海量文件的情况,需要删除三层哈希目录下的几十万个文件.这个时候,删除命令rm -rf * 就不好用了,因为要等待的时间太长.所以必须要采取一些非常手段.我们可以使用rsync来实现 ...
- java读取src xml文件路径_Java获取路径方法相对路径读取xml文件方法
(1).request.getRealPath("/");//不推荐使用获取工程的根路径 (2).request.getRealPath(request.getRequestURI ...
- 生成xml_freemarker快速生成xml文件
记录一次用freeMarker生成xml文件 import freemarker.template.Configuration;import freemarker.template.Template; ...
- python解析xml文件最好选用的模块_用Python解析XML文件
本文翻译自:https://developer.yahoo.com/python/python-xml.html 使用Python解析XML文件 许多YDN APIs提供了JSON格式的数据输出,JS ...
最新文章
- 超越对手pdf_如何创建一个超越竞争对手的移动应用
- 看看数据科学家们都在用什么:Github上的十大深度学习项目
- linux下的动态链接库和静态链接库到底是个什么鬼?(一)静态链接库的编译与使用...
- STL源码剖析---红黑树原理详解下
- .NET(C#):使用SmtpClient发送带有图片和附件的电子邮件
- vue中v-html指令的使用之Vue知识点归纳(三)
- [导入]用Windows自带的媒体播放器抓视频截图
- 无需activity获得屏幕尺寸
- html自动聊天机器人源代码,QQ全自动聊天机器人
- 基于图神经网络的时空预测
- mac系统下修改usr/bin文件夹权限问题
- LabVIEW编程LabVIEW开发视频教学例程与相关资料
- WRSC无人帆船航行基本原理
- hutool导出excel 设置单元格日期格式 poi设置excel单元格日期格式
- 秉火429笔记之八 RCC时钟
- 剖析中移动未来之路之二
- 关于深度学习中使用多卡GPU进行训练学习总结
- RHRP1560-ASEMI大功率快恢复二极管15A 600V
- 从数据保护到统一数据管理平台,爱数的数据之道又升级了!
- 关于 SQL 外键删除的问题
热门文章
- Centos7(Ubuntu)密码登录失败锁定设置(亲测)
- 处理Linux中大量ESTABLISHED进程
- batch echo 输出空格(空行 空白行)
- 如何考虑程序的优化性
- 【Python-2.7】如何判断对象是否为可迭代?
- XSS(跨站脚本攻击)漏洞解决方案
- 记一次Jenkins 打包异常 ERROR: Exception when publishing, exception message [Failure]
- NFS客户端挂载目录后无写入权限的解决方案
- Spring MVC异常处理详解
- 默认情况下在MongoDB Shell中漂亮打印