VBA编写Ribbon Custom UI编辑器07——写入xml
时间:2022-07-24
本文章向大家介绍VBA编写Ribbon Custom UI编辑器07——写入xml,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
写入custom.xml步骤:
- 从Excel中读取数据并转换为xml格式的文本
- 然后转换编码
- 使用类模块CPKZip的功能,将custom.xml写入(CPKZip的写入功能下次介绍)
这里需要注意的是,如果某个Office文件没有custom.xml,除了要写入custom.xml之外,还必须在_rels/.rels文件后面,增加一条Relationship:
'写入customUI.xml
Sub WriteCustomUI()
Dim arr()
Dim sXML As String
arr = Range("A1").CurrentRegion.Value
'单元格内容转换为xml文本
sXML = Array2XMLString(arr)
If VBA.Len(sXML) = 0 Then
MsgBox "请在单元格中设置customUI"
Exit Sub
End If
Dim bucs2() As Byte
bucs2 = sXML
'转换编码
Dim bUTF8() As Byte
Dim ret As String
ret = ToUTF8(bucs2, bUTF8)
If VBA.Len(ret) Then
MsgBox "编码转换出错:" & vbNewLine & ret
Exit Sub
End If
'检查是否设置了目标文件
If VBA.Len(FileName) = 0 Then
FileName = SelectFile()
If VBA.Len(FileName) = 0 Then Exit Sub
End If
'备份文件
If bBakFile Then
VBA.FileCopy FileName, FileName & ".备份" & VBA.Format(VBA.Now(), "yyyymmddhhmmss")
End If
Dim zip As CPKZip
Set zip = NewCPKZip()
'解析文件
ret = zip.Parse(FileName)
If VBA.Len(ret) Then
MsgBox ret
Exit Sub
End If
'判断是否存在CUSTOMUI_NAME,不存在的情况下还要更新rel
Dim fs() As String
fs = zip.Files()
Dim i As Long
For i = 0 To UBound(fs)
If fs(i) = CUSTOMUI_NAME Then
Exit For
End If
Next
Dim b() As Byte '记录_rels/.rels
If i = UBound(fs) + 1 Then
'添加rel
ret = zip.UnZipFile("_rels/.rels", b)
If VBA.Len(ret) Then
MsgBox ret
Exit Sub
End If
ret = FromUTF8(b, bucs2)
If VBA.Len(ret) Then
MsgBox ret
Exit Sub
End If
'将最后的</Relationships>替换为<Relationship Id="VBAPKZIP" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/></Relationships>
Dim str As String
str = bucs2
str = VBA.Left$(str, VBA.Len(str) - VBA.Len("</Relationships>"))
str = str & "<Relationship Id=""VBAPKZIP"" Type=""http://schemas.microsoft.com/office/2006/relationships/ui/extensibility"" Target=""customUI/customUI.xml""/></Relationships>"
bucs2 = str
ret = ToUTF8(bucs2, b)
If VBA.Len(ret) Then
MsgBox ret
Exit Sub
End If
ret = zip.AddFile("_rels/.rels", b)
If VBA.Len(ret) Then
MsgBox ret
Exit Sub
End If
End If
'添加customUI.xml
ret = zip.AddFile(CUSTOMUI_NAME, bUTF8)
If VBA.Len(ret) Then
MsgBox ret
Exit Sub
End If
Set zip = Nothing
End Sub
- 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 数组属性和方法
- Go 视图模板篇(四):上下文感知与 XSS 攻击
- 引入 Laravel Mix 管理前端资源
- Go 视图模板篇(三):参数、管道和函数调用
- 基于独立的 Laravel Eloquent 组件编写 ORM 模型类
- 漫画:什么是 “跳表” ?
- JAVA | Guava EventBus 使用 发布/订阅模式
- Go | Gin 解决跨域问题跨域配置
- Go | Go 语言打包静态文件以及如何与Gin一起使用Go-bindata
- 解决SpringBoot jar包中的文件读取问题
- 记一次HEX和RGB互换算法的思考及应用
- beego 优雅重启
- 电话号码的字母组合
- tee命令
- split命令
- 二叉树的最小深度