返回

快乐8图表

◆ 微信扫描二维码分享
◆ 手机QQ扫描二维码,点击右上角···分享到QQ好友或QQ空间
请拨打电话:4008017500

更多 关闭

求助大神帮忙一下!想要个一键更新50期快乐8表格这个代码不能更新了

兮洋夕夏

2023-12-18 13:12:23

Private Sub CommandButton1_Click()

Dim i, j, Arr

    Dim s() As String

    With CreateObject("MSXML2.XMLHTTP")

        .Open "GET", "https://kl8.17500.cn/data/kl81000.txt", False

        .Send

        s = Split(.responseText, Chr(10))

    End With

    List = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22)

    ReDim Arr(1 To UBound(s), 1 To 22)

    For i = 0 To UBound(s) - 1

        For j = 1 To 22

            Arr(i + 1, j) = Split(s(i), " ")(List(j - 1))

        Next j

    Next i

    With Cells(3, 1).Resize(UBound(s), 22)

'        .ClearContents

        .Value = Arr

    End With

End Sub

附件: 2658521
上一篇 下一篇

322

1