错误消息[object Object]

Question

这是我的第一个问题......

从Excel vba运行以下代码时，我得到 - 来自网站[object Object]的消息

可以请某人帮忙寻找解决方案

Sub SearchCont()

Dim objIE1 As Object
Set objIE1 = CreateObject("INTERNETEXPLORER.APPLICATION")
objIE1.navigate 
("http://www.israports.co.il/he/TaskYam/Pages/ContainerStatus.aspx")
objIE1.Visible = True
Do
DoEvents
Loop Until objIE1.readyState = 4
objIE1.document.getElementById("ports").Value = "2"
Do
DoEvents
Loop Until objIE1.readyState = 4
objIE1.document.getElementById("number").Value = "ADMU4111809"
Dim aaa As HTMLInputElement
For Each aaa In objIE1.document.getElementsByTagName("input")
If aaa.Value = "חפש" Then Exit For
    Next
aaa.Click

End Sub

谢谢:)