Excel VBA copy in Sharepoint

Forumthread: Excel VBA copy in Sharepoint

17.03.2022 11:55:32

Jens

Hallo zusammen,
in bin recht neu in dem Umfeld VBA und habe nichts passendes gefunden.
Ich möchte eine Datei, die lokal auf der Festplatte (z.B: c:\tmp\test.xlsm) liegt nach Teams/Sharepoint kopieren.
In Teams bekomme ich den folgenden Link angezeigt, wenn ich mit die Datei anzeigen lasse.
https://xxx.yyy..com/:x:/s/Ordner/ETs2hlgahaRGmajf9zzr_OIBnJYMZ4LZe1AGU7k8ea_Gwg?e=7bVZlQ
Wie kann ich im VBA die Datei c:\tmp\test.xlsm in Teams/Sharepoint ersetzten?
Danke für die Hilfe
Jens

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel VBA copy in Sharepoint

17.03.2022 19:16:29

ralf_b

AW: Excel VBA copy in Sharepoint

17.03.2022 19:16:29

ralf_b

du könntest dir den link nehmen ,der die Datei im sharepoint zeigt und nciht die über den Teams-Umweg.
Datei in Teams öffnen, dann in Desktop App öffnen. dort dann Menü Datei Informationen. dort dürfte ein Eintrag "Link" vorhanden sein, welcher auf web=1 endet.
das entfernst du und hast einen Datei link.
Alles ohne Gewähr.

Infobox / Tutorial

Excel VBA: Dateien in SharePoint kopieren

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

VBA-Editor öffnen: Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Neues Modul erstellen: Rechtsklicke im Projektfenster auf dein Projekt und wähle Einfügen > Modul.

Code einfügen: Füge folgenden Code in das Modul ein, um die Datei nach SharePoint zu kopieren:

Sub CopyToSharePoint()
   Dim sourceFile As String
   Dim destFile As String

   sourceFile = "C:\tmp\test.xlsm" ' Pfad zur lokalen Datei
   destFile = "https://xxx.yyy..com/:x:/s/Ordner/ETs2hlgahaRGmajf9zzr_OIBnJYMZ4LZe1AGU7k8ea_Gwg" ' Link zur SharePoint-Datei

   ' Kopieren der Datei
   FileCopy sourceFile, destFile

   MsgBox "Datei erfolgreich kopiert!"
End Sub

Pfad anpassen: Ersetze den destFile Link mit dem tatsächlichen Link deiner SharePoint-Ordnerstruktur.
Makro ausführen: Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.

Häufige Fehler und Lösungen

Fehler: Zugriff verweigert: Stelle sicher, dass Du die richtigen Berechtigungen für den SharePoint-Ordner hast.
Fehler: Datei nicht gefunden: Überprüfe den Pfad zur lokalen Datei. Achte darauf, dass die Datei existiert.
Fehler: Ungültiger Link: Verwende den Link, der auf web=1 endet, wie von ralf_b empfohlen, und entferne diesen Teil.

Alternative Methoden

Verwendung von PowerShell: Du kannst auch PowerShell verwenden, um Dateien nach SharePoint zu kopieren. Dies ist besonders nützlich, wenn Du mehrere Dateien gleichzeitig verschieben möchtest.

Beispiel:
```
$sourceFile = "C:\tmp\test.xlsm"
$destUrl = "https://xxx.yyy..com/sites/DeinSite/Ordner/test.xlsm"

Add-PnPFile -Path $sourceFile -Folder "Ordner"
```
SharePoint Sync: Synchronisiere deinen SharePoint-Ordner mit dem lokalen Computer und kopiere die Datei einfach in den synchronisierten Ordner.

Praktische Beispiele

Beispiel für die Verwendung von vba dir sharepoint: Um alle Dateien in einem SharePoint-Ordner aufzulisten, könntest Du eine Schleife verwenden:

Sub ListFilesInSharePoint()
  Dim folderPath As String
  folderPath = "https://xxx.yyy..com/sites/DeinSite/Ordner/"

  Dim fileName As String
  fileName = Dir(folderPath & "*.*")

  Do While fileName <> ""
      Debug.Print fileName
      fileName = Dir
  Loop
End Sub

Tipps für Profis

VBA OkCancel: Verwende MsgBox mit den Optionen vbOKCancel, um Benutzer zu fragen, ob sie die Datei wirklich kopieren möchten:

Dim response As Integer
response = MsgBox("Möchten Sie die Datei kopieren?", vbOKCancel)

If response = vbOK Then
   ' Kopiercode hier einfügen
End If

Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um sicherzustellen, dass Dein Makro robust gegen Fehler ist.

FAQ: Häufige Fragen

1. Wie finde ich den richtigen SharePoint-Link? Um den richtigen Link zu finden, öffne die Datei in SharePoint, gehe zu den Dateieigenschaften und suche nach dem Eintrag "Link", der auf web=1 endet.

2. Kann ich mehrere Dateien gleichzeitig kopieren? Ja, Du kannst eine Schleife verwenden, um mehrere Dateien aus einem lokalen Verzeichnis in die SharePoint-Ordnerstruktur zu kopieren.

Beliebteste Forumthreads (12 Monate)