У меня есть собственное решение для загрузки файла с веб-страницы и работает.
- ссылка (выбрать): Microsoft Internet Controls, библиотека объектов Microsoft HTML
пример моего кода
Dim htmlDoc As HTMLDocument ' global variable
Dim myHtmlElement As IHTMLElement 'global variable
Sub test()
Dim dominio As String
dominio = "your url"
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate dominio
'Do
'DoEvents
'Loop Until ie.readyState = READYSTATE_COMPLETE
Do While ie.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Set htmlDoc = ie.document
Call ie.document.getElementById("tag_id_username").setAttribute("value", "your username")
Call ie.document.getElementById("tag_id_password").setAttribute("value", "your password")
ie.document.getElementById("loginForm").Click 'button login
While ie.readyState <> READYSTATE_COMPLETE
DoEvents
Wend
Call ie.document.getElementById("link_document_download").Click
Do While ie.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Application.SendKeys "%{S}" ' download the file when is open the pop up
Set ie = Nothing
End Sub
Это решение требует, чтобы вы держали браузер открытым и сфокусированным, иначе application.SendKeys "{S}" не будет работать.
Если у вас нет тега id, вы можете использовать имя класса (Set element = ie.Document.querySelector(".classname")) ...
Этот файл находится в папке загрузки (по умолчанию).
Вы можете прочитать этот пост, как изменить путь ..
Как изменить путь к файлу рабочей книги в VBA?
Надеюсь, это поможет
РЕДАКТИРОВАТЬ ПОСТ ПОСЛЕ ВАШЕГО КОММЕНТАРИЯ
не забудьте добавить эту ссылку
Ниже приведен код, который я пробовал в вашей ссылке и "работает". С помощью этого кода вы можете написать в поле ввода имя пользователя - пароль и нажать кнопку для входа в свою учетную запись. После того, как мы должны написать следующий код, нажмите на загружаемый файл ...
Sub test()
Dim dominio, value As String
Dim myInput As Object
dominio = "https://www.steelbb.com"
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate dominio
Do While ie.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
For Each myInput In ie.document.getElementsByTagName("input") 'Cells
If myInput.Name = "username" Then
Call myInput.setAttribute("value", "write your username")
ElseIf myInput.Name = "password" Then
Call myInput.setAttribute("value", "write your password")
ElseIf myInput.Name = "doLogin" Then
'Application.Wait DateAdd("s", 1, Now)
Call myInput.Click
End If
Next myInput
'Add next code after login
Set ie = Nothing
End Sub
Второй РЕДАКТИРОВАТЬ
ЕСЛИ приведенный выше код работает для вас, добавьте этот код после комментария
'Добавить следующий код после входа в систему
'---------------------- скачать файл
'Add next code after login
Do While ie.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
For Each myInput In ie.document.getElementsByTagName("a")
If myInput.href = "#" And myInput.onclick = "var dl_var = find_control('download'); dl_var.value = '1'; submitFormByPost(dl_var.form); dl_var.value = ''; return false;" Then
myInput.Click
' wait 2 seconds we give the time to load the file and only when there is the pop up we can click save button
Application.Wait DateAdd("s", 2, Now)
' download the file when is open the pop up
Application.SendKeys "%{S}"
Exit For
End If
Next myInput
Set ie = Nothing
End Sub
Я попробовал этот код с вашей входной информацией, присутствующей в вашем сообщении
В ПОЧТУ
Информация об элементе проверки на веб-странице выглядит следующим образом:
input type = "hidden" name = "download" value = ""
a href = "#" onclick = "var dl_var = find_control ('download');
dl_var.value = '1'; submitFormByPost (dl_var.form); dl_var.value = '';
вернуть ложь; ">
скачать в электронную таблицу