Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speichern wenn Pfad existiert.

Speichern wenn Pfad existiert.
12.01.2007 10:30:25
Jürgen
Hallo Excel Experten.
Für eine Datei über die Eingaben in eine Datenbank auf unserem Server erfolgen möchte ich folgendes erreichen:
Beim Öffnen dieser Eingabedatei soll sie sich automatisch unter demselben Namen (Eingabe.xls) auf der lokalen Festplatte des Users speichern. Und zwar unter dem Pfad D:\Verwaltung\Eingabe.xls
Das ist soweit kein Problem, allerdings kann es vorkommen, das der Ordner "Verwaltung" nicht bei jedem User auf dem Laufwerk "D" existiert (das Laufwerk schon).
Also müßte vor dem Speichern geprüft werden, ob der Pfad D:\Verwaltung existiert. Ist dies der Fall wird die Datei gespeichert, falls nicht wird der Ordner zunächst angelegt und die Datei dann gespeichert.
Wäre nett, wenn mir bei dem Problem jemand helfen könnte.
Gruß, Jürgen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern wenn Pfad existiert.
12.01.2007 11:36:30
haw
Hallo Jürgen
hier eine mögliche Lösung:
in das Klassenmodul der Arbeitsmappe:

Private Sub Workbook_Open()
MakeSureDirectoryPathExists "D:\Verwaltung\"
ThisWorkbook.SaveCopyAs Filename:="D:\Verwaltung\" & ThisWorkbook.Name
End Sub

in ein Standardmodul:
Option Explicit
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Gruß Heinz
AW: Speichern wenn Pfad existiert.
12.01.2007 12:01:45
Jürgen
Hallo Heinz.
Funktioniert ausgezeichnet!
Vielen Dank dafür!
Gruß, Jürgen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige