Я обновил свою ОС с Windows10 с Windows8 , а также обновил MS-Excel с 2016 с 2013 .
Когда я запускаю код ниже, он выдает " Excel (не отвечает) " ошибка.
Любое решение ???
Dim URL As String
Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP.6.0")
URL = "https://www.nseindia.com/marketinfo/companyTracker/ajaxquote.jsp?symbol=ADANIPOWER&series=EQ"
xmlhttp.Open "GET", URL, False
xmlhttp.Send
valArray = Split(xmlhttp.ResponseText, ":")
Range("i5").Value = valArray(13)