如何解决如何在 VBA 中重命名 .xml 文件
我需要在VBA中编辑一个.xml文件,我喜欢保留原来的xml(ppp.xml)和新编辑的文件(我想叫pppnew.xml)分开,基本上不更新原文件.由于我是一个基本用户,所以我从以下代码开始:
Sub editxml()
Dim Obj As MSXML2.DOMDocument
Dim xmlpath As String
Set Obj = New DOMDocument
Obj.async = False
Obj.validateOnParse = False
xmlpath = "C:\Users\xxx\Desktop\ppp.xml"
Obj.SetProperty "SelectionNamespaces","xmlns:ns0='http://update.DocumentTypes.Schema.ppp.Xml'"
If Obj.Load(xmlpath) = True Then
MsgBox "File XML uploaded"
Else
MsgBox "File XML not uploaded"
Exit Sub
End If
'My code follows here
Obj.Save xmlpath
End sub
我尝试编辑以下代码行
SelectionNamespaces","xmlns:ns0='http://update.DocumentTypes.Schema.ppp.Xml'
把它改成
SelectionNamespaces","xmlns:ns0='http://pppnew.Xml'
解决方法
您实际上是在同一文件中保存您的修改
改变
Obj.Save xmlpath
到
new_xmlpath = "C:\Users\xxx\Desktop\new.xml"
Obj.Save new_xmlpath
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。