I've come across some other discussions on the same topic, but I haven't been able to find a clear answer. I would really appreciate it if someone could assist me with this problem.
I'm trying to integrate RapidAPI into my VBA code in Excel to retrieve WhoIs information for domain names listed in column A and populate the API response in column B. However, I can't seem to get it to work correctly. Can anyone provide some guidance?
Source:
Function GetWhoIs(DomainName As String)
Dim json, Url, params As String
Dim jsonObject, objHTTP, strResult, objetoJson As Object
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Url = "https://jsonwhois.p.rapidapi.com/api/v1/whois/"
objHTTP.Open "GET", Url, False
objHTTP.setRequestHeader "authorization", "Token token=xxxxxxxxxxxxxxxxxx"
objHTTP.setRequestHeader "x-rapidapi-host", "jsonwhois.p.rapidapi.com"
objHTTP.setRequestHeader "x-rapidapi-key", "xxxxxxxxxxxxxxxxxxxxxxxx"
params = "domain=" + DomainName
objHTTP.Send (params)
strResult = objHTTP.responseText
json = strResult
Set objetoJson = JsonConverter.ParseJson(json)
GetWhoIs objetoJson
End Function
Sub combine()
Dim a As String
For Each a In Range("A2:A50")
If Not IsEmpty(a.Value) Then
Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = GetWhoIs(a.Value)
Next a
End Sub