|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
新手代码我写了部分能力有限,目前VBA里第一次打开能手动更新,之后就不行了,求助能每分钟自动更新,谢谢!如能每分钟保存最新数据更好!
Public Sub GetCount()
Dim strUrl As String
strUrl = "http://77tj.org/api/tencent/online"
Dim xmlHttp As Object
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
Dim s, ss, sj
With xmlHttp
.Open "Get", strUrl, False
.send
s = .responseText
Do While .readyState <> 4
DoEvents
Loop
'处理结果一段代码需要分组
Dim x() As String
x = Split(.responseText, "{""")
Dim arr()
ReDim arr(1 To UBound(x), 0 To 1)
Dim i As Long
For i = 1 To UBound(x)
arr(i, 0) = Split(Split(x(i), "onlinenumber"":")(1), ",""onlinechange")(0)
arr(i, 1) = Split(Split(x(i), "onlinetime"":""")(1), """,""onlinenumber")(0)
Next
End With
[a1:b1].Resize(UBound(arr)) = arr
End Sub
|
|