Set xml = CreateObject("MSXML2.DOMDocument.4.0")
xml.async = False
If Not xml.loadXML(App.Path & "cd.xml") Then
MsgBox "Error Load XML file"
Exit Sub
End If
...全文
315打赏收藏
为什么这样不能打开一个XML文件,源码如下
Set xml = CreateObject("MSXML2.DOMDocument.4.0") xml.async = False If Not xml.loadXML(App.Path & "cd.xml") Then MsgBox "Error Load XML file" Exit Sub End If