EXCEL查询网络数据失败,这是
分享个新浪没人会写的特别棒的例子!
Function code(ByVal s As String) As String
Dim b() As Byte, t() As String, temp As String
t = Split(s, "\u", , vbTextCompare)
For i = 0 To UBound(t)
If Len(t(i)) < 4 Then
code = code & t(i)
Else
ReDim b(1)
b(0) = Val("&H" & Right(t(i), 2))
b(1) = Val("&H" & Left(t(i), 2))
temp = ...全部
分享个新浪没人会写的特别棒的例子!
Function code(ByVal s As String) As String
Dim b() As Byte, t() As String, temp As String
t = Split(s, "\u", , vbTextCompare)
For i = 0 To UBound(t)
If Len(t(i)) < 4 Then
code = code & t(i)
Else
ReDim b(1)
b(0) = Val("&H" & Right(t(i), 2))
b(1) = Val("&H" & Left(t(i), 2))
temp = b
code = code & temp
End If
Next
End Function
Sub macro1()
Dim s() As String, arr(1000, 18) As String
With CreateObject("Microsoft。
XMLHTTP")
。Open "POST", " ", False
。send
s = Split(Replace(Replace(Replace(Split(Split(。Responsetext, "var data=[[")(1), "]]")(0), """", ""), "null", ""), "\uff1a", ":"), ",")
End With
s = Filter(Filter(s, "#", False), "[\", False)
For i = 0 To UBound(s)
If s(i) Like "*\u*" Then s(i) = code(s(i))
If i Mod 19 = 18 Then s(i) = Switch(s(i) = "-1]", "输", s(i) = "1]", "赢", s(i) = "-0。
5]", "输半", s(i) = "0。5]", "赢半", s(i) = "2]", "", s(i) = "0]", "", s(i) = "0", "")
s(i) = Replace(s(i), "\", "")
arr(i \ 19, i Mod 19) = s(i)
Next
[a2]。
Resize(1000, 19) = arr
For i = 2 To [a65536]。End(xlUp)。Row
Cells(i, 13)。Interior。ColorIndex = Choose(Cells(i, 14), 3, 5, 0)
ActiveSheet。
Hyperlinks。Add Anchor:=Cells(i, 5), Address:=" " & Cells(i, 5)。Text & "。html", TextToDisplay:="VS"
Next
[n:o]。
Delete
[a1]。
Resize(1, 17) = Split("比赛日期↓ 类型 主队 客队 详细地址 比赛状态 欧洲赔率主胜 欧洲赔率平局 欧洲赔率客胜 欧洲赔率(初盘)主胜 欧洲赔率(初盘)平局 欧洲赔率(初盘)客胜 比分 澳门亚洲盘主队 澳门亚洲盘盘口 澳门亚洲盘客队 澳门亚洲盘赢盘")
End Sub
。收起