Hi Leute,

ich habe hier ein kleines Problem, das mir Rätsel aufwirft... Und zwar geht es darum, eine Excel-Datei auf einem SharePoint mittels VBA zu öffnen und dann abzuspeichern. Das habe ich mit dem folgenden Code gelöst:

    Dim path, link, folderName As String
    
    path = "\\Pfad zum SharePoint" 'Hauptordner

    folderName = "\reports\" 'Unterordner mit unterschiedlichen Dateien

    Dim fsO1 As Object
    Dim f1 As Object
    Dim strDat1 As String
    Dim dt1 As Date
    Dim strName1 As String
    Dim strPfad1 As String
    Dim strPfadDatei1

    strPfad1 = path & folderName
    Set fsO1 = CreateObject("Scripting.FileSystemObject")
    strDat1 = Dir(strPfad1)

    Do While Len(strDat1) > 0
    Set f1 = fsO1.GetFile(strPfad1 & strDat1)
    If dt1 < f1.dateCreated Then
        dt1 = f1.dateCreated
        strName1 = f1.name
    End If
    strDat1 = Dir()
    Loop

    link = "http:" & strPfad1 & strName1
    link = Replace(link, "\", "/")
    Workbooks.Open link
    ActiveWorkbook.SaveCopyAs ThisWorkbook.path & "\materials" & folderName & ActiveWorkbook.name
    Debug.Print link
    ActiveWorkbook.Close

Zunächst sucht sich mein Code die aktuellste Datei aus dem Ordner "reports" raus. Dann öffnet er sie in Excel und speichert sie als neue Datei ab. 

Damit er überhaupt eine Verbindung zu SharePoint aufbauen kann, habe ich ein network drive angelegt. Soweit so gut, bei mir funktioniert diese Methode. Auch ein aufruf über den Direktlink zur Datei funktioniert bei mir (Workbooks.Open "http://EIN LINK"). Aber bei einem Kollegen meldet Excel an der Stelle "Workbooks.Open link" ständig den Fehler (1004), dass das Workbook nicht geöffnet werden kann.

Der Kollege hat ebenfalls ein Network Drive und kann auch voll darauf zugreifen. Ebenso auf den SharePoint selbst, das ist alles kein Problem. Nur funktioniert bei ihm weder mein Code, noch ein Aufruf des Direktlinks via VBA. Es scheint irgendein Problem mit SharePoint vorzuliegen. Weiß jemand, was man da machen kann?