WUGNET, the Windows User Group Network
Your Complete Resource Center for "The Best" in Shareware, Computing Tips and Support, Windows Industry News... and much more!
Home Forums Shareware Windows Tips Hot Offers FREE Newsletters Arcade Contact Us About Partners
Search WUGNET: RSS Feeds RSS Feeds Advertise with WUGNET    |    Shareware eBooks
HomeHome FAQFAQ      ProfileProfile    Private MessagesPrivate Messages   Log inLog in

Webquery

 
   Home -> Office -> Worksheet Functions RSS
Next:  Calculating Dates  
Author Message
Neale

External


Since: Apr 02, 2007
Posts: 4



(Msg. 1) Posted: Wed Aug 20, 2008 11:22 am
Post subject: Webquery
Archived from groups: microsoft>public>excel>worksheet>functions (more info?)

I am attempting to get data from an internal webpage. When I do I get the
following message: "The page you have requested requires JavaScript to
function properly."

I am using Excel 2003 with SP3
Back to top
Login to vote
ryguy7272

External


Since: Dec 16, 2006
Posts: 828



(Msg. 2) Posted: Fri Aug 22, 2008 5:10 pm
Post subject: RE: Webquery [Login to view extended thread Info.]
Archived from groups: per prev. post (more info?)

Show the code please!! As an alternative, simply turn on the macro recorder,
and click as follows:
Data > Import External Data > New Web Query...then enter in the URL of
interest and navigate to the specific part of the site that is of interest.
I did just that, and received the following code:

Sub Macro1()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q?s=IBM", Destination:=Range("A1"))
.Name = "q?s=IBM"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """table1"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Try it and see what happens...

Regards,
Ryan---

--
RyGuy


"Neale" wrote:

> I am attempting to get data from an internal webpage. When I do I get the
> following message: "The page you have requested requires JavaScript to
> function properly."
>
> I am using Excel 2003 with SP3
>
Back to top
Login to vote
Don Guillett

External


Since: Jan 04, 2006
Posts: 5355



(Msg. 3) Posted: Sat Aug 23, 2008 7:28 am
Post subject: Re: Webquery [Login to view extended thread Info.]
Archived from groups: per prev. post (more info?)

Post your url for comments

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1.DeleteThis@austin.rr.com
"Neale" <Neale.DeleteThis@discussions.microsoft.com> wrote in message
news:D5D05060-D06C-4780-BECB-7FF82FDDA93A@microsoft.com...
>I am attempting to get data from an internal webpage. When I do I get the
> following message: "The page you have requested requires JavaScript to
> function properly."
>
> I am using Excel 2003 with SP3
>
Back to top
Login to vote
Neale

External


Since: Apr 02, 2007
Posts: 4



(Msg. 4) Posted: Mon Aug 25, 2008 9:26 am
Post subject: Re: Webquery [Login to view extended thread Info.]
Archived from groups: per prev. post (more info?)

Note this routine attempts to get data from an internal webserver that
auto-generates a webpage.:

Sub WEBQ()
'
' WEBQ Macro
' Macro recorded 8/25/2008 by Neale
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
With
ActiveSheet.QueryTables.Add(Connection:="URL;http://157.206.186.70", _
Destination:=Range("A1"))
.Name = "157.206.186.70"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Cells.Select
Application.CommandBars("Task Pane").Visible = False
End Sub

This generates: "Loading...
The page you have requested requires JavaScript to function properly."

"Don Guillett" wrote:

> Post your url for comments
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> dguillett1.TakeThisOut@austin.rr.com
> "Neale" <Neale.TakeThisOut@discussions.microsoft.com> wrote in message
> news:D5D05060-D06C-4780-BECB-7FF82FDDA93A@microsoft.com...
> >I am attempting to get data from an internal webpage. When I do I get the
> > following message: "The page you have requested requires JavaScript to
> > function properly."
> >
> > I am using Excel 2003 with SP3
> >
>
>
Back to top
Login to vote
Display posts from previous:   
       Home -> Office -> Worksheet Functions All times are: Eastern Time (US & Canada) (change)
Page 1 of 1

 
You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Categories:
 Windows XP
 Windows Vista
 Windows Other
  Office
 Office Other
 Security
 WinRAR
  • Home |
  • Shareware |
  • Windows Tips |
  • Hot Offers |
  • FREE Newsletters |
  • Arcade |
  • Forums |
  • eBooks |
  • About WUGNET |
  • Partners |
  • Contact

  • WUGNET Privacy Policy |
  • Link to WUGNET