Beiträge zum Thread: Word Serienbrief mit Excel in SharePoint

Zur Info:
https://learn.microsoft.com/de-de/answers/questions/5918370/word-serienbrief-mit-excel-in-sharepoint

Stört sich niemand daran, dass man in einer Cloud basierten Ablage wie SharePoint einen Serienbrief mit Word und Excel nur über eine lokale Kopie in OneDrive lösen kann?

Hallo Beat,

- uns Helferlein stört nicht, daß Du auch woanders um Hilfe nachsuchst
- sondern das Du das still und heimlich tust, ohne irgendeine Info dazu
- da aber viele der hier Helfenden auch in anderen Foren aktiv sind
- kommt sowas raus und hat 1 Gschmäckle

Gruß von Luschi
aus klein-Paris

Warum sollte das stören ?

die aktuell gültigen Daten runterladen, packen, sortieren...
im serien-brief Abarbeiten, und dann lokale Kopie löschen..

was ist daran jetzt schlimm?

Hi Marc,

wenns so einfach is, dann zeig doch auch ma ne Lösung mit HTTP/HTTPS-Zugriff auf die zu runterladenden Date(eie)n, und nich mit lokalem Zugriff a la C:\Ordner\Datei

Ciao
Thorsten

z.B.

hier muss aber der Zugriff/Auth auf Sharepoint schon über die Windows/Benutzer Anmeldung (z.B. Auch Citrix) erfolgt sien..

Sub DownloadFile()

    Dim url As String, target As String

    Dim http As Object, stream As Object



    url = "https://tenant.sharepoint.com/sites/DeineSite/Freigegebene%20Dokumente/Test.xlsx"

    target = "C:\Temp\Test.xlsx"



    Set http = CreateObject("MSXML2.XMLHTTP")

    http.Open "GET", url, False

    http.Send



    If http.Status = 200 Then

        Set stream = CreateObject("ADODB.Stream")

        stream.Type = 1 'binary

        stream.Open

        stream.Write http.responseBody

        stream.SaveToFile target, 2 'overwrite

        stream.Close

    Else

        MsgBox "Fehler: HTTP " & http.Status & vbCrLf & http.responseText

    End If

End Sub

Für modernes SharePoint Online ist der stabilere Weg über Microsoft Graph

schön, auch ich bedanke mich, weil ich ja nachgefragt hatte.

Ich selbst kann den Code nicht auf die gewünschte Funktionalität prüfen, da ich kein OneDrive nutze.
Aber der eigentliche Fragesteller kann deinen Code ja testen und wird sich bestimmt bedanken, wenns denn funktioniert.

but by the way

Kannst du denn auch eine stabilere Lösung über Microsoft Graph zeigen, da du dies ja selbst bevorzugen würdest?

Hi Beat,

es gab mal den Befehl "SUBST", der beim PC-Start mit ausgeführt werden musste.
Funktion: es wurde ermöglicht einen beliebigen Netzwerkpfad per Laufwerksbuchstabe anzusprechen.

Wenn du deine xls- und word-dateien per Laufwerkbuchstaben ansprechen kannst, sollte das helfen.

Beispiel um Laufwerk "T" einzurichten: SUBST T: \\Servername\Users\......

Kann es leider nicht mit sharepoint testen.

Gruß,
Firmus

... lokale Verwurstelungen ...

****************************************
C:\...>subst /?
Weist einem Pfad eine Laufwerkbezeichnung zu.

SUBST [Laufwerk1: [Laufwerk2:]Pfad]
SUBST Laufwerk1: /D

Laufwerk1: Bezeichnung für virtuelles Laufwerk, die dem Pfad
zugewiesen werden soll.
[Laufwerk2:]Pfad Physisches Laufwerk und physischer Pfad, die dem
virtuellen Laufwerk zugewiesen werden sollen.
/D Hebt die Zuordnung für das (virtuelle) Laufwerk1
wieder auf.

SUBST ohne Parameter zeigt die mit SUBST erstellten, virtuellen Laufwerke an.

****************************************
URL's verbindet man mit net use - ob das allerdings bei sharepoint funktioniert ...

net use X: "https://...sharepoint.com/..." /persistent:yes

Herzlichen Dank für eure Hilfe, trotz meines Crossposting, dass ihr mir konstruktive Vorschläge gebt, werde sie prüfen.

Entschuldigung, war schon lange nicht mehr in einem Forum aktiv.