Putting Value in Text box in VBA - Google Alerts

[ddotson]

Hello all

I am attempting some code that will utilize Excel, go out to Google Alerts, add an alert, go back to the spreadsheet, offset to the row below, capture this string, and add the next alert (loop through the list in the column).. I have not yet completed the loop part, as I am stuck on the first input box?


Looking at the element that I am trying to manipulate, I get the following information

'input type="text" placeholder="Create an alert about..." aria-label="Create an alert about..." class tabindex="0"'

So, I do not have a name to work with?


I have the following code, which of course throws an error:




Sub GoogleAlerts()

Dim IE As Object

Dim Alert As String


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True


Sheets("Sheet1").Select

Range("A2").Select

Do Until ActiveCell.Value = ""

Alert=ActiveCell.Value
ActiveCell.Offset (1,0).Select


IE.navigate "https://www.google.com/alerts"

Application.Wait Now + TimeValue("00:00:02")

IE.document.all("query_div").Value = Alert

Loop

End Sub


Any help would be appreciated!

 

[ddotson]

I have found the solution to completing the textbox with:

IE.document.getElementById("search_box").getElementsByTagName("input")(0).Value = "John Deere"


Now, I am trying to get the page to move to the next step, which will allow me to create the alert by clicking an actual named button - ha ha.. If anyone can help me fire off this "form" so it gets to the next step, that would be great!

 

[ddotson]

Can anyone help me out with the AfterUpdate method of making the web page move to the next step? After I fill in the search box in Google Alerts with the string I want to add to the alert, the page will not move to the next step, i.e., show me the Create Alert button. I believe the AfterUpdate is the way to handle this, per my research last night, although I am not sure how to use it...

Thanks!

 

[ddotson]

This code works! So, if you need to add a bunch of alerts to Google Alerts - this code will allow you to do so by placing your alerts in Column A (under your header). The code assumes that you are already signed into Google Alerts with the email account to which the alerts will be sent.


Sub GoogleAlerts()

Dim IE As Object

Dim Alert As String


Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True



IE.navigate "https://www.google.com/alerts" 'load the Google Alerts page

Do
DoEvents
Loop Until IE.readyState = 4

Application.Wait Now + TimeValue("00:00:05")

'This is where we start the Loop

Sheets("Sheet1").Select

Range("A2").Select

Do Until ActiveCell.Value = ""

Alert = ActiveCell.Value


IE.document.getElementById("search_box").getElementsByTagName("input")(0).Value = Alert

IE.document.all("create_alert").Click


Sheets("Sheet1").Select
ActiveCell.Offset(1, 0).Select


Loop


MsgBox "Done, *****"


End Sub

 

[2020spencer]

恒生指數期貨及期權

恒生指數期貨及期權市場數據

www.hkex.com.hk

Thank you for your sharing/.

I am also facing similiar problem/.

<div class="mssval">
<span class="fr mss_list mss_text">從</span>
<input type="text" class="mss_list val valstart" aria-label="Strike From">
<span class="to mss_list mss_text">至</span>
<input type="text" class="mss_list val valend" aria-label="Strike To">
</div>

Do u get any idea?

Thank you

 

[2020spencer]

Loop

ie.document.getElementByClass("mssval").getElementsByTagName("input")(0).Value = "11000"

does not work