Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Solved
VBA Excel to Log into Google
Posted on 2011-03-08
I want to open google site and click on 'Sign in' link at the top right, i want to enter Google login credentials and even checking 'Stay signed in' check box. all at a click of Command Button in Excel
I will provide the User ID and Password and Yes/No value for 'Stay signed in' checkbox in the excel spreadsheet cells itself
Want to know how to identify elements in a webpage through VBA to access
I will provide the User ID and Password and Yes/No value for 'Stay signed in' checkbox in the excel spreadsheet cells itself
Want to know how to identify elements in a webpage through VBA to access
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
13-
9
22 Comments
It is very simple :)
First open a web browser and manually click the SignIn link on top. It will take you to the Sign In page. Copy the URL and paste the URL in the code below and run it :)
Sid
First open a web browser and manually click the SignIn link on top. It will take you to the Sign In page. Copy the URL and paste the URL in the code below and run it :)
Sub LogOn()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
'~~> Paste URL here
ie.Navigate "https://www.google.com/accounts/Login?hl=en&continue=http://www.google.co.in/%23q%3Dvba%2Bcode%2Bto%2Bsign%2Bon%2Bto%2Ba%2Bwebsite%26hl%3Den%26biw%3D1280%26bih%3D619"
'~~> Wait until page is loaded.
While ie.ReadyState < 4
DoEvents
Wend
ie.Document.All("Email").Value = "USERNAME"
ie.Document.All("Passwd").Value = "PASSWORD"
ie.Document.All("signIn").Click
'~~> Wait until page is loaded.
While ie.ReadyState < 4
DoEvents
Wend
End Sub
Sid
Its navigating to -http://www.google.com/
I am in USA
I am in USA
Ok Try this. :)
Just enter the username and password int he code below.
Sid
Just enter the username and password int he code below.
Sub LogOn()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
'~~> Paste URL here
ie.Navigate "google.com"
For Each link In ie.Document.Links
If link.innerText = "Sign in" Then
link.Focus
link.Click
End If
Next
'~~> Wait until page is loaded.
While ie.ReadyState < 4
DoEvents
Wend
ie.Document.All("Email").Value = "USERNAME"
ie.Document.All("Passwd").Value = "PASSWORD"
ie.Document.All("signIn").Click
'~~> Wait until page is loaded.
While ie.ReadyState < 4
DoEvents
Wend
End Sub
Sid
IWebBrowser2?
Did you make any changes to the code? Are you sue you are not already logged in to Google?
Sid
Did you make any changes to the code? Are you sue you are not already logged in to Google?
Sid
I tested this and it is working. Could you check this for me. Please Change the Username and Password only.
Sid
Sub LogOn()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "google.com"
'~~> Wait until page is loaded.
While ie.ReadyState < 4
DoEvents
Wend
For Each link In ie.Document.Links
Debug.Print link.innerText
If link.innerText = "Sign in" Then
link.Focus
link.Click
Exit For
ElseIf link.innerText = "Sign out" Then
MsgBox "You are already signed in."
Exit Sub
End If
Next
'~~> Wait until page is loaded.
While ie.ReadyState < 4
DoEvents
Wend
On Error GoTo Sidz
Application.Wait Now + TimeValue("00:00:03")
ie.Document.All("Email").Value = "USERNAME"
ie.Document.All("Passwd").Value = "PASSWORD"
ie.Document.All("signIn").Click
'~~> Wait until page is loaded.
While ie.ReadyState < 4
DoEvents
Wend
Exit Sub
Sidz:
MsgBox Err.Description
End Sub
Sid
See the snapshot. It is working for me. I am attaching the file so that you can test it without even touching the code.
Simply Enter the USERNAME and PASSWORD in cell B1 and B2
Sid
Untitled.jpg
LogOn.xls
Simply Enter the USERNAME and PASSWORD in cell B1 and B2
Sid
Untitled.jpg
LogOn.xls
Its not working out for me, i am using Windows 7, i am having 3 browsers on my systeem-Mozilla, IE7,Chrome
Ok. I tested it in Win 7 / IE 8 / Excel 2010 and it is working fine.
Do you know how to debug the code?
Sid
Do you know how to debug the code?
Sid
Featured Post
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.
Suggested Courses
Course of the Month8 days, 18 hours left to enroll
604 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.