[已解决]vba循环导入多个页面的数据到excel，急求

787851791

麻烦大家帮帮忙

最佳答案

月排行榜 / 总排行榜

xdd_sky

2013-6-16 22:20

上次没解答你的问题 你给了个最佳 。。。汗
我自己做了个  你那个写的太复杂了  调试太麻烦   你测试下。。。

跳转到最佳答案楼层

787851791

没人吗  兄弟们

787851791

来人哪

787851791

悬赏也没人来吗

无聊的疯子

美女你等着,我已经帮你叫了烟花了,他一会就来

787851791

无聊的疯子 发表于 2013-6-14 14:20
美女你等着,我已经帮你叫了烟花了,他一会就来

谢谢了 好像是这里有点问题 两次弹出的都是相同的数字 我在最后添加了msgbox（n） 测试的

1. Dim n As Integer
   
2. Dim storenum As String
   
3. For i = 0 To div1.Children.Length - 1 '遍历每个div2
   
4. zfc = Trim(div1.Children(i).innerText) '提取单个商品所有信息
   
5. storenum = InStr(1, zfc, "上元堂") '判断是否是上元堂宝贝
   
6. If storenum > 0 Then
   
7. n = i '获取最后一个出现的上元堂宝贝排行
   
8. 'Exit For
   
9. End If
   
10. Next
    
11. MsgBox (n)

复制代码

787851791

好像是由于ie没有关闭的原因吧

xdd_sky

上次没解答你的问题 你给了个最佳 。。。汗
我自己做了个  你那个写的太复杂了  调试太麻烦   你测试下。。。

787851791

xdd_sky 发表于 2013-6-16 22:20
上次没解答你的问题 你给了个最佳 。。。汗
我自己做了个  你那个写的太复杂了  调试太麻烦   你测试下。。 ...

不好意思 才看到 太感谢你了

787851791

xdd_sky 发表于 2013-6-16 22:20
上次没解答你的问题 你给了个最佳 。。。汗
我自己做了个  你那个写的太复杂了  调试太麻烦   你测试下。。 ...

金币给你了吗