We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
1 day, 13 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
Make Your Microsoft Dynamics Investment Count & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications. You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
This Micro Tutorial will demonstrate how to create pivot charts out of a data set. I also added a drop-down menu which allows to choose from different categories in the data set and the chart will automatically update.
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…
Suggested Courses
Course of the Month1 day, 13 hours left to enroll
717 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.