|
|
我想从excel 向IE 发送键击。控制IE ，具体讲是在IE的地址栏里输入“www.yahoo.com”，写了两个工程.都实现不了，请大家帮忙看看，谢谢。
代码1如下：
Sub xx()Dim RetVal
RetVal = Shell("C:\Program Files\Internet Explorer\Iexplore.exe", 1)
SendKeys "{TAB}", True
SendKeys "www.yahoo.com", True
SendKeys "{ENTER}", True
End Sub
代码2如下：
Sub aaa()Dim ie As Excel.Application
Set ie = CreateObject("Excel.Application")
ActiveWorkbook.FollowHyperlink Address:="file:///D:/软件库-D/tt.htm", _
NewWindow:=False, AddHistory:=True
Application.WindowState = xlNormal
SendKeys "{TAB}", True
SendKeys "www.yahoo.com", True
SendKeys "{ENTER}", True
ie.Visible = True
Application.Visible = True
End Sub |
|
置顶卡
