[已解决]自动获取网页内容并更新到EXCEL

测试中

老师好。。。

提示下标越界···

我按F8单步测试 到了这里后就弹出对话框了··

temp = Split(.responsetext, "<td>开奖号码</td>")(1)

knifefox

数据表网址是动态的加一步吧

Sub test()
    Dim Arr, Arr1(), temp
    Dim i As Long
    With CreateObject("Microsoft.XMLHTTP")
        .Open "get", "http://video.shishicai.cn/Assist/BonusVideo.aspx?lt=4&isTransfer=ok", False
        .send
        temp = Split(Split(.responsetext, "iframeBonusRecent"" src=""")(1), """ style=""")(0)
        .Open "get", temp, False
        .send
        temp = Split(.responsetext, "<td>开奖号码</td>")(1)
    End With
    Arr = Split(temp, "<td>")
    For i = 0 To UBound(Arr) - 1
        ReDim Preserve Arr1(0 To 1, 0 To i \ 2)
        Arr1(i Mod 2, i \ 2) = Split(Arr(i + 1), "</td>")(0)
    Next
    [A1].Resize(UBound(Arr1, 2), 2) = Application.WorksheetFunction.Transpose(Arr1)
End Sub

测试中

能获取了···谢谢···

跟站点的一样了。最新一期在第一行···

aeetes

提示下标越界··· 怎么解决的呀？？

jimeo555

版主好，这个程序一般的网页内容都能读取吗

jimeo555

knifefox 发表于 2009-11-12 14:53
Sub test()&nbsp;&nbsp;&nbsp; Dim Arr, Arr1(), temp&nbsp;&nbsp;&nbsp; Dim i As Long&nbsp;&nbsp;&nbsp; ...

版主好，想问下，这个程序一般网页内容都能读取吗，能否请版主做个读取网页信息的软件，可付费

荠菜

下标越界，怎么处理啊？~

yaoxuhuijsz

kkk

hetianjun888

学习了