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

hwc2ycy · 发表于 2013-6-17 15:04

Sub test()
Dim ie As New InternetExplorer
Dim dmt As Object
Dim a As Object
Dim arr()
Dim i As Long
With ie
.Visible = False '显示它
.navigate "http://list.tmall.com//search_product.htm?q=%B4%EF%BF%CB%C4%FE+20&type=p&style=&cat=all" '加载某个页面
Do Until .ReadyState = 4 '等待页面加载完毕
DoEvents
Loop
Set dmt = .Document '将IE浏览器加载的页面文档，赋予dmt变量
Set a = dmt.all("J_ItemList")
Stop
End With
Application.CutCopyMode = False
End Sub

复制代码

hwc2ycy · 发表于 2013-6-17 15:06

大小写的关系。
就是你原来的代码，换上查到的标签值就成了。

hwc2ycy · 发表于 2013-6-17 15:06

Sub test2()
Dim ie As New InternetExplorer
'Set ie = CreateObject("InternetExplorer.Application") '创建一个IE对象
With ie
.Visible = False '显示它
.navigate "http://list.tmall.com//search_product.htm?q=%B4%EF%BF%CB%C4%FE+20&type=p&style=&cat=all" '加载某个页面
Do Until .ReadyState = 4 '等待页面加载完毕
DoEvents
Loop
Set dmt = .Document '将IE浏览器加载的页面文档，赋予dmt变量
End With
Set div1 = dmt.all("J_ItemList") '获取数据表所在的div1标签
Stop
Application.CutCopyMode = False
End Sub

复制代码

暂停后你看本地窗口。

787851791 · 发表于 2013-6-17 15:14

hwc2ycy 发表于 2013-6-17 15:06
暂停后你看本地窗口。

太谢谢了哎没注意到大小写不对

hwc2ycy · 发表于 2013-6-17 15:15

没想到微软有时也会讲这套。

787851791 · 发表于 2013-6-17 15:20

hwc2ycy 发表于 2013-6-17 15:15
没想到微软有时也会讲这套。

再问一个小小的问题我改了之后插入到excel的数据随着字数的增加现在撑大了原来就是向右填充格式不会变的

hwc2ycy · 发表于 2013-6-17 15:22

填充也有参数吧，你看看AUTOFILL方法的说明，第2个参数是TYPE.

luckfreeman · 发表于 2013-7-11 23:29

请问是怎么解决的，哪里出了大小写的问题，没看出来。

我也出了类似问题，用win7+IE9, IE.doument 报错，找不出原因。

还有一个问题是，如何最大化IE，不要 IE.FullScreen = True那种效果。
就是最大化那样的。

PS：引用已经加了。

多谢~

luckfreeman · 发表于 2013-7-12 00:05

看到大小写的问题里，是指“J_ItemList”里的 “L” 吧。
我遇到的问题好像不是这种。

运行到 Do Until .ReadyState = 4 就出错，并且还没定义有 .document

麻烦帮忙看看，多谢

787851791 · 发表于 2013-7-17 14:12

luckfreeman 发表于 2013-7-11 23:29
请问是怎么解决的，哪里出了大小写的问题，没看出来。

我也出了类似问题，用win7+IE9, IE.doument 报错 ...

好久没上啊才看到关于我的标题提的错误是由于没有添加引用造成的不过对我不是主要影响

		自动登录	找回密码
密码			注册