如何重命名 VBA 中的 .xml 文件

Question

我需要在 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'

但它不起作用：代码更新了原始文件，我想保持原样。

Answer 1

您实际上是将修改保存在同一个文件中

改变

Obj.Save xmlpath

至

new_xmlpath = "C:\Users\xxx\Desktop\new.xml"
Obj.Save new_xmlpath

如何重命名 VBA 中的 .xml 文件

How to rename an .xml file in VBA

xml

vba

file-rename