Hoe krijg ik de "Bid price" van de volgende webpagina in A1
http://www.euronext.com/trader/summarizedmarket/stocks-2616-NL-NL0009758507.html?selectedMep=2
Ik gebruik excel 2010 en krijg 't niet voor elkaar.
Bvd Peter
I just recorded this. If want only bid use only table 35
Sub Macro2()
'
' Macro2 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;
http://www.euronext.com/trader/summarizedmarket/stocks-2616-NL-NL0009758507.html?selectedMep=2" _
, Destination:=Range("$A$1"))
.Name = "stocks-2616-NL-NL0009758507.html?selectedMep=2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "16,35"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
