Webquery

[Neale]

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

 

[ryguy7272]

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---

 

[Don Guillett]

Post your url for comments

 

[Neale]

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."