QueryTables URL generating a Google search "Site:" gets "Google Instant is Unavailable" message.

Snakebitten

New Member
Joined
Apr 21, 2014
Messages
3
Hi, I'm running a QueryTables.Add(Connection:="URL".. that generates a Google site: search.
It works fine on my laptop computer, generating the results I expect (the indexed URLs on a site). However, on my desktop, which is a faster machine, I am only generating this Google message:

Google Instant is unavailable. Press Enter to search. Learn more
Google Instant is off due to connection speed. Press Enter to search.
Press Enter to search.

How can I prevent this from happening?

In the code, ActiveCell.Offset(0, 0).Value = any domain name like "WWW.mydomain.com"

Here is the code:
___________________________________________________________________________________
'
Dim TheURL
Dim URL_Address
Dim URL_Sheet

TheURL = "http://www.google.com/search?q=site%3A"
TheURL = TheURL & ActiveCell.Offset(0, 0).Value

URL_Sheet = ActiveSheet.Name
URL_Address = ActiveCell.Address
Sheets("SiteLookup").Select
Range("A1").Select

ActiveCell.Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & TheURL, Destination:=ActiveCell)
.Name = "q?s=glqry_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'
 

Excel Facts

Does the VLOOKUP table have to be sorted?
No! when you are using an exact match, the VLOOKUP table can be in any order. Best-selling items at the top is actually the best.
I did more investigation. This problem is happening with any Google query generated thru the QueryTables.Add(Connection:="URL" command in VB. I checked all of the parameters for Google search and there was nothing to turn off Google instant search. Is it possible to set up some sort of cookie to turn it off. Very frustrating!
 
Upvote 0

Forum statistics

Threads
1,223,236
Messages
6,170,915
Members
452,366
Latest member
TePunaBloke

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top