我在使用 CreateObject 时遇到问题。它一直告诉我这是一个未声明的元素。我需要添加一些具体的参考吗?
excel等的参考资料已经在里面了,不要从MSDN获得更多信息。
Public Function BBANtoBIC(ByVal BBAN As String) As String
Dim xd As Object
xd = CreateObject("msxml2.domdocument.4.0")
xd.Load("http://www.ibanbic.be/IBANBIC.asmx/BBANtoBIC?value=" & BBAN)
Do While xd.readyState <> 4
DoEvents()
Loop
BBANtoBIC = xd.Text
End Function