Excel VBA MSXML2.XMLHTTP无法在公司网络

时间:2016-11-18 11:00:17

标签: excel vba excel-vba xmlhttprequest msxml

我为客户端构建了一个宏,将一些数据发送到需要基本身份验证的外部URL(通过api在云数据库中获取/保存数据)。当我从家里(或基本上在任何地方)运行宏时,它运行得很好。但是,当我的客户端运行它(在他的公司网络中)时,他会在几秒钟后收到超时错误消息。关于原因可能是什么建议?提前谢谢。

这是我的代码:

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
With objHTTP
  .Open "POST", url, False
  .SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
  .SetRequestHeader "Content-Type", "application/json"
  .SetRequestHeader "Accept", "application/json"
  .SetRequestHeader "Authorization", "Basic " + Base64EncodeString(apiKey + ":" + apiPw)
  .Send (data)
End With

0 个答案:

没有答案