Webquery probleem

Status
Niet open voor verdere reacties.

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
720
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

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

  • Webquery.xls
    63,5 KB · Weergaven: 14
Laatst bewerkt:
Gevonden :)

Had ervoor Application.ScreenUpdating = False staan

Hierdoor wordt het scherm dus niet geüpdatet, waardoor hij er 9 kolommen voor zette..

Vr. Gr.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan