Office: Datei auf Sharepoint bearbeiten

Mr_Venom · 13. Januar 2019

Hallo Zusammen,

hat jemand von euch schon Erfahrungen mit SharePoint gemacht? Ich habe eine Exceldatei, welche eine Email verschickt und danach soll diese auf eine Datei im SharePoint was eintragen. Die Liste ist eine ganz normale Exceldatei. Mit Workbooks.open bekomme ich beim eintragen ein Laufzeitfehler.

Hat jemand schon Erfahrungen gesammelt?

Grüße
Venom

:)

Muecke.1982 · 15. Januar 2019

Hey Venom,

mit SharePoint meinst du den OneDrive?

ich habe da schon was gemacht, ich schreibe in eine Excel Datei die auf dem OneDrive ligt jedoch immer in ein ListObjects.

Gruß Mücke

[EDIT]

Ich hoffe das hilft die weiter.

Code:

' Parameter Pfad und Datei einlesen
Dim Pfad As String
Dim Datei As String
Pfad = "C:....OneDrive..."
Datei = "Muster.xlsx"

' Externe Excel Datei Initialisieren
Dim exapp_ws As Worksheet
Dim exapp As New Application
Dim MyList As Object
Set exapp = New Excel.Application ' Neue Excel Instanz eröffnen
exapp.Workbooks.Open Pfad & Datei ' Quelldatei öffnen
Set exapp_ws = exapp.Worksheets("Adressen") ' Quell Tabellenblatt angeben...
Set MyList = exapp_ws.ListObjects("DB_Adressen") ' Zeiger auf Tabelle in Externe Datei

' Eingabe Schreiben

MyList.DataBodyRange.Cells(1, 1) = "neuer Text" ' in Ziel Tabelle in Zelle 1, 1, schreiben

' Externe Datei Speichern & Schließen
Set exapp_ws = Nothing ' Variable Leeren
exapp.Workbooks(Datei).Close Savechanges:=True ' Quelldatei Speichern
exapp.Quit ' Quelldatei Schlissen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ungetestet ist aus einem anderen Projekt heraus kopiert.

[/EDIT]

Mr_Venom · 16. Januar 2019

Hay danke für deine Antwort.
Also ich habe jetzt Testweise ganz einfach mal versucht mit:

Code:

Dim Pfad As string
Pfad="xxxxxx"
Workbooks.open Pfad
Workbooks("Datei.xlsx").Worksheets("Tabelle1").Range("A1").Value = "Test"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was eintragen können ohne Laufzeitfehler. Komisch war früher hat er immer einen Laufzeitfehler gebracht. Vllt hatte ich einen Tippfehler.
Mit dem Code:
Code:

Workbooks("Datei.xlsx").Close SaveChanges:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

versuche ich die Datei zu aktualisieren bzw. zu speichern. Hier bringt er eine Fehlermeldung bzw. will einen neue Datei anlegen. Ich vermute da die Datei vorher Schreibgeschützt von Server geöffnet wurde

Muecke.1982 · 16. Januar 2019

Das freut mich das du die Lösung gefunden hast.

ich würde noch die Datei in eine Variable stecken dann musst du diese auch nur einmal im Code ändern und nicht an mehreren Stellen :-).

Code:

Sub test_Datei()

Dim Pfad As String
Dim Datei As String
Pfad = "C:UsersXX_XXDesktop"
Datei = "Datei.xlsx"

Workbooks.Open Pfad & Datei
Workbooks(Datei).Worksheets("Tabelle1").Range("A1").Value = "Test"

Workbooks(Datei).Close SaveChanges:=True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Mücke

Mr_Venom · 23. Januar 2019

Also ich habe eine Lösung gefunden. Wieso habe ich nicht früher den Makrorecorder verwendet *biggrin.gif*
1. am SharePoint aus und einchecken für die Datei deaktivieren
Nun öffnet sich die Datei schreibgeschützt auf den Server
2. wb.LockServerFile 'Datei entsperren
Nachdem habe ich immer eine Meldung bekommen
Code:

"Teile ihres Dokuments enthalten möglicherweise persönliche Informationen, die von der Dokumentprüfung nicht entfernt werden können."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Am Anfang wollte ich mit einen Enterdruck die Msgbox bestätigen aber das ganze hat nicht so wirklich funktioniert. Danach habe ich in den Einstellungen->Datenschutz->Option: Beim Speichern persönliche Daten aus Dateieigenschaften entfernen deaktiviert.
Nun lässt sich die Datei auf den SharePoint bearbeiten.

Vielen Dank für deine Unterstützung. Ich habe dadurch viel gelernt *Smilie

Grüße

Office: Datei auf Sharepoint bearbeiten

Datei auf Sharepoint bearbeiten

Datei auf Sharepoint bearbeiten

Datei auf Sharepoint bearbeiten

Datei auf Sharepoint bearbeiten - Similar Threads - Datei Sharepoint

Aufrufen Datei aus SharePoint per VBA

sharepoint - Dateien in Desktopapps öffnen

Was zu tun ist, wenn eine infizierte Datei in SharePoint Online, OneDrive oder Microsoft Teams ...

Outlook kann keine OneDrive- oder SharePoint-Dateien an E-Mails anfügen

Inhalt einer Text Datei vom Sharepoint einer Variablen zuweisen

Per VBA eine Datei aus SharePoint herunterladen

Benachrichtigung wenn in Sharepoint Ordner neue Dateien hochgeladen wurden