VBA编写Ribbon Custom UI编辑器06——读取xml
时间:2022-07-23
本文章向大家介绍VBA编写Ribbon Custom UI编辑器06——读取xml,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
对Office文件读取和写入custom.xml,就是读取和写入ZIP文件,读取ZIP文件并解压缩可以查看前面文章VBA解压缩ZIP。
读取custom.xml步骤:
- 使用类模块CPKZip的功能,将custom.xml读取并解压
- 然后转换编码
- 再使用类模块CXML对数据进行处理
- 最后输出到Excel
Private Const CUSTOMUI_NAME As String = "customUI/customUI.xml"
'从ZIP文件中读取customUI.xml
Sub ReadCustomUI()
If VBA.Len(FileName) = 0 Then
FileName = SelectFile()
If VBA.Len(FileName) = 0 Then Exit Sub
End If
Dim zip As CPKZip
Set zip = NewCPKZip()
Dim ret As String
ret = zip.Parse(FileName)
If VBA.Len(ret) Then
MsgBox ret
Exit Sub
End If
Dim b() As Byte
Dim bucs2() As Byte
Dim sXML As String
'尝试读取文件中的customUI.xml
ret = zip.UnZipFile(CUSTOMUI_NAME, b)
If ret = "zip: ZIP文件中不存在的文件:customUI/customUI.xml" Then
'不存在的时候插入一个默认模板
If MsgBox("文件中没有customUI.xml,是否插入一个模板?", vbYesNo) = vbYes Then
sXML = "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"" onLoad=""RibbonUI_onLoad"">" & _
"<ribbon>" & _
"<tabs>" & _
" <tab id=""TabID"" label=""tabName"" insertAfterMso=""TabDeveloper"">" & _
" <group id=""GroupID"" label=""GroupName"">" & _
" <button id=""Button1"" label=""buttonname "" size=""large"" onAction=""Macro"" imageMso=""HappyFace"" />" & _
" </group>" & _
" </tab>" & _
"</tabs>" & _
"</ribbon>" & _
"</customUI>"
Else
Exit Sub
End If
Else
'将读取到customUI.xml Byte数组,编码UTF8转换为UCS2
ret = FromUTF8(b, bucs2)
If VBA.Len(ret) Then
MsgBox "编码转换出错:" & vbNewLine & ret
Exit Sub
End If
sXML = bucs2
End If
Dim x As CXML
Set x = NewCXML()
Dim tXML As xml
'解析XML文本到XML结构体
ret = x.Decode(sXML, tXML)
If VBA.Len(ret) Then
MsgBox ret
Exit Sub
End If
Dim arr() As String
Cells.Clear
arr = XML2Array(tXML)
Range("A1").Resize(UBound(arr, 1) - LBound(arr, 1) + 1, UBound(arr, 2) - LBound(arr, 2) + 1).Value = arr '不用-1因为0是root,正好作为标题
Set x = Nothing
Set zip = Nothing
End Sub
- Java集合源码分析(一)ArrayList
- 运行jar包找不到主类
- spring cloud 学习(7) - 生产环境如何不停机热发布?
- jupyter notebook 在mac OS上的安装
- Hadoop(七)HDFS容错机制详解
- java一些常用并发工具示例
- 机器人来“抢工作”了,瑞典人为何能淡定处之
- 线性代数01 线性的大脑
- spring cloud 学习(10) - 利用springfox集成swagger
- Hadoop(六)之HDFS的存储原理(运行原理)
- Blockchain Global CEO Sam Lee:以大数据为基础,区块链技术加快决策生成速度
- Hadoop(五)搭建Hadoop客户端与Java访问HDFS集群
- 被解放的姜戈08 远走高飞
- mxnet安装及NDArray初体验
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- LeetCode74|有序矩阵中第K小的元素
- LeetCode73|根据字符出现频率排序
- LeetCode72|前K个高频元素
- LeetCode71|数组中第K个最大元素
- LeetCode70|最小K个数
- LeetCode69|消失的数字
- LeetCode68|和为s的两个数字
- LeetCode78|存在重复元素
- LeetCode77|排序链表
- LeetCode76|两颗二叉搜索树中的所有元素
- LeetCode75|二叉搜索树的第k大节点
- LeetCode86|只出现一次的数字II
- LeetCode85|只出现一次的数字III
- LeetCode84|只出现一次的数字
- LeetCode83|排序矩阵查找