Ir ao conteúdo
  • Cadastre-se
Crafteribanez

Excel VBA Verificar URL sem abrir página

Recommended Posts

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 ?

 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 ?

 

VBACodigo.PNG.63067b283de38c7dc278babe21fe467b.PNG59b98b6344d03_UrlWeb.PNG.b0f750f87c12c057274da8b77c17614e.PNG

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×