《VBA实战精粹教材》技巧234中，VBA自动登录到网页运行中出现编译错误

老四123

输入一下VBA代码后运行，出现编译错误,并提醒“用户定义类型未定义”这是什么原因，请高手指点

Sub ceshi()
Dim ie As InternetExplorer
Dim doc As HTMLDocument
Dim elementCol As IHTMLElementCollection
Dim element As IHTMLElement
Set ie = CreateObject("internetexplore.applicition")
ie.navigate "http://www.dailydoseofexcel.com/wp-login.php"
ie.Visible = True
Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set doc = ie.document
Set elementCol = doc.getElementsByName("log")
elementCol.Item(0).Value = "youname"
Set element = doc.getElementById("user_pass")
element.Value = "youpassword"

doc.all("rememberme").Checked = 1
doc.getElementById("wp-submit").Click
Set element = Nothing
Set elementCol = Nothing
Set elementCol = Nothing
Set doc = Nothing
Set ie = Nothing

End Sub

ai55xin

我是菜鸟，但是看着里面这一句：Set elementCol = doc.getElementsByName("log")，引号里面为啥不是user_login，我看网页代码是这个呢，还有就是可能要在引用里面添加Microsoft Internet Controls；Microsoft HTML Object Library这两项

老四123

ai55xin 发表于 2015-12-29 11:01
我是菜鸟，但是看着里面这一句：Set elementCol = doc.getElementsByName("log")，引号里面为啥不是user_lo ...

谢谢指导，不过书上就是这样的，我按照书上的编写的，可是不能运行，不知道原因出在哪里

ai55xin

老四123 发表于 2015-12-29 20:56
谢谢指导，不过书上就是这样的，我按照书上的编写的，可是不能运行，不知道原因出在哪里

应该是在引用里面添加Microsoft Internet Controls；Microsoft HTML Object Library这两项就可以运行