Hallo miteinander,
mit dem Code unten teste ich, ob eine Internet-Seite existiert. Es funktioniert alles, wenn ich von Hand im VBA-Editor \Extras \Verweise und dann die aktuellste "Microsoft WinHTTP Services Version" auswähle.
Diese Auswahl der Referenz möchte ich nun in VBA automatisieren, so dass meine Datei auch funktioniert, wenn sie auf einem anderen Rechner geöffnet wird, auf dem die Referenz nicht gesetzt ist.
Sachdienliche Hinweise sehr willkommen,
Danke
Fred
Hier mein Code:
Dim oURL As New WinHttpRequest
On Error GoTo TestURL_Err
With oURL
.Open "GET", strURLToTest, False
.Send
TestIfURL_Exists = (.Status = 200)
End With
TestURL_Err:
Set oURL = Nothing