Блог

Главная - Вопросы по программированию - Копирование кнопки загрузки с помощью VBA при загрузке с веб-сайта

Копирование кнопки загрузки с помощью VBA при загрузке с веб-сайта

#html #excel #vba #internet-explorer

#HTML #excel #vba #internet-explorer

Вопрос:

Я пытаюсь загрузить несколько таблиц с защищенного паролем веб-сайта, к которому у меня есть доступ, и в Excel с помощью VBA. Я могу успешно загрузить два, которые мне требуются, но застрял на двух ниже. Что я хотел бы в обоих случаях, так это команду 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>

Любые предложения / помощь будут высоко оценены.

Комментарии:

1. Не указывайте личные данные для входа в вопрос, а также можете ли вы указать, на какой элемент в html нужно нажать.

2. ie.navigate https://www.horseracebase.com/excelresults.php может инициировать загрузку.

3. Или попробуйте ie.document. Выбор запроса («form .downloadbutton»).нажмите

4. Спасибо за предложения. Я разместил данные для входа по ошибке, я редактировал свой вопрос и опубликовал перед удалением. Я изменил свои данные для входа, и теперь все отсортировано — вышеприведенное сработало — всем спасибо.

5. @Solly Из вашего последнего комментария кажется, что вы решили проблему. Вы можете опубликовать решение этой проблемы в качестве ответа и пометить его как принятый ответ. В будущем это может помочь другим членам сообщества в подобных проблемах. Спасибо за ваше понимание.