How to " query for data from a web page"?

[i2trader]

I have several hundred fund symbols. I know how to use the Query and find the data and import it one at a time. But, is there away to do this automate this process so it runs in the back ground and refreshes the data when you open the Excel workbook? I am using excel 2003.

 

[SkipVought]

Hi,

I know how to use the Query and find the data and import it one at a time.

Turn on your macro recorder and record adding a QueryTable to a new sheet.

Post back with your recorded code.

What data element(s) will you be returning from the query?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[i2trader]

I hope this is what you needed. There is one thing I don't need that is to include the date, open etc ( the field area for every symbol) just one heading would be fine.


Date Open High Low Last Change % Change
10/21/2009 12.86 12.86 12.86 12.86 0.03 0.23%


Sub get_price()
'
' get_price Macro
' Macro recorded 10/22/2009 by George Valletta
'
' Keyboard Shortcut: Ctrl+g
'
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;

http://quote.barchart.com/quote.asp?sym=aperx&code=BSTK",

Destination:= _
Range("A1"))
.Name = "quote.asp?sym=aperx&code=BSTK"
.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 = "21"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

 

[SkipVought]

Where do you want to report EACH of the symbols? Describe.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[i2trader]

Ok this "box thing" is not exactly what I would do but it is a free trail so why not. This si a sample of the big list. I hope this is what you need.

George

 

[strongm]

Ok - you need to Share the file on Boxnet, and post the shared link, not the file manager link ...

 

[i2trader]

try this.

 

[i2trader]

Did the link work for you or is there something I am missing?

G

 

[SkipVought]

Nothing there!

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[i2trader]

help, I don't know how to do this.

 

[i2trader]

I would like to allow you to be one of my collaborators, but I can't fill out this form without your email address. Other that that I don't know what to do.

George

People you are collaborating with Import Contacts Add Collaborators Collaborators close close
Invite collaborators to share with you:
Follow these 3 quick steps to invite people to share files inside your box
1. Folder to share: Select a folder in your Box Select or create a folder to share
Or, make new folder
We'll send an invitation to collaborators you choose
2. Emails to invite:
Type emails separated by commas here___
Access type: EditorViewer
They can now share or view files in this folder with