如何在 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