wir sind vor kurzem auf Sharepoint umgezogen und seit dem funktioniert eine Datei nicht mehr.
Über eine Userform werden bestimmte Werte aus Excel angezeigt. Zusätzlich wird aus einer Ordnerstruktur ein Bild angezeigt und die Dateien aufgelistet die sich in diesen Ordner befinden.
Die Programmierung hängt sich immer an der DIR-Funktion auf. Öffne ich den Pfad über wshshell.Run wird er korrekt angezeigt.
Hier ein Auszug aus der Datei
Sub Bild_laden()
strPath = "https://sharepoint.com/.../.../"
ImagePfad = strPath & TextBox1 & "/" & TextBox1 & ".jpg"
If Dir(ImagePfad) = "" Then
Frame2.Picture = LoadPicture("") 'kein Bild
Frame1.Caption = "Bild" 'Bildtext setzen
Else
Frame2.PictureSizeMode = fmPictureSizeModeStretch 'Bild auf Rahmen einpassen
Frame2.Picture = LoadPicture(ImagePfad) 'Bild hochladen
Frame1.Caption = "Bild zu Mat.-Nr.: " & TextBox1 'Bildtext setzen
End If
'Dateien aus Ordner der SAP-Nr lesen
Dim Datei
Dim Ordner
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
Me.ListBox2.Clear
SAP_Nr = TextBox1 & "/"
If Dir(strPath & SAP_Nr) = "" Then
ListBox2.Clear
Else
For Each Datei In FSO.getfolder(strPath & SAP_Nr).Files
Me.ListBox2.AddItem Datei.Name
Next
For Each Ordner In FSO.getfolder(strPath & SAP_Nr).subfolders
Me.ListBox2.AddItem Ordner.Name
Next
End If
End Sub
Wie bekomme ich per VBA den Pfad korrekt aufgelistet?Im Pfand sind keine Leer- oder Sonderzeichen enthalten
Danke für Eure Hilfe
Gruß
Manuel Sauer