如何解决从网站下载时,使用VBA复制下载按钮
我正在尝试从一个我可以访问的受密码保护的网站下载多个表,并使用VBA到Excel中。我可以成功下载我需要的两个文件,但是卡在下面的两个文件中。我都希望使用VBA命令来提交/单击“下载按钮”,该命令将在Excel中打开文件。
Sub b1()
Dim url As String
Set ie = CreateObject("InternetExplorer.Application")
url = "https://www.horseracebase.com/index.php"
With ie
.Visible = True
.navigate url
Do Until .readyState = 4
DoEvents
Loop
.document.all.Item("Login").Value = "HRBSolly"
.document.all.Item("Password").Value = "NarulaFlorence181019"
.document.forms(4).submit
End With
url = "https://www.horseracebase.com/dailytrainers.php"
With ie
.Visible = True
.navigate url
Do Until .readyState = 4
DoEvents
Loop
.document.forms(4).submit
End With
End Sub
Sub b2()
Set ie = CreateObject("InternetExplorer.Application")
url = "https://www.horseracebase.com/horsebaseratings.php"
With ie
.Visible = True
.navigate url
Do Until .readyState = 4
DoEvents
Loop
.document.forms(5).submit
End With
End Sub
<table border=1><form action='excelresults.php' method='post'>
<tr><td>Include N/R <input type=checkbox name=includenr value=1><br>
<input type=hidden name='user' value=28321><input type=hidden name='racedate' value='2020-8-19'>
<input type=submit class='downloadbutton' value='XLS'></form></td>
<td><form action='excelresults.php' method='post'><input type=hidden name='csv' value=1>
Include N/R <input type=checkbox name=includenr value=1><br>
<input type=hidden name='user' value=28321><input type=hidden name='racedate' value='2020-8-19'>
<input type=submit class='csvbutton' value='CSV'></form></td></tr></table>
<a href=horsebaseratings.php>Start Again</a><br><br>
<table border=1><tr><td>
<p class=instruction13>Criteria in use. <b>Ratings Set - VDW</b></p><table border=1 bgcolor=cornsilk><tr><th class=instruction6>Rank</th></tr></table><table border=1 bgcolor=cornsilk><tr><td class=instruction6><b>Clear Top</b></td></tr></table></td><td valign=top>
<table border=1><tr><th class=breakdown122 colspan=2>Download</th></tr>
<tr><td title='Download to excel'><form action='horsebaseratingsexcel.php' method='post'><input type=hidden name=ratingspointsclear1 value=0>
<input type=hidden name=ratingspointsclear2 value=300><input type=hidden name=usecustomsettings value=128830>
<input type=hidden name=ratingsfromtop1 value=0><input type=hidden name=ratingsfromtop2 value=300>
<input type=hidden name=ratingsrankget value='100'>
<input type=hidden name=hcaptype value=1><input type=hidden name=formtype value=1><input type=hidden name='user' value=28321><input type=hidden name=tod value=1>
<input type=submit class='downloadbutton' value='XLS'></form></td>
任何建议/帮助将不胜感激。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。