Get Excel/VBA to fetch data from webpage?

[bompa]

Is there anyway to do anything of this described below. I Would be very very thankful.

1. I would like Excel/VBA to go to an adress like this..

http://www.afv.se/aktie/arkiv/20020327k_isin.xls

and fetch the one where 20020327 is the date of today. Get that data into Excel and open it..

2. Is there some else way to automatic get stock data to excel?
Examples?

/Thank you very much in advance!

 

[Loomah]

Try using this. In stDate I've changed the Day from now to now - 7 as there is no data available for the last week. This is mainly (almost totally!!) recorded so you might want to look into it further.


Sub GetWebData()
Dim stDate As String

On Error GoTo Mash

ChDir ThisWorkbook.Path
stDate = Format(Year(Now), "####&quot & Format(Month(Now), "0#&quot & Format(Day(Now) - 7, "0#&quot

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;

http://www.afv.se/aktie/arkiv/"

& stDate & "k_isin.xls", _
Destination:=Worksheets("Data&quot.Range("A1&quot)
.Name = stDate & "k_isin"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingRTF
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With

Exit Sub
Mash:
MsgBox "Error : " & Err.Description

End Sub