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

蓝天630902 · 发表于 2012-5-30 10:42

本帖最后由蓝天630902 于 2012-9-14 06:30 编辑

Sub 关闭讨厌的家伙()
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 + 8 '留言系统比较讨厌，没办法，再等待5秒钟
DoEvents
Loop
.Document.All.tags("div")(4).Click '关闭“右边”的讨厌的家伙
.Document.All.tags("div")(27).Click '关闭“中间”的讨厌的家伙
.Document.All.tags("div")(37).Click '关闭“左边”的讨厌的家伙
End With
End Sub

复制代码

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

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

蓝天630902 · 发表于 2012-5-30 10:43

神奇啊！
“可是，那个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 · 发表于 2012-5-30 10:44

本帖最后由蓝天630902 于 2012-9-13 19:03 编辑

一个一个地找，岂不小看了ｖｂａ？我们有更一般的办法：

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 · 发表于 2012-5-30 10:45

本帖最后由蓝天630902 于 2012-6-8 03:18 编辑

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

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 · 发表于 2012-5-30 10:46

有点晕 “晕是正常的。你不晕，那是因为你是天才。”，前面是“ｄｉｖ“，现在又来一个什么“ａ”，到底什么时候用“ａ”，什么时候用“ｄｉｖ”？我跟你说：“我也不知道！”。
要弄清楚这个问题，还是先下载一个“武器”: 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 · 发表于 2012-5-30 10:47

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

    <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 · 发表于 2012-5-30 14:08

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 · 发表于 2012-5-30 20:33

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

lzqlaj · 发表于 2012-5-30 20:42

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

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

jiminyanyan · 发表于 2012-5-31 06:48

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

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

		自动登录	找回密码
密码			免费注册

[分享] 第一辑、网页：点击标签，翻页

评分