Hello,
I appreciate any help that can be offered. Here is my scenario:
I am gathering a particular portion of text from a web query. The query is populated from a VBA Function and the use of SendKeys. (Sendkeys sometimes sends multiple characters and I am not sure why it does that either)
NOTE: I am using google as an example because the site I am pulling from is password protected. I do have full rights to the data I am collecting though.
Here are the steps I use:
Dim strLink As String
Dim blnOpening As Boolean
Dim strWebTitle As String
On Error GoTo err_handler
strLink = "weblink here"
strLink = "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strLink
strWebTitle = "Title of Website that appears on the Title bar when site is open"
Call Shell(strLink, vbMaximizedFocus)
blnOpening = True
'This is to wait for the web page to open
TWait = Time
TWait = DateAdd("s", 15, TWait)
Do Until TNow >= TWait
TNow = Time
Loop
'I read user defined function is better than using SendKeys
fSendKeys sSiteID()
fSendKeys ("{ENTER}")
' Waiting for the web page again
TWait = Time
TWait = DateAdd("s", 15, TWait)
Do Until TNow >= TWait
TNow = Time
Loop
Now I need to find a string of text, copy it, and place it in a table. I cannot seem to get the strSearchFor to find the text. I am currently utilizing IF Then Else statements to pop MsgBox and tell me if the text is found. It never is. The text always starts with “GW” and is 7 characters in total length.
Any assistance is appreciated. I am way out of my league here.
I appreciate any help that can be offered. Here is my scenario:
I am gathering a particular portion of text from a web query. The query is populated from a VBA Function and the use of SendKeys. (Sendkeys sometimes sends multiple characters and I am not sure why it does that either)
NOTE: I am using google as an example because the site I am pulling from is password protected. I do have full rights to the data I am collecting though.
Here are the steps I use:
Dim strLink As String
Dim blnOpening As Boolean
Dim strWebTitle As String
On Error GoTo err_handler
strLink = "weblink here"
strLink = "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strLink
strWebTitle = "Title of Website that appears on the Title bar when site is open"
Call Shell(strLink, vbMaximizedFocus)
blnOpening = True
'This is to wait for the web page to open
TWait = Time
TWait = DateAdd("s", 15, TWait)
Do Until TNow >= TWait
TNow = Time
Loop
'I read user defined function is better than using SendKeys
fSendKeys sSiteID()
fSendKeys ("{ENTER}")
' Waiting for the web page again
TWait = Time
TWait = DateAdd("s", 15, TWait)
Do Until TNow >= TWait
TNow = Time
Loop
Now I need to find a string of text, copy it, and place it in a table. I cannot seem to get the strSearchFor to find the text. I am currently utilizing IF Then Else statements to pop MsgBox and tell me if the text is found. It never is. The text always starts with “GW” and is 7 characters in total length.
Any assistance is appreciated. I am way out of my league here.
