Mappe und PDF auf Sharepoint uploaden
06.11.2018 23:02:38
Oisse
ich habe folgendes Problem. Meine Excelmappe steht in SharePoint 365. Diese öffne ich, weil sie Makros enthält, mit meinem Excel Desktop. Das funktioniert alles einwandfrei.
Wenn ich jetzt aber ein Backup im angelegten Backup-ordner auf SharePoint machen möchte, funktioniert das nicht. Auch wenn ich ein PDF erzeugen möchte und es im Dateipfad der SharePoint Mappe in einem Ordner ablegen möchte funktioniert das nicht.
Fehlermeldung: Das Dokument wurde nicht gespeichert. Das Dokument ist möglicherweise geöffnet oder es ist beim Speichern ein Fehler aufgetreten.
Wie also, bitte muss ich vorgehen, damit ich einen Upload auf SharePoint durchführen kann? Wie kann ich das ansprechen.
Hier mal der Code für das Backup:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim SavePath As String
Dim FileName As String
Dim FileExtension As String
Dim FileDate As String
Dim FileBackupName As String
Dim FileUsername As String
Dim Kopien As Long
Dim Datei As String
Dim DatAlt As String
Dim DateiL?sch As String
Dim x As Long
Dim Z?hler As Long
Kopien = 10 'Anzahl der Backups im Ordner
SavePath = ThisWorkbook.Path & "\Backup\"
FileName = left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
FileExtension = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") + 1)
FileUsername = Environ("UserName")
FileDate = Format(Now, "YYYYmmdd_hhmmss")
' --- letztes Backup l?schen
x = Len(FileName & "_" & FileUsername & "_") + 1
DatAlt = "ZZZ"
Datei = Dir(SavePath & FileName & "_" & FileUsername & "_*." & FileExtension)
Do While Datei ""
Z?hler = Z?hler + 1
If Mid(Datei, x) Vielen Dank schon mal und ich hoffe, ihr könnt helfen.
Gruß Oisse