Макрос Excel не работает после обновления системы до Windows10 64-bit из 32-битной Windows8 - PullRequest
Новая
       30

Макрос Excel не работает после обновления системы до Windows10 64-bit из 32-битной Windows8

0 голосов
/ 17 января 2020

Я использую приведенный ниже код в 32-битной системе Windows8, и он работает нормально, но тот же код не работает в 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))

Я пытался установить msxml2.dll в системе, скопировав файл в оба "C: \ Windows \ System32 \" & "C: \ Windows \ SysWOW64 \". Но все еще проблема приходит.

Мне нужен альтернативный код выше для Windows10 64-битной системы.

...