Excel VBA Verificar URL sem abrir página

[Crafteribanez]

Boa Tarde

 

Preciso no Excel2010 verificar a existência de uma URL e se for "true" continuar com o código, más não quero abrir o navegador padrão.

 

Consegui o seguinte código na Web que verifica a URL, retorna true ou false porém ele abre o navegador.

Porque não quero que abra, simples porque fiz uma macro com Loop For de 1 até 600 para buscar informações de sites e a cada true ele abre o site, ou seja terei no mínimo 600 abas do navegador abertas. Por isto não quero que abra, somente retorne true ou false.

 

O código que consegui foi este:

Function DoesHTTPFileExist(ByVal inlink As String) As Boolean
    On Error Resume Next
    ThisWorkbook.FollowHyperlink (inlink)
    DoesHTTPFileExist = Err.Number = 0
End Function

Funciona perfeito, porém abre todas as url válidas.

Tentei comentar as linhas más não funcionou.

Alguma ideia ?

 

 

 

[Basole]

Experimente esta função: 

 

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")

    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

 

[Crafteribanez]

Bom utilizei esta função, porém ela só dá retorno falso.

A url colocada na célula B2 é a mesma colocada na célula B4 com a função DoesHTTP retorna Verdadeiro, com a função URLExist retorna falso.

Tenho que alterar algo ?