d'exécution 438 sur la recherche et coller le genre

Question

Je courais le code suivant qui prend une valeur de la colonne A, les recherches sur l'URL: https://gender-api.com et renvoie le sexe de la personne et la colle dans la colonne B.

Je reçois un

run-time error 438

lors de l'exécution du code. S'il vous plaît aider.

Sub URL_Get_Gender_Query() 
    strSearch = Range("a4") 
    With ActiveSheet.QueryTables.Add(Connection:="URL;https://gender-api.com?SearchText=" & strSearch & "&safe=active", _Destination:=Range("b4")) 
     '^ Run-time error 438 here 

     .BackgroundQuery = True 
     .TablesOnlyFromHTML = True 
     .Refresh BackgroundQuery:=False 
     .SaveData = True 
    End With 
End Sub 

Answer 1

Voici une autre façon de le faire, en utilisant le WinHttpRequest object:

Dim httpRequest As Object 
Dim url As String 
Dim i As Long 
Dim jsonResponse As String 

Set httpRequest = CreateObject("MSXML2.ServerXMLHTTP") 
url = "https://gender-api.com/get?name=elizabeth" ' For example 
httpRequest.Open "POST", url, False 
httpRequest.send 
jsonResponse = httpRequest.ResponseText 
MsgBox jsonResponse