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

引子玄

学习了～～

AVEL

这个要好好学习一下。
跟LIUCQA的一起收了。

引子玄

内容介绍得很详尽，仔细学习

蓝天630902

Sub 定位ExcelVBA程序开发_Excel_Home论坛()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .navigate "http://club.excelhome.net/forum-2-1.html"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        Debug.Print .Document.all.tags("a")(1).CloneNode
        Debug.Print .Document.all.tags("a")(1).href                '看起来，CloneNode和href差不多，其实是有差别的
        Debug.Print .Document.all.tags("a")(500).ScrollIntoView    '定位到第500个a元素（a标签）位置
        t1 = Timer
        Do Until Timer > t1 + 3                                    '这里等待3秒，是为了看看效果
            DoEvents
        Loop
        Debug.Print .Document.all.tags("a")(587).ScrollIntoView    '定位到第587个a元素（a标签）位置
    End With
End Sub

蓝天630902

下面的代码，要按 F8 才能看出效果：

Sub test()
    With CreateObject("InternetExplorer.Application")
        .navigate "http://club.excelhome.net/thread-874608-1-1.html"    '打开窗口
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .Visible = 1      '窗口可见
        .Left = -5        '左侧
        .Top = -25        '顶部
        .Height = 860     '高度
        .Width = 1035     '宽度
        .MenuBar = 0      '取消菜单栏
        .addressbar = 0   '取消地址栏
        .Toolbar = 0      '取消工具栏
        .StatusBar = 0    '取消状态栏
        .resizable = 1    '允许用户改变窗口大小
        .Height = 400     '高度
        .Width = 500      '宽度
        .Left = 300       '左侧
        .Top = 300        '顶部
        For i = 3 To 3
            Debug.Print "-----------------"
            Debug.Print i
            Debug.Print "-----------------"
            Debug.Print .Document.all.tags("a")(i).onclick
            Debug.Print "-----------------"
            Debug.Print .Document.all.tags("a")(i).ID
            Debug.Print "-----------------"
            Debug.Print .Document.all.tags("a")(i).onmouseover
            Debug.Print "-----------------"
            Debug.Print .Document.all.tags("a")(i).href
            Debug.Print "-----------------"
            Debug.Print .Document.all.tags("a")(i).Title
            Debug.Print "-----------------"
        Next i
        .Quit
    End With
End Sub

findingyuzi

蓝天老师功力深厚啊  跟着学习了

cumulonimbus

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

Sub 更一般的办法()

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
            DoEvents
        Loop
       Set r = .Document.All.tags("div")
       For i = 0 To r.Length – 1’ｄｉｖ标签的个数
       Cells(i + 1, 1) = i
       Cells(i + 1, 2) = r(i).innerText '把第ｉ个ｄｉｖ标签的内容写入第ｉ+1行，2列
       Next i
   End With
End Sub
运行到红色字段，无法运行下去，不支持该属性或方法。咋回事？

蓝天630902

cumulonimbus 发表于 2012-9-13 18:25
Sub 更一般的办法()
  With CreateObject("InternetExplorer.Application")
      .Visible = True

应该是没有问题

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
            DoEvents
        Loop
       Set r = .Document.All.tags("div")
       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

蓝天630902 发表于 2012-9-13 19:02
应该是没有问题

Sub 更一般的办法()

奇怪，现在没错了。
这个文章真好，希望更多的人看到。

cumulonimbus

蓝天630902 发表于 2012-5-31 18:37
也有不灵光的地方，比如说下面的网址：
http://www.tjcae.com/rtjsj/index.htm
但是，网页页面的源码里面 ...

但是，网页页面的源码里面，有一个iframe行内框架，这个框架的src（地址）为：“/ShareSubjectList/tradePublicInfo.jsp”也就是“http://www.tjcae.com/ShareSubjectList/tradePublicInfo.jsp”
用这个网址，按照上面的方法得出，“input”的“name”属性为“tradeDateInput”

Sub 天津文化艺术品交易所交易公开信息()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://www.tjcae.com/ShareSubjectList/tradePublicInfo.jsp"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .Document.All.tags("INPUT")(0).Value = "2012-05-28"
        .Document.All.tags("INPUT")(1).Click
    End With
End Sub
-----------------------------------------------
疑问：用这个网址只能搜到一个input，序号是0，哪来的序号为1的input呢？