在 Internet Explorer 中单击 link
Click link in Internet Explorer
我有一个宏可以用来登录网站并验证我自己,现在我只需要添加一个部分来单击一个按钮(这将为我下载一个 .csv)。
登录代码如下:
Sub WebLogin()
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "www.MYSITE.com"
Do Until .ReadyState = 4
DoEvents
Loop
.document.all.Item("edit-name").Value = "MY EMAIL"
.document.all.Item("edit-pass").Value = "MY PASSWORD"
.document.forms(0).submit
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
End With
End Sub
所以,这很好用。登录后,这是我尝试按下的按钮的信息:
<input name="_qf_GPDetail_submit_csv" value="Export to CSV" type="submit" id="_qf_GPDetail_submit_csv" class="form-submit">
如果有人能帮我写一些代码来点击它,那就太棒了!
尝试:
IE.document.all("_qf_GPDetail_submit_csv").Click
This 是关于 Internet Explorer 自动化基础知识的非常好的教程。它让我有了一个初步的开始。
我有一个宏可以用来登录网站并验证我自己,现在我只需要添加一个部分来单击一个按钮(这将为我下载一个 .csv)。
登录代码如下:
Sub WebLogin()
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "www.MYSITE.com"
Do Until .ReadyState = 4
DoEvents
Loop
.document.all.Item("edit-name").Value = "MY EMAIL"
.document.all.Item("edit-pass").Value = "MY PASSWORD"
.document.forms(0).submit
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
End With
End Sub
所以,这很好用。登录后,这是我尝试按下的按钮的信息:
<input name="_qf_GPDetail_submit_csv" value="Export to CSV" type="submit" id="_qf_GPDetail_submit_csv" class="form-submit">
如果有人能帮我写一些代码来点击它,那就太棒了!
尝试:
IE.document.all("_qf_GPDetail_submit_csv").Click
This 是关于 Internet Explorer 自动化基础知识的非常好的教程。它让我有了一个初步的开始。