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

蓝天630902

cumulonimbus 发表于 2012-9-13 20:14
但是，网页页面的源码里面，有一个iframe行内框架，这个框架的src（地址）为：“/ShareSubjectList/trade ...

Sub 更一般的办法()
  With CreateObject("InternetExplorer.Application")
      .Visible = True
      .navigate "http://www.tjcae.com/ShareSubjectList/tradePublicInfo.jsp"
        Do Until .readyState = 4
            DoEvents
        Loop
       Set r = .document.All.tags("input")
       For i = 0 To r.Length - 1
       Cells(i + 1, 1) = i
       Cells(i + 1, 2) = r(i).innerText
       Next i
   End With
End Sub

cumulonimbus

看了你那个“关闭讨厌家伙”的程序，非常困惑
        .document.All.tags("div")(4).Click '关闭“右边”的讨厌的家伙
        .document.All.tags("div")(27).Click '关闭“中间”的讨厌的家伙
        .document.All.tags("div")(37).Click '关闭“左边”的讨厌的家伙
DIV标签有非常多，你是如何迅速判断出它的关闭标签是在4，27，37，我昨天找了一晚上也没有找到？谢谢你的热心解答。

蓝天630902

cumulonimbus 发表于 2012-9-14 09:25
看了你那个“关闭讨厌家伙”的程序，非常困惑
        .document.All.tags("div")(4).Click '关闭“右边” ...

你可以看看：
http://club.excelhome.net/forum. ... 808&pid=6304149

cumulonimbus

蓝天630902 发表于 2012-5-31 19:46
再比如说，http://club.excelhome.net/forum-2-1.html
如何点击“选择主题分类”选择框中的“求助、分享、 ...

奇怪，你这个代码不作用呀

引子玄

蓝天630902 发表于 2012-5-30 14:08
http://www.ddx.name/，在源代码中看不到“股票查询”
怎么办？我们知道，输入框可以是用input标签，
所以 ...

   .Document.All.tags("INPUT")(5).Value = "000825"           '输入“、、、”
  .Document.All.tags("INPUT")(6).Click                                 ‘点击“、、、”

yyw9230

蓝天630902 发表于 2012-5-30 10:44
一个一个地找，岂不小看了ｖｂａ？我们有更一般的办法：

Sub 更一般的办法()

请问蓝天老师：
我的网页数据总共有200多行，从网页源文件里看到也是，但是我只能用All.tags("div")的方法load出前6行的数据，用这个方法会有什么限制吗？

蓝天630902

yyw9230 发表于 2012-9-20 16:06
请问蓝天老师：
我的网页数据总共有200多行，从网页源文件里看到也是，但是我只能用All.tags("div")的方 ...

把源码发过来看看

yyw9230

蓝天630902 发表于 2012-9-20 16:20
把源码发过来看看

哎，抱歉，公司的数据，不允许外传的，我也很无奈。。

yyw9230

蓝天630902 发表于 2012-9-20 16:20
把源码发过来看看

蓝天老师：
问题已经解决，虽然用了Do Until ie.readyState = READYSTATE_COMPLETE
        DoEvents
Loop
但是实际网页并没有完全加载完，现在在load网页后加了1分钟的延时，已经可以load出正确的数据了
另外出现了一个新的问题：
我Load出来的数据有26行，但是我想Load出来的数据是200行，我在网页上尝试了下，网页的HTML中的元素是随着我的网页滚动而跟着发生变化的
我的想法是：模拟网页的scroll，然后再重新Load一次数据
不知道我这想法是否可行？可行的话，怎么来实现模拟scroll，搜了下论坛，没找到类似的介绍

蓝天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