Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA copy in Sharepoint

Forumthread: Excel VBA copy in Sharepoint

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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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.
Anzeige
;
Anzeige

Infobox / Tutorial

Excel VBA: Dateien in SharePoint kopieren

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Neues Modul erstellen: Rechtsklicke im Projektfenster auf dein Projekt und wähle Einfügen > Modul.

  3. 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

  4. Pfad anpassen: Ersetze den destFile Link mit dem tatsächlichen Link deiner SharePoint-Ordnerstruktur.

  5. 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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige