Olá El Camilo!

Coincidentemente comecei ontem a desenvolver uma ferramenta praticamente igual, utilizando este mesmo webservice para trazer as informações de cnpj.

Ontem consegui ajustar o método para converter a resposta que vem em Json para estrutura de banco de dados, e foi bom ver seu post, pois dependendo do número do cnpj a consultar a API dá erro de Time out. A solução é utilizar o comando .SetTimeouts antes de abrir a requisição no site. No seu código ficaria:

Function URLExists(url As String) As Boolean
    Dim Request As Object
    Dim ff As Integer
    Dim rc As Variant
    
    On Error GoTo EndNow
    Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    Request.setTimeouts 3000, 3000, 3000, 3000
    With Request
      .Open "GET", url, False
      .send
      rc = .StatusText
    End With
    Set Request = Nothing
    If rc = "OK" Then URLExists = True
    
    Exit Function
EndNow:
End Function

Onde o 3000 equivale aos 3 segundos.

Abraços!

Olá Issamu.
Perfeito, era isso mesmo, apesar de que ainda fica uns 5 segundos colocando 3000.
Muito obrigado...

Postado por: @issamu

Olá El Camilo!

Coincidentemente comecei ontem a desenvolver uma ferramenta praticamente igual, utilizando este mesmo webservice para trazer as informações de cnpj.

Ontem consegui ajustar o método para converter a resposta que vem em Json para estrutura de banco de dados, e foi bom ver seu post, pois dependendo do número do cnpj a consultar a API dá erro de Time out. A solução é utilizar o comando .SetTimeouts antes de abrir a requisição no site. No seu código ficaria:

Function URLExists(url As String) As Boolean
    Dim Request As Object
    Dim ff As Integer
    Dim rc As Variant
    
    On Error GoTo EndNow
    Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    Request.setTimeouts 3000, 3000, 3000, 3000
    With Request
      .Open "GET", url, False
      .send
      rc = .StatusText
    End With
    Set Request = Nothing
    If rc = "OK" Then URLExists = True
    
    Exit Function
EndNow:
End Function

Onde o 3000 equivale aos 3 segundos.

Abraços!

Boa tarde @issamu

Por acaso você tem a ferramenta de consulta de CNPJ ainda? e poderia disponibilizar