excel - 将系统从 Windows8 32 位更新到 Windows10 64 位后 Excel 宏不起作用

Question

我在 Windows8 32 位系统中使用了以下代码，它工作正常，但相同的代码在 Windows10 64 位系统中不起作用。

URL = "https://www.nseindia.com/live_market/dynaContent/live_watch/get_quote/GetQuote.jsp?symbol=" & scripID & Chr(38) & "illiquid=0" & Chr(38) & "smeFlag=0" & Chr(38) & "itpFlag=0"
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
xmlHttp.Open "GET", URL, False
xmlHttp.send    
sNo = InStr(1, xmlHttp.responseText, "id=" & Chr(34) & "responseDiv")
getNSEData = Trim(Mid(xmlHttp.responseText, sNo, InStr(sNo, xmlHttp.responseText, "/div>") - sNo))

我尝试通过在“C:\Windows\System32\”和“C:\Windows\SysWOW64\”中处理文件来在系统中安装 msxml2.dll。但是问题还是来了。

我想要 Windows10 64 位系统的上述代码的替代品。

标签： excelvbamsxml2