大家帮忙看看怎么跳转多个ID

这是我的小号

如附件。

例如，TblID表里有2个ID，现在希望通过打开记录集，读取每个ID（事实上ID比较多，这里只列出两个而已），然后打开链接读取评分。

但是每次打开之后都只能读出第一个URL的评分：
http://detail.tmall.com/item.htm?_u=n1sscq85e5e0&id=27438632855#J_Reviews第二个ID就读不出来了，即
http://detail.tmall.com/item.htm?_u=n1sscq85e5e0&id=40176662913#J_Reviews
加粗之后总算去掉超链接了。

todaynew

描述问题

这是我的小号

todaynew 发表于 2014-10-25 20:01
描述问题

由于之前比较急，所以只能匆匆上传了附件，现在把问题补充完毕了，麻烦您看一下？

todaynew

Private Sub Command1_Click()
    Dim rst As New ADODB.Recordset
    Dim i As Long
    Dim k As String

    rst.Open "tblID", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rst.RecordCount
        'Sleep 1000
        k = GetData(rst.Fields("ID").Value)
        rst.MoveNext
        MsgBox "评分是：" & k
    Next i
    rst.Close
End Sub

这是我的小号

todaynew 发表于 2014-10-27 19:29
Private Sub Command1_Click()
    Dim rst As New ADODB.Recordset
    Dim i As Long

这跟我之前的写法没太大区别，问题在于，由于更改URL时需要先加载html页面才能读取。这是打开后第一次点击时先后弹出来的截屏：



但如果已经执行一次之后再单击按钮就会出现这种情况：


必须再单击一次才会出现这个：


我的意思是希望跳转时先加载完新页面，再进行读取。但不知道是因为缓存cookie之类还是别的原因，总之，没有一次读得准确的。

或者您可以用Debug.Print列印出来或者直接写入"TblID"表的第三个字段，就会发现第二个ID的评分根本无法显示出来的了。

todaynew

这是我的小号 发表于 2014-10-28 09:07
这跟我之前的写法没太大区别，问题在于，由于更改URL时需要先加载html页面才能读取。这是打开后第一次点 ...

鬼打架。
你不把msgbox放在循环里面，当然只跳一次。参见：http://www.office-cn.net/forum.php?mod=viewthread&tid=114237

这是我的小号

msgbox不是在For的循环里面吗？

这是我的小号

todaynew 发表于 2014-10-28 12:08
鬼打架。
你不把msgbox放在循环里面，当然只跳一次。参见：http://www.office-cn.net/forum.php?mod=vie ...

msgbox不是在For的循环里面吗？另外，您的这个示例我看过了，不知道是不是改版的原因，跳转后表里还是没有列出文章和链接。