在VBA中，对象MSXML2.XMLHTTP不'；不要每次都很好地加载javascript

我试图修复一个使用函数GetData的旧宏，该函数在响应字符串中检索整个页面。（此处无法提供真实的URL）

函数getDataFor（tva作为字符串）作为字符串 '早期绑定，设置工具-参考-Microsoft XML，v6.0 Dim oDOM作为新的MSXML2.DOMDocument30 作为IXMLDOMNodeList的Dim oNodeList Dim oReq作为MSXML2.XMLHTTP Set oReq=New MSXML2.XMLHTTP oReq.打开“获取”https://xxxxxxx.asp?name=&tva，错误 oReq.send 而oReq.readyState 4 温德 作为字符串的暗淡响应 将名称设置为字符串 Dim hasLoginBelspo作为字符串 response=oReq.responseText 将标记1变长 长度为2英寸 token1=InStr（响应，“company.name=”） token2=InStr（响应，“company.address=”） 出现错误时，转到继续 name=Mid（响应，令牌1+14，令牌2-（令牌1+16）） 错误转到0 token1=InStr（响应“parent.SetLoginInfo”） hasLoginBelspo=Replace（Mid（响应，标记1+28,5），“，”，“，”） 转到进程2 进行： name=“” hasLoginBelspo=“” 过程2： getDataFor=name&“，”和hasLoginBelspo 端函数 加载相关页面，并在javascript标记之间写入所需数据：

这是我在浏览器中粘贴URL时可以在源页面中找到的内容的副本

<script language="javascript">

var company=new Object();company.number="xxx";company.name="xxx";company.address="xxx";company.zip="xxx";company.city="xxx";parent.SetLoginInfo(company,false,true,"xxx","");

</script>

var company=新对象（）；公司编号=“xxx”；公司名称=“xxx”；公司地址=“xxx”；company.zip=“xxx”；company.city=“xxx”；parent.SetLoginInfo（company，false，true，“xxx”，“xxx”）；

所有被xxx替换的数据都是我需要的。在浏览器中，我得到了它，但在宏中，有时那些xxx数据是空的。这应该是因为用于加载javascript的库可能不是好的库（MSXML2）

您是否知道我需要更改什么，或者我应该使用什么样的库来确保捕获javascript数据

非常感谢

<script language="javascript">

var company=new Object();company.number="xxx";company.name="xxx";company.address="xxx";company.zip="xxx";company.city="xxx";parent.SetLoginInfo(company,false,true,"xxx","");

</script>