navigare su Chrome

[scanacc]

Buonasera, vorrei sapere se è possibile trasformare questo codice che naviga su IE in un codice che naviga in Chrome.

Codice: Seleziona tutto

Sub NAVIGA()
myURL = "https://www.xxxxxxxxxx.it/lr/home"

If Sheets("GERARCHIA").Range("H3").Value = "" Then
Exit Sub
Else
If Sheets("GERARCHIA").Range("H2").Value = "" Then
Exit Sub
End If

'
If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.Application")
'
With IE
    .Navigate myURL
    .Visible = True
    Do While .Busy: DoEvents: Loop    'Attesa not busy
    Do While .ReadyState <> 4: DoEvents: Loop 'Attesa documento
End With



myLogin = Sheets("Firme").Range("D1").Value
myPassw = Sheets("GERARCHIA").Range("H3").Value

IE.document.all("username").Value = myLogin
IE.document.all("password").Value = myPassw



Set myColl = IE.document.getElementsByClassName("button-wrap")
myColl(0).getElementsByTagName("button")(0).Click
Do While IE.Busy: DoEvents: Loop    'Attesa not busy


IE.Navigate Sheets("Firme").Range("F1").Value


Set IE = Nothing
End If
End Sub

Grazie per l'attenzione

[Anthony47]

Per quanto ne so Chrome non ha una libreria di comandi che si integri nel vba.
Ricordo un componente che si chiamava Selenium e aveva proprio l'obiettivo di interagire con browser diversi da IE; pero' vedo che da oltre 2 anni non viene aggiornato: https://github.com/florentbr/SeleniumBasic

Ciao

[scanacc]

Anthony, fino a qui ci sono arrivato:

Codice: Seleziona tutto

Sub LANCIA()

  Dim chromePath As String

  chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

  Shell (chromePath & " -url https://www.xxxxxx.it")
            Do Until ReadyState = 4
            DoEvents
            Loop


End
End Sub

... ma non so come andare avanti.
Hai altri spunti da darmi?

[scanacc]

Anche così

Codice: Seleziona tutto

Sub apri_link()
Dim Indirizzo As String

Indirizzo = "http://www.tiscali.it"
ActiveWorkbook.FollowHyperlink (Indirizzo)
End Sub

Stessa cosa però ... non so come andare avanti

[Anthony47]

Se vuoi lanciare Chrome ci sono vari metodi
-Shell
-FollowHyperlink
-ShellExecute (se Chrome e' il default web browser)

Ma come detto, Chrome non ha una sua libreria per interfacciare il vba, quindi "ad oggi" non puoi accedere al contenuto della pagina aperta e intetragire con i suoi contenuti come fai usando IE.
Puoi pero' aprire la pagina, aspettare un tot di secondi e dare per scontato che la pagina diventi pronta, e poi usare SendKeys per inviare alla cieca (cioe' senza poter verificare l'esito del comando) i comandi accettati da Chrome, ad esempio per selezionare la pagina, copiarla e incollarla su un worksheet; da qui poi estrapolare i soli contenuti che ti interessano, ad esempio una tabella.

Ciao