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

测试中

要获取这个站点的 开奖号码（时时乐）

http://video.shishicai.cn/Assist/BonusVideo.aspx?lt=4&isTransfer=ok

··自动获取网页内容并更新到EXCEL。。。

如何实现。。。

精华贴里的说明

1.  XMLHTTP对象，速度不错，受网页源代码改变影响，但是处理网页源文件最方便自由。

这个站点网页源码应该不会常变，能用第一种方法解决就好···

····

我不知道如何分析网页源码，因为我没找到调用的地方，SWF开奖调用就看到。。

请老师们帮忙哦··谢谢

最佳答案

月排行榜 / 总排行榜

1970-1-1 08:00

跳转到最佳答案楼层

测试中

照搬老师的开头··

Option Explicit

Private Sub CommandButton1_Click()

Dim IE As Object
'Dim IE As MSXML2.XMLHTTP
Dim arr() As String
Dim brr() As String
Dim i As Long
Dim k As Long
Dim t1 As Integer
Dim t2 As Integer
Dim t3 As Integer
Dim t4 As Integer

Cells.Clear

'Set IE = New MSXML2.XMLHTTP
Set IE = CreateObject("Msxml2.XMLHTTP")
IE.Open "GET","http://video.shishicai.cn/Assist/BonusVideo.aspx?lt=4&isTransfer=ok", False
IE.send ""

后面的不会了···

End Sub

风彩依然

路过看目的地

我为金币狂

路过看目的地

amulee

看了下网页源代码，貌似数据加密了。还没看出来怎么调用数据的，再研究研究。

knifefox

Sub test()
    Dim Arr, Arr1(), temp
    Dim i As Long
    With CreateObject("Microsoft.XMLHTTP")
        .Open "get", "http://soft.shishicai.cn/Assist/BonusRecent.aspx?lt=4&d=6cf73a209fd54230c52a66ea8a40634b", 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

amulee

原来在这里啊

http://soft.shishicai.cn/Assist/BonusRecent.aspx?lt=4&d=6cf73a209fd54230c52a66ea8a40634b

zsd5237

学习[em02][em02]

测试中

QUOTE:

以下是引用amulee在2009-11-12 15:14:00的发言：

原来在这里啊

http://soft.shishicai.cn/Assist/BonusRecent.aspx?lt=4&d=6cf73a209fd54230c52a66ea8a40634b

这个连接我是看到了。。

但我在IE打开看到空白，所以没多想呀···

测试中

呵呵 一会有空的时候再测试一下代码···

谢谢knifefox 老师