新浪行情接口用不了了

@大掌柜

Sub 市价_Click()
Dim rowCount As Integer
Dim url As String
Dim sTemp As String
Dim sCode As String
rowCount = ActiveSheet.Range("A65535").End(xlUp).Row '获取行数
url = "http://hq.sin...

把
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", url, False
.Send
sTemp = .responseText
End With

替换
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", url, False
.setRequestHeader "Referer", "finance.sina.com.cn"
.Send
sTemp = .responseText
End With