我们是用EXCEL服务器开发程序,在VBA中调用MSXML2.XMLHTTP去访问网页,结果被提示病毒 ,造成程序无法正常运行
- id = ThisWorkbook.Sheets("参数").Range("C2").Value
- With CreateObject("MSXML2.XMLHTTP")
- .Open "GET", "http://81.*********/shipment/create?id=" & id, False
- .send
- MsgBox IIf(.Status = 200, "成功: " & .responseText, "失败: " & .Status & " " & .statusText)
复制代码
|
|
|
|
|
|
评论
直达楼层