Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

navigare su Chrome

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

navigare su Chrome

Postdi scanacc » 06/06/18 23:14

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
scanacc
Utente Senior
 
Post: 252
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: navigare su Chrome

Postdi Anthony47 » 07/06/18 01:09

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
Avatar utente
Anthony47
Moderatore
 
Post: 17170
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: navigare su Chrome

Postdi scanacc » 08/06/18 23:43

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
Utente Senior
 
Post: 252
Iscritto il: 06/12/15 10:30

Re: navigare su Chrome

Postdi scanacc » 08/06/18 23:57

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 :oops: :oops: :oops:
scanacc
Utente Senior
 
Post: 252
Iscritto il: 06/12/15 10:30

Re: navigare su Chrome

Postdi Anthony47 » 09/06/18 12:03

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
Avatar utente
Anthony47
Moderatore
 
Post: 17170
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "navigare su Chrome":

Fenomeno strano in Chrome
Autore: gimart
Forum: Discussioni
Risposte: 2
AIUTO GOOGLE CHROME
Autore: themisterx
Forum: Software Windows
Risposte: 1
crash chrome
Autore: Katti
Forum: Sistemi Operativi Windows
Risposte: 3

Chi c’è in linea

Visitano il forum: Marius44 e 44 ospiti