网抓日期提示下标越界

雷雷爸

这是之前一位老师帮忙写的代码，一直都正常，可是最近突然显示下标越界，请问哪位老师能帮忙查看一下哪里问题吗？能帮忙修改一下吗

Sub 时间()
Set winhttp = CreateObject("winhttp.WinHttpRequest.5.1")
    URL = "https://sgm-m.jd.com/h5/"
    With winhttp
    .Open "GET", URL, False
    .send
    strtext = Split(Split(.responsetext, "timestamp"":")(1), "}")(0)
  Debug.Print VBA.DateAdd("s", Left(strtext, 10), #1/1/1970 8:00:00 AM#)
  Debug.Print VBA.DateAdd("s", Left(strtext, 10), #1/1/1970 8:00:00 AM#)& "." & Right(strtext, 3)
    End With
    Set winhttp = Nothing
End Sub

hlxue

我运行了下，没啥问题啊！

雷雷爸

hlxue 发表于 2024-5-19 16:35
我运行了下，没啥问题啊！

是的，好像这个接口又可以用了