I am creating code that goes into my company's online system, but it can only be accessed by Google Chrome.
The code to open Chrome is this:
Sub Chrome()
Dim GC As Object
Dim WebUrl As String
Dim NavigatorAddress As String
Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Set GC = CreateObject("InternetExplorer.Application")
Let WebUrl = "http://endereço/do/sistema"
Shell (NavigatorAddress & " -url " & WebUrl)
GC.Document.all("vUSU_CODIGO").innerText = "login"
GC.Document.all("vSENHA").innerText = "sennha"
GC.Document.all("vUSU_CODIGO").form.all("BUTTON1").Click
End Sub
The code opens Chrome on the right link and everything else, but I can not complete the login or the password.