vba Exceldatei auf Sharepoint ändern
10.05.2022 17:23:31
Road
ich habe ein Excel-Datei die auf Button-Klick ein Email verschickt, nach dem Senden sollen Daten in eine Excel-Datei auf einem Sharepoint angehängt werden. So lange das lokal auf dem Laufwerk läuft funktioniert alles einwandfrei. Sobald die URL auf den Sharepoint verweist, wird die Datei, die die Daten erhalten soll schreibgeschützt geöffnet, die Daten angehängt und der Dialog "Speichern unten" geöffnet. Ziel ist es aber, die Datei zu öffnen, die Daten anzuhängen und wieder zu schließen ohne das manuell eingegriffen werden muss.
Code
Sub kopieren()
Dim lngEinfZeile As Long
Dim wkbZiel As Workbook
Dim strDatei As String
'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False
'Zielarbeitsmappe öffnen - Pfad anpassen
strDatei = "https://anywhere.sharepoint.com/:x:/r/sites/mysite/Shared%20Documents/Spielwiese/Anlagenbesetzung_fortlaufend.xlsx"
Application.DisplayAlerts = False
Set wbkZiel = Workbooks.Open(strDatei, , False)
'letzte beschriebene Zeile in Zielarbeitsmappe in Spalte A feststellen
'und um 1 erhöhen für Einfügezeile
With wbkZiel.Worksheets("Besetzung")
lngEinfZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End With
'erste Einfügezeile = Zeile 3; prüfen und ggf. anpassen
If lngEinfZeile Kann mir jemand helfen.