vb怎么向ie中的文本框填充内容

Sub web()
    IE As Object
   ThisWorkbook.FollowHyperlink "http://221.226.118.170:8080/app/jscesis/qualCheck/queryQualCheckPublic.ftl"
    Set IE = CreateObject("InternetExplorer.Application")
       With IE
                .Document.getElementById("span").Value = "**公司"    '填入查询内容
    End With
End Sub

是不是还需要设置时间。