VBA: QueryTables - Ungültige Webabfrage

[sharequest]

Hallo zusammen,

ich versuche von nachfolgender Website einen Datenabruf per VBA zu machen:
"https://opensea.io/collection/galaxy-fight-club?collectionSlug=galaxy-fight-club&search[sortAscending]=true&search[sortBy]=PRICE&search[toggles][0]=BUY_NOW"

Code:

Sub import()
Application.DisplayAlerts = False

Dim strSuchkriterium As String

'komplette Site: https://opensea.io/collection/galaxy-fight-club?collectionSlug=galaxy-fight-club&search[sortAscending]=true&search[sortBy]=PRICE&search[toggles][0]=BUY_NOW

strSuchkriterium = Chr(63) & "collectionSlug=galaxy-fight-club&search[sortAscending]=true&search[sortBy]=PRICE&search[toggles][0]=BUY_NOW"

'BUY
    With tbl_02_Data.QueryTables.Add(Connection:= _
        "URL;https://opensea.io/collection/galaxy-fight-club" & strSuchkriterium, _
        Destination:=tbl_02_Data.Range("$A$1"))
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Application.DisplayAlerts = True
End Sub

Dabei erscheint jedoch eine Fehlermeldung "Laufzeitfehler 1004: Ungültige Webabfrage".

Meine Vermutung war, dass das Fragezeichen in der Adresse Probleme bereitet. Allerdings hilft mir Chr(63) auch nicht weiter.

Die Website "URL;https://opensea.io/collection/galaxy-fight-club" lässt sich problemlos abrufen. 

Auch ein query refresh per VBA würde funktionieren (für die lange Adresse). Das würde ich aber nur im Notfall so umsetzen wollen.

Hat jemand eine Idee, woran der Fehler liegen könnte?

Bin für jede Hilfe sehr dankbar!

Gruß Sven

[schauan]

Hallöchen,

zumindest fehlt ein ? nach club. Ob das alleine schon hilft ...

[sharequest]

Hallo schauan,

danke für deine Antwort!

das "?" ist im strSuchkriterium als Chr(63) mit enthalten, da ich vermeiden wollte, dass es als Platzhalter erkannt wird.

Habe es aber auch normal als "?" probiert. Leider ohne Erfolg. Auch wenn ich das strSuchkriterium komplett weglasse und die Adresse ausschreibe, funktioniert es nicht.

Gruß Sven

[schauan]

Hallöchen,

manuell funktioniert die Abfrage?

[sharequest]

Ja, manuell geht es. Die Abfrage lässt sich manuell auch aktualisieren.