VBA Selenium - Click Download-Button

Option Explicit
Public objEdge As Selenium.EdgeDriver
Public Sub MBI_Download()
Dim objIE As Object
Dim oInput As Object
Dim htmlDoc As Object
Dim htmlInput As Object
Dim htmlColl As Object
Dim adresse As String
Dim URL1 As String
Dim URL2 As String
Dim URL3 As String
Dim sID1 As String
Dim sID2 As String
Dim vonDatum As String
Dim bisDatum As String
Dim i As Integer
Dim win As Object
Set objEdge = CreateObject("Selenium.EdgeDriver")
' Initialer Aufruf + Login
With objEdge
.Get "https://www.mbi-metalsource.com/"
.Wait 3000
.FindElementByName("username").SendKeys "max@mustermnann.de"
.FindElementByName("password").SendKeys "12345678."
For Each oInput In .FindElementsByTag("input")
If oInput.Value = "Login" Then oInput.Click
Next
End With
' Datum von/bis für URL (40 Tage zurück bis akt. Datum)
vonDatum = Format(Now() - 40, "dd.mm.yyyy")
bisDatum = Format(Now(), "dd.mm.yyyy")
' Variablen für Zusammenbasteln der Folgeseiten definieren
URL1 = "https://www.mbi-metalsource.com/charting.php?action=show&cmcode1="
URL2 = "&cmcode2=&cmcode3=&cmcode4=&cmside1=left&cmside2=left&cmside3=left&cmside4=left&cmcurrency1=default&cmcurrency2=default&cmcurrency3=default&cmcurrency4=default&cmmetric1=default&cmmetric2=default&cmmetric3=default&cmmetric4=default&"
URL3 = "&datestart=" & vonDatum & "&dateend=" & bisDatum & "&smaDays=10"
' Aufruf der Folgeseiten und Download Excel-Datei
With objEdge
For i = 1 To ThisWorkbook.Worksheets.Count - 7
' 4-stellige ID des Rohstoffs in der URL
sID1 = ThisWorkbook.Worksheets(i).Range("B3")
' Unterscheidung der Fälligkeit (Cash, CONT, ...) in der URL
sID2 = "_" & ThisWorkbook.Worksheets(i).Range("B6")
' komplette URL zusammenbasteln
adresse = URL1 & sID1 & sID2 & URL2 & URL3
'.Get "https://www.mbi-metalsource.com/"
.ExecuteScript "window.open('" & adresse & "')"
Application.Wait (Now + TimeValue("0:00:02"))
For Each oInput In .FindElementsByTag("input")
If oInput.Value = "Download" Then oInput.Click
Next
Next
End With