Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
COURSE of the MONTH
14 days, 8 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
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
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This article descibes how to create a connection between Excel and SAP and how to move data from Excel to SAP or the other way around.
Do you use a spreadsheet like Microsoft's Excel? Have you ever wanted to link out to a non excel file on your computer or network drive? This is the way I found to do it!
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
Suggested Courses
Course of the Month14 days, 8 hours left to enroll
770 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.