html - 从网站下载时使用 VBA 复制下载按钮

Question

我正在尝试从我可以访问的受密码保护的网站下载几个表格，并使用 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>

任何建议/帮助将不胜感激。

标签： htmlexcelvbainternet-explorer