Public Function openxml(filename As String) As script
Dim xmldoc As New DOMDocument'這里報錯。用戶定義型別未定義。這個怎么破啊
Set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.Load filename
Set xmlRoot = xmldoc.DocumentElement
For Each childItem In xmlRoot.ChildNodes
If childItem.BaseName = "SystemArea" Then
For Each area In childItem.ChildNodes
Debug.Print area.Attributes.getNamedItem("name").NodeValue
Next
End If
Next
End Function
uj5u.com熱心網友回復：
順便問問。CreateObject("Microsoft.XMLDOM")我要把一個node當作引數傳給另外一個函式。我怎么知道這個node的型別呢
uj5u.com熱心網友回復：
參考msxml6.dll：Microsoft XML, v6.0
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/155952.html
標籤：VBA
下一篇：仿騰訊扣扣界面 VB原始碼