Boa noite,
O provedor da API definiu um limite de 20 registros no json. Por exemplo tenho 415 registros. Teria alguma forma de pegar todos os registros via GET sem limite?
{"offset":0,"limit":20,"total":415,"hasNext":true,"content":[{"id":5816515,"
Private Function GetResponse(ByVal url As String) As String
Const RunAsync As Boolean = True
Const ProcessComplete As Integer = 4
Sheets("getLayer").Select
'Limpa área que irá receber os dados
Worksheets("getLayer").Range("A1:C1000").ClearContents
Dim request As MSXML2.XMLHTTP60
Set request = New MSXML2.XMLHTTP60
Dim response, result As String
Dim procura As Variant
With request
.Open "GET", url, RunAsync
.setRequestHeader "Content-Type", "application-json"
.send
Do While request.readyState <> ProcessComplete
DoEvents
Loop
response = .responseText
Set request = Nothing
End Function
Se a API já definiu esse limite de 20 por requisição vc não vai conseguir puxar todos de uma vez, está fora do seu controle.
Porém, certamente tem a possibilidade de fazer mais de uma requisição , tipo pega 20 , depois os próximos 20 e etc..
Leia a documentaçao da API que deve explicar como fazer.