Check if URL exists, is so then return true

[sdoppke]

Hi everyone, Im hoping someone can help me write a function (or mabe a macro?) that will check if a URL exists. If it does, would like it to return true and if it does not, then false. So I can tie the function to a cell, and have the cell return text for either answer.


Sounds pretty simple, but really stumped me. Everything i find in the forum shows how to open the URL. (dont need that).

thanks everyone in advance

sd

 

[xenou]

Well, for kicks try:

    With Request
      .Open "GET", url, False
      .Send
      rc = .StatusText
      [COLOR="Red"]msgbox .StatusText[/COLOR]
    End With

See if we're getting through ...

 

[sdoppke]

Well, for kicks try:

    With Request
      .Open "GET", url, False
      .Send
      rc = .StatusText
      [COLOR=red]msgbox .StatusText[/COLOR]
    End With

See if we're getting through ...

Comes back, unauthorized... hmmmmmmm. I can open the file though?

sd

 

[xenou]

I would guess it's a matter of how you authenticate yourself to the sharepoint server - possibly your browser uses an authentication method that the vba code doesn't. But I'm guessing. I really don't know much about sharepoint. It's certainly not a surprising result - though not one you want to get here.

 

[Kenneth Hobson]

I don't use sharepoint but you could try:

MsgBox Dir("http://Directory1/Directory2/Directory3/File.xlsx")

if empty, the file does not exist. If not empty, the file was found.

 

[secureseven]

I have uses this code:

Function Test_URLExists() Dim url As String url = "http://www.mrexcel.com/forum/showthread.php?t=567315" MsgBox url, vbInformation, URLExists(url) url = "http://xwww.mrexcel.com/forum/showthread.php?t=567315" MsgBox url, vbInformation, URLExists(url)End FunctionFunction 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 FunctionEndNow:End Function</pre>

yes ive used this macro and formula and it works
you just have to change the formula to where your data is
so i have in the formula =urlexisits(A1&B1&C1)

 

[sanju1993]

for what even a valid URL i am getting the result as false. Please help me out

 

[balanaga]

not sure if it was answered, your excel returns false due to authorization issue.