View Single Post
  #10   Report Post  
Posted to microsoft.public.excel.programming
tanso tanso is offline
external usenet poster
 
Posts: 1
Default How locate connection information for web query?

The site was never changed for my case..yesterday, the xp computer
did a windows update automatically without my knowledge and the site I
used to query for years returned this same message that there was no
data.. I know it is due to critcal security updates of the service
packs.. I am still trying to find a quick solution without me having
to re-install or repair the xp window operating system...Any help
would be appreciated

"Don Guillett" wrote in message ...
Might be because the site changed. goto it manually and see what you get.

--
Don Guillett
SalesAid Software

"James" wrote in message
...
I'd be careful about using WebQueries for anything serious. I have been

using
them for more than 6 months now in Excel 2003, and 2 days ago my query
suddenly stopped working. You get a silly error message "The internet site
reports that a connection was established but the data is not available".
Nothing about this error in the Knowledge Base. There are about 20 posts
about this problem in several MSDN newsgroups, and nobody ever got an

answer
that solved their problem. The only answer I saw is "make sure your URL
includes .html".

"quartz" wrote:

I am new at working with web queries, and I am attempting to build some

code
that will download stock quotes. I know that there are some canned

programs
out there, but I want to learn by building this myself. Some of my VERY

basic
code so far is below.

QUESTION: The one question that I can't seem to find any discussions on

is
how the heck does one locate the connection string to connect, say, to
Yahoo.com or to Microsoft.com to import stock info?

Set qts = ActiveSheet.QueryTables
Set qt = qts.Add("URL;
http://www.HOW DO i FIND WHAT THE HECK GOES HERE",
Application.Range(ActiveCell.Address))
With qt
.WebSelectionType = xlSpecifiedTables
'.WebTables = "1"
.WebFormatting = xlWebFormattingAll
.RefreshStyle = xlOverwriteCells
.BackgroundQuery = False
.AdjustColumnWidth = True
.Refresh 'BackgroundQuery:=False
End With

Please help and be gentle to this starter...thanks in advance.