第一辑、网页：点击标签，翻页

蓝天630902

yyw9230 发表于 2012-9-24 10:41
蓝天老师：
问题已经解决，虽然用了Do Until ie.readyState = READYSTATE_COMPLETE
        DoEvents

你看看，你的数据在什么"标签"里面，并且是“分布”在什么父标签里面，
现在就可以这样子做：
Set r = .document.All.tags("父标签")(n).All.tags("标签")
for i=0 to r.length -1
……………………
next i

yyw9230

蓝天630902 发表于 2012-9-24 11:02
你看看，你的数据在什么"标签"里面，并且是“分布”在什么父标签里面，
现在就可以这样子做：
Set r =  ...

在我没有滚动滚动条之前，我的数据就只有26行，当滚动之后，html里面的元素就更新了，会变得和新的一样，解释的好混乱，举个例子：
我总共要取A,B,C,D四个元素，由于页面大小的限制，只能看见A,B两个，而Html的元素也只有A和B,看不到C，D,但是我下翻一页后，页面里面变成了C和D， Html的元素也跟着变成了C和D,看不到A，B

蓝天630902

yyw9230 发表于 2012-9-24 11:39
在我没有滚动滚动条之前，我的数据就只有26行，当滚动之后，html里面的元素就更新了，会变得和新的一样， ...

换一下地址，运行下面这段代码看看：

Sub 读取标签属性及内容()
    [a1,I1] = Split("i,className,href,ID,innerText,tabIndex,tagName,Target,Title", ",")
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://club.excelhome.net/forum.php?mod=viewthread&tid=874608&page=6#pid6333111"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        Set r = .document.All
        For i = 0 To r.Length - 1
            Cells(i + 2, 1) = i
            Cells(i + 2, 2) = r(i).className          '对象的类。
            Cells(i + 2, 3) = r(i).href               '目标 URL 或锚点。
            Cells(i + 2, 4) = r(i).ID                 '标识对象的字符串。
            Cells(i + 2, 5) = r(i).innerText          '对象标签内的文本。
            Cells(i + 2, 6) = r(i).tabIndex           '对象的 Tab 顺序的索引。
            Cells(i + 2, 7) = r(i).tagName            '对象的标签名称。
            Cells(i + 2, 8) = r(i).Target             '目标内容要显示于哪个窗口或框架。
            Cells(i + 2, 9) = r(i).Title              '对象的咨询信息(工具提示)。
        Next i
    End With
End Sub

yyw9230

蓝天630902 发表于 2012-9-24 12:55
换一下地址，运行下面这段代码看看：

Sub 读取标签属性及内容()

运行了一下，只到26行，抓到的应该是全部，我看了源文件，超出26行的数据是找不到的，当翻页或者滚动之后，才能在源文件中看到下面的

蓝天630902

yyw9230 发表于 2012-9-24 13:26
运行了一下，只到26行，抓到的应该是全部，我看了源文件，超出26行的数据是找不到的，当翻页或者滚动之后 ...

那就翻页吧

yyw9230

蓝天630902 发表于 2012-9-24 13:38
那就翻页吧

o(∩_∩)o 哈哈，谢了，一直在想滚动，没去考虑翻页，昨天研究了下，通过翻页解决了

赵莲

顶上去分享！

cumulonimbus

蓝天630902 发表于 2012-5-30 10:45
要是，我想点击右边“地区分类”中的那个“天津”，上面找不到他的“ｉ”，只好另想办法：

Sub 找那个天 ...

Sub 点击那津()
With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "http://de.yusuan.com/index.html"
    Do Until .ReadyState = 4
        DoEvents
    Loop
    While .ReadyState <> 4 Or .Busy
        DoEvents
    Wend
    Set r = .Document.All.tags("td")
    For i = 0 To r.Length - 1
        If r(i).All.tags("a")(0).innerText = "天津" Then        '保证是右边的“天津”，而不是上面的“天津”
            r(i).All.tags("a")(0).Click
        Exit For
        End If
    Next i
End With
End Sub

运行到红色部份运行不下去了，提示对像变量或WITH块变量未设置，奇怪，好像以前是可以运行的。是网站改版了吗？

蓝天630902

Sub 点击那天津()
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://de.yusuan.com/index.html"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        t1 = Timer
        Do Until Timer > t1 + 5    '这里等5秒钟，主要是右下角的东东出现
            DoEvents
        Loop
        Set r = .Document.All.tags("table")
        For i = 0 To r.Length - 1
            If r(i).classname = "tbs_list" Then
                Set r1 = r(i).All.tags("td")
                For j = 0 To r.Length - 1
                    If r1(j).All.tags("a")(0).innerText = "天津" Then    '保证是右边的“天津”，而不是上面的“天津”
                        r1(j).All.tags("a")(0).Click
                        GoTo 1
                    End If
                Next j
            End If
        Next i
1:
    End With
End Sub

xd0718

版主，你真是太厉害了。您是我的偶像，希望您能帮小弟看一下我的求助贴/