Ir ao conteúdo

Posts recomendados

Postado

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 ?

 

 

 

Postado

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

 

Postado

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

Crie uma conta ou entre para comentar

Você precisa ser um usuário 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 comunidades 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

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!