Datei wird im Sharepoint nicht gespeichert
18.05.2018 13:01:00
torro100
mit u.g. Code öffne ich eine Excel Datei, die in einem SharePoint liegt.
Er öffnet, kopiert, sortiert und löscht wie ich es möchte.
Wenn es aber um das Speichern und Schliessen geht, bleibt er stehen.
Bekomme keine Fehlermeldung, die Datei ist einfach offen mit dem gerade kopierten Eintrag.
Ich habe irgendwo etwas mit WebDav und SharePoint gehört, kann das aber nicht zuordnen, geschweige denn hier im Abschnitt Datei speichern und schliessen anwenden.
Bin für jede Hilfe dankbar.
vg
Mike
Sub export_NDL_ChargeBack()
Dim strDatei, wks As Worksheet, wb As Workbook
Dim lastrow As Long
'Reportzeile kopieren
ActiveWorkbook.Unprotect Password:="xxx"
Worksheets("assumptions").Rows(120).Copy
Workbooks.Open "SharePoint Path include filename.xlsm"
'nächste freie zeile suchen
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox "Lastrow is " & lastrow
Application.EnableEvents = False
Application.ScreenUpdating = False
'Daten kopieren
Cells(lastrow + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
'sortieren und Dubletten löschen
Range("A5:S500").Select
ActiveWorkbook.Worksheets("overview").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("overview").Sort.SortFields.Add Key:=Range("A5:A500" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("overview").Sort.SortFields.Add Key:=Range("S5:S500" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("overview").Sort
.SetRange Range("A5:S500")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A5:S500").Select
ActiveSheet.Range("$A$4:$S$500").RemoveDuplicates Columns:=1, Header:=xlYes
Range("A4").Select
'Datei speichern und schliessen
wks.Parent.Close saveChanges:=True
Set wks = Nothing
ActiveWorkbook.Protect Password:="xxx"
End Sub