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

787851791

xdd_sky 发表于 2013-6-17 14:14
在VBE窗口点击工具-引用 勾选microsoft internet controls  点击确定就不会报错了。。

1. Sub test()
   
2.     Dim ie As New InternetExplorer
   
3.   
   
4.    
   
5.     'Set ie = CreateObject("InternetExplorer.Application")    '创建一个IE对象
   
6.     With ie
   
7.         .Visible = False    '显示它
   
8.         .navigate "http://list.tmall.com//search_product.htm?q=%B4%EF%BF%CB%C4%FE+20&type=p&style=&cat=all" '加载某个页面
   
9.         Do Until .ReadyState = 4    '等待页面加载完毕
   
10.             DoEvents
    
11.         Loop
    
12.         Set dmt = .document    '将IE浏览器加载的页面文档，赋予dmt变量
    
13.     End With
    
14.    
    
15.     Set div1 = dmt.all("J_Itemlist") '获取数据表所在的div1标签
    
16.    
    
17.     Application.CutCopyMode = False
    
18. End Sub

复制代码

第15行报类型不匹配 怎么回事啊

xdd_sky

787851791 发表于 2013-6-17 14:41
第15行报类型不匹配 怎么回事啊

。。。。在我上面没报错啊。。。

xdd_sky

787851791 发表于 2013-6-17 14:41
第15行报类型不匹配 怎么回事啊

你是不是在代码前面定义了div1的类型  如果你在前面定义div1的类型不是object  那就会出现报错 类型不匹配。。

787851791

xdd_sky 发表于 2013-6-17 16:11
你是不是在代码前面定义了div1的类型  如果你在前面定义div1的类型不是object  那就会出现报错 类型不匹配 ...

是浏览器的原因 ie9，ie10里div标签id是J_ItemList  ie8是J_Itemlist  然后div的文本innerText多了很多换行 什么情况 原来在ie8里直接是一行空格隔开的字符串 现在是好几行啊