Dynamische Tabel via Excel Web Query ophalen

[CalidrisWL]

Ik heb een pagina in HTML die een tabel heeft die dynamisch wordt ingevuld aan de hand van Composite Formatting. (inlezen van de innerHTML van het bestand en deze dan via "String.Format" aanvullen met de waardes die de zaken tussen accolades ({}) moeten vervangen)

Ik probeer deze tabel op te halen en weg te schrijven naar Excel via een in VBA-code gegenereerde Web Query.

Allemaal geen probleem behalve dat de Web Query niets ophaalt buiten de namen van de kolommen en {0}, {1}, {2}, ...

Ik krijg met andere woorden geen gegevens in mijn Excel-bestand te zien.

Hieronder mijn VBA -code:

Private Sub getTable()

'Create the correct URL of the stocklist-page
Dim url As String
url = "URL;http://#####/####/###.aspx"
'create a Web Query in Sheet1 with the above URL beginning from cell A5
With Worksheets("Sheet1").QueryTables.Add(Connection:=url, Destination:=Worksheets("Sheet1").Range("A5"))
    .Name = "stockListQuery"
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = False
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables   'use only the specified table
    .WebTables = "contentTable"             'this one
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With

'Close the form
Unload Me
End Sub

Kan iemand mij hierbij helpen?

 

[CalidrisWL]

Heb de oplossing intussen gevonden.

Ik had meerdere tabellen in mijn pagina en addresseerde de foute.
Na het verwijderen van de onnodige tabellen en en het veranderen van de .WebSelectionType was alles opgelost.