Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Checken, ob File auf SharePoint existiert

Checken, ob File auf SharePoint existiert
20.07.2018 14:01:42
Oliver
Hallo zusammen,
ich habe eine kurze Frage:
ich habe einen Code, der öffnet mehrere Excel sheets und kopiert daraus Werte.
Ich habe eine For schleife, da ich dies mit 12 Dateien machen muss. (alle andere Pfade und andere Namen)
Ich speichere die Pfade und Dateinamen als Strings (Ich weiß, nicht schön, aber zu mehr reichen meine Skills aktuell nicht, und ich muss fertig werden ;-))
Ich habe nun einen Check eingebaut, ob das File überhaupt existiert. Bei meinen Tests mit lokalen Pfaden (C:\…) hat das auch einwandfrei geklappt.
Nun liegen diese Dateien aber auf einem SharePoint. Alles andere funktioniert, an den Variablen kanns also nicht liegen.
Kann mir jemand einen Trick verraten?
hier mein Code Schnipsel:

For n = 1 To 12                                                                                  _
_
_
_
If Len(Dir(Projectpath(n) & Projectfile(n))) = 0 Then                                        _
_
_
_
MsgBox "The file '" & Projectfile(n) & "' can not be found "
Else

Ich meine gelesen zu haben, das "DIR" auf Sharepointseiten (URLs) nicht funktioniert... Habe aber leider keine Alternative im Kopf.
Vielen Dank für Eure Ideen
Oliver

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checken, ob File auf SharePoint existiert
20.07.2018 15:44:36
Marla
Hallo,
mit dem Code von Kenneth Hobson aus dem mrexcel forum gehts:
(https://www.mrexcel.com/forum/excel-questions/567315-check-if-url-exists-so-then-return-true.html)
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 Function
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

Anzeige
Ups falschen Namen verwendet...
20.07.2018 15:45:38
Peter(silie)
heiße hier nur Peter(silie)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge