Abrir Google Chrome desde VBA/Excel

Estoy intentando abrir un navegador Chrome desde VBA. Entiendo que Chrome no es compatible con la configuración de ActiveX, por lo tanto, tengo curiosidad por saber si hay alguna solución alternativa.Abrir Google Chrome desde VBA/Excel

Dim ie As Object 
Set ie = CreateObject("ChromeTab.ChromeFrame") 
ie.Navigate "google.ca" 
ie.Visible = True

Fuente

2011-05-06 Sam

¿Puede Chrome ser el navegador estándar, o necesita abrir Chrome incluso si no es así? Si es el primer caso, supongo que podrías usar algo como ShellExecute y la URL. – Bart

shell("C:\Users\USERNAME\AppData\Local\Google\Chrome\Application\Chrome.exe -url http:google.ca")

Fuente

2011-05-06 18:38:18 ray

TRABAJADO PERFECTO TY !!! – Sam

Hola @ray, ¿y si es un sitio web dinámico? intenté con Shell (chromePath & "-url" & webaddress). Pero no pudo cargar la página, sino que solo cargó la página principal de google. – useR

¿Puede interactuar con la aplicación? Si quisiera hacer un análisis sobre el HTML devuelto, por ejemplo. – SimaPro

trabajado aquí también:

Sub test544() 

    Dim chromePath As String 

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

    Shell (chromePath & " -url http:google.ca") 

End Sub

Fuente

2012-05-07 21:04:03 ahmad

Hola @ahmad, ¿y si es un sitio web dinámico? intenté con Shell (chromePath & "-url" & webaddress). Pero no pudo cargar la página, sino que solo cargó la página principal de google. – useR

Usted puede utilizar el siguiente código VBA, e introducirlos en módulo estándar en Excel. Se puede ingresar una lista de sitios web y debe ingresarse así en la celda A1 en Excel - www.stackoverflow.com

ActiveSheet.Cells (1,2) .Value simplemente toma la cantidad de enlaces a sitios web que tiene en la celda B1 en Excel y repetirá el código una y otra vez según la cantidad de enlaces a sitios web que haya colocado en la hoja. Por lo tanto, Chrome abrirá una nueva pestaña para cada enlace de sitio web.

Espero que esto ayude con el dinámico sitio web que tiene.

Sub multiplechrome() 

    Dim WebUrl As String 
    Dim i As Integer 

    For i = 1 To ActiveSheet.Cells(1, 2).Value 
     WebUrl = "http://" & Cells(i, 1).Value & """" 
     Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & WebUrl) 

    Next 
End Sub

Fuente

2015-02-03 03:54:19 Stephen

Abrir Google Chrome desde VBA/Excel

Respuesta

Cuestiones relacionadas