伦敦奥运会奖牌榜_2012

蓝天630902

伦敦奥运会奖牌榜_2012:

Sub 伦敦奥运会奖牌榜_2012()
    Dim p As Shape
    Set My = Worksheets(1)
    For Each p In My.Shapes
        If Not Application.Intersect(p.TopLeftCell, Cells) Is Nothing Then p.Delete
    Next
    Cells.Clear
    On Error Resume Next
    [a2:f2] = Split("排名,国家/地区,金牌,银牌,铜牌,总数", ",")
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://match.2012.sina.com.cn/medals/?c=spr_aoyun_sq_baidux_homepage_t00002"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        Set r = .Document.All.tags("table")(0).All.tags("tr")
        k = 2
        For i = 1 To r.Length - 1 Step 4
            k = k + 1
            For j = 0 To r(i).Cells.Length - 1
                Cells(k, j + 1) = r(i).Cells(j).innerText
            Next j
            Cells(k, "g").RowHeight = 13.5
            Cells(k, "g").ColumnWidth = 2.25
            ML = Cells(k, "g").Left
            MT = Cells(k, "g").Top
            MW = Cells(k, "g").Width
            MH = Cells(k, "g").Height
            Cells(k, "g").Select
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
            Selection.ShapeRange.Fill.UserPicture r(i).All.tags("img")(0).src
            Selection.ShapeRange.Line.Visible = False
        Next
        Selection.ShapeRange.Delete
        .Quit
    End With
    MsgBox "ok"
End Sub

slywtj123

谢谢分享！

facklaoer

{:soso_e179:}

cumulonimbus

奇怪，我用你的程序在这网站上，发现国旗的标签是TD，而不是IMG。蓝天老师，这是怎么回事？

蓝天630902

cumulonimbus 发表于 2012-9-19 12:19
奇怪，我用你的程序在这网站上，发现国旗的标签是TD，而不是IMG。蓝天老师，这是怎么回事？

    <td class="w02"><img src="http://www.sinaimg.cn/ty/08ay/data/logo/new/CHN.jpg" width="22" alt="中国" />
  <a href="http://match.2012.sina.com.cn/medals/country/CHN" target="_blank">中国</a></td>

td ，是 img 和 a 的父标签，

cumulonimbus

蓝天老师，我怎么找都找不到这4个控件的标签：“回复”、“发贴”、“写好了，发布”及空白文本框的各种操作控件，这要怎么找呢？

蓝天630902

cumulonimbus 发表于 2012-9-19 14:08
蓝天老师，我怎么找都找不到这4个控件的标签：“回复”、“发贴”、“写好了，发布”及空白文本框的各种操作 ...

Sub 一般的办法()
    On Error Resume Next
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "http://club.excelhome.net/thread-901835-1-1.html"
        Do Until .readyState = 4
            DoEvents
        Loop
        .document.getElementByid("post_reply").Click    '回复
        '.document.getElementByid("newspecial").Click   '发新帖
    End With
End Sub

引子玄

模拟IE浏览器操作——CLICK“点击”

引子玄

　　语法：
　　obj= document . getElementById ( sID )
　　参数：
　　sID :　必选项。字符串(String)。
　　返回值：
　　obj:　对象(object)。

cumulonimbus

蓝天630902 发表于 2012-9-19 14:24
Sub 一般的办法()
    On Error Resume Next
    With CreateObject("InternetExplorer.Application")
...

蓝天老师，这几个CLASSNAME、标签你是如何找到的？根据英文的意思查找吗？这个难度有点大，英文与按钮的表面意思差有点大哈。