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

蓝天630902

1. Sub 关闭讨厌的家伙()
   
2.   With CreateObject("InternetExplorer.Application") '创建空ＩＥ
   
3.       .Visible = True 'ＩＥ可见
   
4.       .Navigate "http://de.yusuan.com/index.html" '导航到http://de.yusuan.com/index.html
   
5.         Do Until .ReadyState = 4 '等待ｉｅ加载完毕
   
6.             DoEvents
   
7.         Loop
   
8.         t1 = Timer
   
9.         Do Until Timer > t1 + 8 '留言系统比较讨厌，没办法，再等待5秒钟
   
10.             DoEvents
    
11.         Loop
    
12.         .Document.All.tags("div")(4).Click '关闭“右边”的讨厌的家伙
    
13.         .Document.All.tags("div")(27).Click '关闭“中间”的讨厌的家伙
    
14.         .Document.All.tags("div")(37).Click '关闭“左边”的讨厌的家伙
    
15.    End With
    
16. End Sub

复制代码

第二辑、网页：篡改、保留和屏蔽某些内容 ：http://club.excelhome.net/thread-917808-1-1.html

查找标签.rar  ,在12楼。
http://club.excelhome.net/forum.php?mod=attachment&aid=MTE3MDMyMXwwNmE3ODM2NnwxMzM4ODA0MDQ5fDE2NjY1MTV8ODc0NjA4

蓝天630902

神奇啊！
“可是，那个21、81什么的，是怎么来的？”
“我也不知道。”我告诉你。
我是用傻办法（主要是，本人比较傻），要是你有好办法，请你尽早告诉我，否则的话，我只好自认“别无他法”。
先找那个“81”试试看：

Sub 先找那个81试试看()
  With CreateObject("InternetExplorer.Application") '创建空ＩＥ
      .Visible = True 'ＩＥ可见
      .Navigate "http://de.yusuan.com/index.html" '导航到http://de.yusuan.com/index.html
        Do Until .ReadyState = 4 '等待ｉｅ加载完毕
            DoEvents
        Loop
        t1 = Timer
        Do Until Timer > t1 + 5 '留言系统比较讨厌，没办法，再等待5秒钟
            DoEvents
        Loop
        .Document.All.tags("div")(4).Click '关闭“右边”的讨厌的家伙
        .Document.All.tags("div")(27).Click '关闭“中间”的讨厌的家伙
        .Document.All.tags("div")(37).Click '关闭“左边”的讨厌的家伙
       Set r = .Document.All.tags("div") '创建ｄｉｖ对象，并赋给ｒ
       For i = 0 To r.Length - 1 'ｒ的长度
       If Trim(r(i).innerText) = "行业定额" Then '查找行业定额的ｉ
       Debug.Print i '在立即窗口显示ｉ
       End If
       Next i
   End With
End Sub

看看立即窗口，应该是81。

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

要是，我想点击右边“地区分类”中的那个“天津”，上面找不到他的“ｉ”，只好另想办法：

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("A")
       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

天津是696
所以，下面就可以点击天津：


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
        .Document.All.tags("a")(696).Click '
   End With
End 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

蓝天630902

有点晕 “晕是正常的。你不晕，那是因为你是天才。”，前面是“ｄｉｖ“，现在又来一个什么“ａ”，到底什么时候用“ａ”，什么时候用“ｄｉｖ”？我跟你说：“我也不知道！”。
要弄清楚这个问题，还是先下载一个“武器”: notepad++.exe
然后，用notepad++.exe　来看http://de.yusuan.com/index.html的源码“源文件”。
可以看到：

        <tr>
                <td bgcolor='#FFFFFF' width='75'><A href='page_class.asp?area=100006'>天津</A></td>
                <td bgcolor='#FFFFFF' width='75'><A href='page_class.asp?area=100007'>宁夏</A></td>
                <td bgcolor='#FFFFFF' width='75'><A href='page_class.asp?area=100008'>安徽</A></td>
        </tr>
解释一下：
ｔｒ，表示行，表格（table）的行，
ｔｄ，表示列，表格（table）的列，
Bgcolor，表示表格（table）的背景颜色，
#FFFFFF，表示白色，
Width，表示表格（table）的列宽，这里宽度为75，
ａ，表示锚，就是把“href”网址、和表格的内容锚入表格中，
ｈref，表示地址，
“天津”，表示ｔｄ的内容。

所以，找天津，就用“ａ”

蓝天630902

那前面为什么用“ｄｉｖ”？
还是看看源码：


          <div class="div_index_bodyL1">
            <div class="div_index_bodyL1_title_focus"><span id="focus_names">地区定额</span></div>
      <div id="de_list" onmouseover="chk_focus('de_list');" class="div_index_bodyL1_title" style="background: url(body_2.png) no-repeat;">地区定额</div>
      <div id="hy_list" onmouseover="chk_focus('hy_list');" class="div_index_bodyL1_title">行业定额</div>
      <div id="cl_list" onmouseover="chk_focus('cl_list');" class="div_index_bodyL1_title">材料查询</div>
      <div class="clear"></div>
</div>
看到吧，“行业定额”、“材料查询”是用“ｄｉｖ”来分区的，所以用“ｄｉｖ”了。
关于“ｄｉｖ”、“ａ”、“ｔｄ”什么的，可以去http://www.w3school.com.cn/tags/index.asp
看看，不再解释。

蓝天630902

http://www.ddx.name/，在源代码中看不到“股票查询”
怎么办？我们知道，输入框可以是用input标签，
所以，找一找input标签：

Sub 查找股票查询输入框()
  With CreateObject("InternetExplorer.Application")
      .Visible = True
      .Navigate "http://www.ddx.name/"
        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).Name
       Next i
   End With
End Sub

5        S_stockCode
6       

所以，可以用下面的代码试一试：


Sub 实时DDX查询()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://www.ddx.name/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .Document.All.tags("INPUT")(5).Value = "000825"
        .Document.All.tags("INPUT")(6).Click
    End With
End Sub

lzqlaj

好贴，学到很多知识。收藏了，继续关注。

lzqlaj

蓝天630902 发表于 2012-5-30 10:43
神奇啊！
“可是，那个21、81什么的，是怎么来的？”
“我也不知道。”我告诉你。

楼主的方法不用借助其他工具，很见功力。如果借助工具，用按键精灵9很容易得到。截个图传上来。

jiminyanyan

蓝天630902 发表于 2012-5-30 10:46
有点晕 “晕是正常的。你不晕，那是因为你是天才。”，前面是“ｄｉｖ“，现在又来一个什么“ａ”，到底什么 ...

<td bgcolor='#FFFFFF' width='75'><A href='page_class.asp?area=100006'>天津</A></td>
大侠,href能是电脑上的网页吗,怎么表示呀...