没有网络如何做excel表格

1.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)) 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 。