Tjek om link/webside findes?
I VB-Excel skal jeg tjekke om et link findes... altså om linket rent faktisk er rigtigt.Til det har jeg fundet følgende kode:
Function HttpExists(sURL As String) As String
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
If Not UCase(sURL) Like "HTTP:*" Then
sURL = "http://" & sURL
End If
On Error GoTo haveError
oXHTTP.Open "HEAD", sURL, False
oXHTTP.send
HttpExists = IIf(oXHTTP.Status = 200, "OK", "Not OK")
Exit Function
haveError:
HttpExists = "Not OK"
End Function
Men oXHTTP.Status returnere "not allowed" og fejl 405
Jeg har forsøgt at finde andre måder at tjekke om et link findes, men uden held.
Findes der en anden metode, eller er der fejl i min kode?
