Objekt erforderlich (Fehler 424)

[Ferrari 77]

Guten Tag,

jedes mal wenn ich folgenen Code ausführe kommt es zu einen Fehler, jedoch nur wenn ich Dim nehme. Was mach ich falsch?

Public Function BookTitle(isbn As String)
'Const URL As String = "https://www.googleapis.com/books/v1/volumes?q=isbn:9780134092669"
Dim URL
Set URL = "https://www.googleapis.com/books/v1/volumes?q=isbn:9780134092669"

Dim json As Object
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.SetRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
.send
Set json = JsonConverter.ParseJson(.ResponseText)
End With

BookTitle = json("items")(1)("volumeInfo")("title")
End Function

ICh bedanke mich schon mal im voraus.
MfG
Felix Sternsdorf

[Claus Busch]

Hallo,

Am Thu, 9 Jun 2022 09:52:43 -0700 (PDT) schrieb Ferrari 77:

> Public Function BookTitle(isbn As String)
> 'Const URL As String = "https://www.googleapis.com/books/v1/volumes?q=isbn:9780134092669"
> Dim URL
> Set URL = "https://www.googleapis.com/books/v1/volumes?q=isbn:9780134092669"
>
> Dim json As Object
> With CreateObject("MSXML2.XMLHTTP")
> .Open "GET", URL, False
> .SetRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
> .send
> Set json = JsonConverter.ParseJson(.ResponseText)
> End With
>
> BookTitle = json("items")(1)("volumeInfo")("title")
> End Function

eine URL ist ein String und kein Objekt. Deshalb wird der String einfach
zugewiesen und nicht über Set:

Dim URL As String

URL = "https://www.googleapis.com/books/v1/volumes?q=isbn:9780134092669"

Mit freundlichen Grüßen
Claus
--
Windows10
Microsoft 365 for business