Loesung: Sharepoint Datei existiert?
21.04.2020 15:35:23
MRUTor
fuer alle, die interessiert sind. Fuer Sharepoint Dateien.
Ich habe eine hilfreiche Funktion gefunden (endlich eine, die auch funktioniert) die feststellt, ob eine Datei auf dem vorgegebenen Pfad im vorgegebenen Ordner existiert. Man braucht dazu lediglich die https Adresse, also die URL der Datei. Die bekommt man leicht durch einen Debug.Print in der jeweiligen Datei, z.B.:
Sub URL_Datei()
Debug.Print ThisWorkbook.FullName
End Sub
Diesen dann als String an diese Funktion uebergeben:
Public Function F50_check_SP_File_Exists(URLStr As String) As Boolean
Dim oHttpRequest As Object
If Len(Trim(URLStr)) = 0 Then F50_check_SP_File_Exists = Empty: Exit Function
Set oHttpRequest = CreateObject("MSXML2.XMLHTTP.6.0")
With oHttpRequest
.Open "GET", URLStr, False ', [UserName], [Password]
.SetRequestHeader "Cache-Control", "no-cache"
.SetRequestHeader "Pragma", "no-cache"
.Send
End With
If oHttpRequest.Status = 200 Then
F50_check_SP_File_Exists = True
Else
F50_check_SP_File_Exists = False
End If
Set oHttpRequest = Nothing
End Function
und False or True abfragen. Z.B. so:
Sub start()
Dim strfile As String
strfile = "https://deine URL/deine Datei.xlsx"
If F50_check_SP_File_Exists(strfile) = False Then
MsgBox "File does not exist"
Exit Sub
Else
'was auch immer du machen willst
End If
End Sub
Viel Spass und Gruss Tor aus MRU