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

Makro: Datei speichern im Firmennetzwerk

Forumthread: Makro: Datei speichern im Firmennetzwerk

Makro: Datei speichern im Firmennetzwerk
16.08.2005 15:59:24
Päßler
Hallo,
ich möchte ein Makro aufnehmen, das Daten aus einer Tabelle exportiert und dann auf dem Desktop des Users speichert. Schön wäre noch, wenn das Datum automatisch dem Dateinamen ergänzt würde.
Problem: Die Datei, aus der exportiert wird, wird auf einem Exchange Laufwerk eines Unternehmens liegen. Dort haben alle User Zugriff.
Der Pfad zu den individuellen Desktops der User ist im Netzwerk natürlich nicht immer gleich. Dort hänge ich gerade.
WIe heißt der Code, den ich später in die Fülle von anderen Tasks des Makros einfügen muss, um die Datei auf dem Desktop des Users abzuspeichern?
Vielen Dank
Konstantin
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: Datei speichern im Firmennetzwerk
16.08.2005 16:45:06
Werner
Hallo Konstantin
Anstatt den Laufwerksbuchstaben den Servernamen angeben. z.B.
PFAD = "\\Exchangeserver\woe\"
ActiveWorkbook.SaveAs Filename:=PFAD & "test.xls"
Gruss Werner
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Makro zum Speichern von Excel-Dateien im Firmennetzwerk

Schritt-für-Schritt-Anleitung

  1. Makro aufnehmen: Starte Excel und gehe zu „Entwicklertools“ > „Makro aufzeichnen“.

  2. Aktion auswählen: Führe die notwendigen Schritte aus, um die Daten zu exportieren.

  3. Code anpassen: Beende die Aufzeichnung und öffne den VBA-Editor (Alt + F11).

  4. Speicherort definieren: Füge den folgenden Code in das Makro ein, um die Datei im Firmennetzwerk zu speichern:

    Dim PFAD As String
PFAD = "\\Exchangeserver\woe\"  ' Servernamen anpassen
ActiveWorkbook.SaveAs Filename:=PFAD & "DeinDateiname_" & Format(Date, "YYYYMMDD") & ".xls"

  5. Makro testen: Schließe den VBA-Editor und führe das Makro aus, um zu prüfen, ob die Datei korrekt im Firmennetzwerk gespeichert wird.

Häufige Fehler und Lösungen

  • Fehler: Zugriff verweigert: Stelle sicher, dass Du die richtigen Berechtigungen hast, um im angegebenen Firmennetzwerkpfad zu speichern.
  • Fehler: Dateiname ungültig: Achte darauf, dass der Dateiname keine ungültigen Zeichen enthält. Verwende nur Buchstaben, Zahlen und bestimmte Sonderzeichen.
  • Fehler: Pfad nicht gefunden: Überprüfe, ob der Servername korrekt eingegeben wurde und ob der Pfad tatsächlich existiert.

Alternative Methoden

  • Speichern auf Netzwerkfreigaben: Du kannst auch einen Netzwerkfreigabepfad verwenden, der für alle Benutzer zugänglich ist. Der Code würde ähnlich aussehen, einfach den Pfad anpassen.

  • Benutzerdefinierte Dialoge: Erwäge, einen Dialog zu erstellen, in dem Benutzer den Speicherort auswählen können. Dazu kannst Du Application.GetSaveAsFilename verwenden.

Praktische Beispiele

  1. Datei mit Datum speichern: Der folgende Code speichert die Datei mit dem aktuellen Datum im Namen:

    ActiveWorkbook.SaveAs Filename:=PFAD & "Export_" & Format(Date, "DD-MM-YYYY") & ".xls"

  2. Makro speichern für alle Excel-Dateien: Wenn Du ein universelles Makro erstellen möchtest, das für alle Excel-Dateien funktioniert, kannst Du den Code in eine persönliche Makroarbeitsmappe (PERSONAL.XLSB) speichern.

Tipps für Profis

  • Relative Pfade: Um den Code flexibler zu gestalten, kannst Du relative Pfade verwenden, um die Dateispeicherung zu vereinfachen.
  • Fehlerbehandlung einbauen: Implementiere eine Fehlerbehandlung mit On Error Resume Next und MsgBox, um Fehler beim Speichern zu protokollieren.
  • Dokumentation: Kommentiere Deinen Code gut, damit Du und andere ihn später leicht verstehen können.

FAQ: Häufige Fragen

1. Wie kann ich den Speicherort in einem Makro dynamisch anpassen?
Du kannst den Pfad in einer Variablen speichern und diese Variable je nach Benutzer oder Bedingungen anpassen.

2. Was mache ich, wenn das Makro nicht funktioniert?
Überprüfe den Code auf Tippfehler, stelle sicher, dass alle benötigten Berechtigungen vorhanden sind und teste den Pfad in einem Windows-Explorer.

Beliebteste Forumthreads (12 Monate)

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