Excel VBA修改成自动的 代码如下

Excel VBA修改成自动的 代码如下

Private Sub CommandButton2_Click
()

    Dim s() As String, i As Long
 
if sheets("大圣").range("GY168")="错"  then
 
    With CreateObject("MSXML2.XMLHTTP.3.0")

        .Open "get", " 
http://data.shishicai.cn/cqssc/haoma/down/
", False

        .setRequestHeader "If-Modified-Since", Format(Now, "[$-F800]dddd, mmmm dd, yyyy") & " GMT"

        .send

        s = Filter(Split(.responsetext, "},{"), "BonusNumberString")

    End With

    For i = 0 To 118

         s(i) = Right(s(i), 100)

    Next

    s(119) = Left(s(119), 100)

    Worksheets("重庆数据").[a1].Resize(UBound(s) + 1) = WorksheetFunction.Transpose(s)


With CreateObject("MSXML2.XMLHTTP.3.0")

        .Open "get", " 
http://video.shishicai.cn/haoma/cqssc/list/2011-07-29.aspx
", False

        .setRequestHeader "If-Modified-Since", Format(Now, "[$-F800]dddd, mmmm dd, yyyy") & " GMT"

        .send

        s = Filter(Split(.responsetext, "},{"), "BonusNumberString")

    End With

    For i = 0 To 118

         s(i) = Right(s(i), 100)

    Next

    s(119) = Left(s(119), 100)

    Worksheets("数据").[a1].Resize(UBound(s) + 1) = WorksheetFunction.Transpose(s)
 end if

   Application.OnTime Now + TimeValue("00:01:30"), "Sub CommandButton2_Click"  
End Sub