[已解决]Dim ie As New InternetExplorer定义错误

787851791

在原来的excel里是好的，我拷到自己的excel代码里 就报用户定义类型未定义

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-17 15:06

1. Sub test2()
   
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.     Stop
    
17.     Application.CutCopyMode = False
    
18. End Sub

复制代码

暂停后你看本地窗口。

跳转到最佳答案楼层

hwc2ycy

要添加引用。

hwc2ycy

hwc2ycy

在VBE中，点工作，引用，选中Microsoft Internet Controls，打勾即可。

hwc2ycy

引用后，按F2可在对象浏览器中找到IE对象

787851791

hwc2ycy 发表于 2013-6-17 14:27
引用后，按F2可在对象浏览器中找到IE对象

我用了IE10后 这段代码就报错了 为什么呢

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

复制代码

hwc2ycy

1. Sub test()
   
2.     Dim ie As New InternetExplorer
   
3.     Dim dmt As Object
   
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.         Debug.Print dmt.all.Length
    
14.         For Each a In dmt.all
    
15.             Debug.Assert a.ID <> "J_Itemlist"
    
16.         Next
    
17.         
    
18.     End With
    
19.     Application.CutCopyMode = False
    
20. End Sub

复制代码

那个是ID吧，我这样测，确实找不到一个你指定的ID。
我记得以前好像也可以直接用DOCUMENT来找的。

你可以到这看看
http://www.w3school.com.cn/

hwc2ycy

看这块，DOM的。
http://www.w3school.com.cn/htmldom/dom_obj_document.asp

787851791

hwc2ycy 发表于 2013-6-17 14:54
那个是ID吧，我这样测，确实找不到一个你指定的ID。
我记得以前好像也可以直接用DOCUMENT来找的。

ie8可以找到。。。 能改好吗{:041:}

hwc2ycy

1. Sub test()
   
2.     Dim ie As New InternetExplorer
   
3.     Dim dmt As Object
   
4.     Dim a As Object
   
5.     Dim arr()
   
6.     Dim i As Long
   
7.    
   
8.     With ie
   
9.         .Visible = False    '显示它
   
10.         .navigate "http://list.tmall.com//search_product.htm?q=%B4%EF%BF%CB%C4%FE+20&type=p&style=&cat=all" '加载某个页面
    
11.         Do Until .ReadyState = 4    '等待页面加载完毕
    
12.             DoEvents
    
13.         Loop
    
14.         Set dmt = .Document    '将IE浏览器加载的页面文档，赋予dmt变量
    
15.         Debug.Print dmt.all.Length
    
16.         
    
17.         ReDim arr(1 To dmt.all.Length, 1 To 2)
    
18.         i = 1
    
19.         For Each a In dmt.all
    
20.             arr(i, 1) = a.ID
    
21.             arr(i, 2) = a.tagname
    
22.             i = i + 1
    
23.         Next
    
24.         Range("a1").Resize(UBound(arr), 2).Value = arr
    
25.     End With
    
26.     Application.CutCopyMode = False
    
27. End Sub

复制代码

确实有这个ID的。