Function ExecuteIt() As MSXML2.DOMDocument Dim xmlhttp As MSXML2.xmlhttp
Dim servlet As String
Dim xmlbuffer As MSXML2.DOMDocument
Set xmlhttp = CreateObject("MSXML2.XMLHTTP.3.0")
Set xmlbuffer = New MSXML2.DOMDocument
servlet = getServletURL() prepareXMLbuffer xmlbuffer
XMLParseMatrices xmlbuffer
XMLParseSingles xmlbuffer
xmlhttp.Open "POST", servlet, False
xmlhttp.send xmlbufferThe error information showed “unspecified error”这个是什么原因?
Dim servlet As String
Dim xmlbuffer As MSXML2.DOMDocument
Set xmlhttp = CreateObject("MSXML2.XMLHTTP.3.0")
Set xmlbuffer = New MSXML2.DOMDocument
servlet = getServletURL() prepareXMLbuffer xmlbuffer
XMLParseMatrices xmlbuffer
XMLParseSingles xmlbuffer
xmlhttp.Open "POST", servlet, False
xmlhttp.send xmlbufferThe error information showed “unspecified error”这个是什么原因?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货