Office 2013中的XML声明

Bra*_*lio 4 xml excel vba ms-office office-2013

我有以下VBA代码使用Office 2010处理XML:

Public xmlDOM As DOMDocument

Public Sub setXML(xmlFileName As String)

    Set xmlDOM = CreateObject("MSXML.DOMDocument")
    xmlDOM.async = False
    xmlDOM.Load xmlFileName

End Sub
Run Code Online (Sandbox Code Playgroud)

OBS:有一个Microsoft XML,v6.0的参考集

但是,如果我在Office 2013上打开相同的代码,我得到一个错误

Public xmlDOM As DOMDocument
Run Code Online (Sandbox Code Playgroud)

未声明但仍有对Microsoft XML,v6.0集的引用.

如果我改变

Public xmlDOM As DOMDocument
Run Code Online (Sandbox Code Playgroud)

Public xmlDOM As MSXML.DOMDocument60
Run Code Online (Sandbox Code Playgroud)

编译器接受但运行代码我将收到错误

Set xmlDOM = CreateObject("MSXML.DOMDocument") 
Run Code Online (Sandbox Code Playgroud)

即使我改变它

Set xmlDOM = CreateObject("MSXML2.DOMDocument60")
Run Code Online (Sandbox Code Playgroud)

OBS:在Office 2013中有一个参考集Microsoft XML,v6.0

到底是怎么回事?

Ste*_*oky 8

更换

Public xmlDOM As DOMDocument
Run Code Online (Sandbox Code Playgroud)

Public xmlDOM As MSXML2.DOMDocument60
Run Code Online (Sandbox Code Playgroud)

Set xmlDOM = CreateObject("MSXML.DOMDocument")
Run Code Online (Sandbox Code Playgroud)

Set xmlDOM = New MSXML2.DOMDocument60
Run Code Online (Sandbox Code Playgroud)