Ciao
Spero tu sappia qualcosa di programmazione.
Leggi attentamente quanto riportato ad inizio codice, relativamenbte ai riferimenti da spuntare in VB.
In sintesi, quelle due checkBox si chiamano:
- ctl00$ContentPlaceHolder1$CBAccetto1
e
- ctl00$ContentPlaceHolder1$CBAccetto2
mentre il pulsante accetto si chiama:
- ctl00$ContentPlaceHolder1$Button1
una volta individuati, si spuntano i primi due e si clicca sul terzo (vedi macro).
Prova ad eseguire questa procedura per controllare se accedi.
Saluti
Sub MercatoElettrico()
'NOTA BENE: Vuole riferimenti a: _
- Microsoft Internet Controls _
- Microsoft HTML Objects Library
Dim mURL As String
Dim mPage As MSHTML.HTMLDocument, mIE As New SHDocVw.InternetExplorer
Dim mInput As MSHTML.HTMLInputElement, mCollection As MSHTML.IHTMLElementCollection
Set mIE = CreateObject("InternetExplorer.Application")
k = 0
With mIE
.Navigate "http://www.mercatoelettrico.org/It/Esiti/MGP/EsitiMGP.aspx"
.Visible = True
Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Set mPage = .Document
Set mCollection = mPage.getElementsByTagName("INPUT")
Z = 0
For Each mInput In mCollection
If mInput.Name = "ctl00$ContentPlaceHolder1$CBAccetto1" Then
mInput.Checked = True
k = k + 1
End If
If mInput.Name = "ctl00$ContentPlaceHolder1$CBAccetto2" Then
mInput.Checked = True
k = k + 1
End If
If mInput.Name = "ctl00$ContentPlaceHolder1$Button1" Then
mInput.Click
k = k + 1
End If
If k = 3 Then Exit For
Next mInput
End With
'mIE.Quit
Set mIE = Nothing
End Sub[Modificato da dodo47 13/03/2019 12:14]
Domenico
Win 10 - Excel 2016