Goedemorgen allen weer,
Zit met een vraagje. Heb een webquery gemaakt en haal gegevens van internet.
Tot dusver gaat het goed.
Hij zet de gegevens neer, maar het probleem is dat iedere keer als ik hem gebruik hij 9 kolommen er voor zet.
Iemand een iedee om dat te voorkomen?
Iedere keer als ik hem gebruik zou die op dezelfde plek het neer moeten zetten.
Al many thanks bij voorbaat.
Vr. Gr.
Dutch
ff vb-tje bijgevoegd
Zit met een vraagje. Heb een webquery gemaakt en haal gegevens van internet.
Tot dusver gaat het goed.
Hij zet de gegevens neer, maar het probleem is dat iedere keer als ik hem gebruik hij 9 kolommen er voor zet.
Iemand een iedee om dat te voorkomen?
Iedere keer als ik hem gebruik zou die op dezelfde plek het neer moeten zetten.
Al many thanks bij voorbaat.
Vr. Gr.
Dutch
Code:
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.belegger.nl/koersen/Indices.aspx", Destination _
:=Range("A5"))
.Name = "koersen-indices.index" ' INDICES
.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
ff vb-tje bijgevoegd
Bijlagen
Laatst bewerkt: