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
是不是还需要设置时间。