Office: (Office 365) Einer Vorlage einen bestimmten Speicherordner zuteilen?

Hallo,

kann man eigentlich einer Vorlage (und nur dieser) einen Speicherordner zuteilen?

Ich weiß, dass ich in den Office-Programmen Standard-Ordner eingeben kann. Aber ginge das wohl auch für einzelne Vorlagen?
Hintergrund: Ich möchte, dass eine Vorlage, wenn diese ausgefüllt wurde und gespeichert wird automatisch (bzw. der Ordner der zum speichern vorgeschlagen wird) ein bestimmter Ordner ist. Dieser liegt auf einen Firmen-Server und soll den Vorteil haben, dass jeder, der die Vorlage ausfüllt und speichert diese in dem selben Ordner speichert, ohne diesen erst suchen zu müssen.
Weiß jemand zufällig ob das geht. Habe zwar in den Speicher-Optionen den Punkt "Speicherort für diese Datei" gefunden, der richtet sich dann aber wohl doch irgendwie dann an alle Excel-Dokumente, bzw. gibt auch keinen Ordner vor.

Vielleicht gibt es ja eine Möglichkeit.

Vielen Dank
Andreas

 

Hallo Andreas,

du kannst eine eigne VBA Prozedur schreiben, die das Speichern auf einem Netzwerklaufwerk übernimmt. Der Dateinamen kann dabei mit dem Filedialog-Objekt abgefragt werden.

Knobbi38

 

Das klingt eigentlich schon mal interessant, wenn man zum Beispiel aus Name, Vorname und Datum den Dateinamen erstellen kann und dieses dann abgespeichert wird..
Allerdings bin ich mir tatsächlich noch etwas unsicher, ob das am Ende mit dem Netzwerkordner funktioniert, da das mit Excel immer so seine Probleme macht, weil es eben ein Deutschlandweites Firmennetzwerk ist. Zwar kann ich auf einem Ordner zugreifen und dort speichern, aber wenn Excel das "von sich aus" will, gab es da in der Vergangenheit durchaus Probleme.
Aber Versuch macht kluch.

Ich kann mal in mein großes VBA Buch schauen. Gibt es da ein Befehl oder eine Bezeichnung, die mir bei der Suche weiterhilft. Unter "Speichern" habe ich in meinem Buch (Einstieg in VBA mit Excel) leider nichts gefunden, bzw. nur eine Möglichkeit einen Speichern-Dialog aufzurufen. Wäre natürlich Super, wenn er hier von sich aus schon Dateiname und Speicherort vorgibt.

 

Hallo Andreas,

so etwas hat jetzt weniger etwas mit VBA zu tun, sondern in dem Fall sollte man das Objektmodell von Excel heranziehen, denn es soll ja ein Workbook, VBA spricht englisch, gesichert werden. Also einfach in der IDE den Objektbrowser öffnen, Bibliothek auf Excel einschränken und dann nach einer Methode Save o.Ä. suchen. Für das Workbook-Objekt gibt es die Methoden „Save” und „SaveAs”, die dafür in Frage kommen könnten. Näheres kannst du in der Dokumentation nachlesen:
Worksheet.SaveAs method (Excel)

Was den Dialog betrifft, kann man erkennen, dass laut Objektbrowser eine Instanz über das Excel-Application-Objekt abgerufen werden kann. Die Dokumentation dazu findest du hier:
FileDialog object (Office)
Bei den Eigenschaften findest du die Einstellungen, um einen Pfad und einen Dateinamen vorzugeben.

Alles kein Hexenwerk, man muss nur wissen, wo man danach suchen muss.

Knobbi38

 

Vielen Dank für den Denkanstoss. Ich habe es hinbekommen.

 

Falls mal jemand das Selbe Problem hat, habe ich hier mal das Listing zu dem obigen Problem.
Hierbei wird aus den Feldern A1, A2 und A3 ein Dateiname erstellt und dann in einem zugewiesenen Ordner gespeichert.
Man kann das sicherlich noch Modifizieren in dem z.B. der Speicherort noch in einer anderen Zelle erfasst wird, oder mit einer Auswahl verschiedene Speicherort festlegt.
In diesem Beispiel wird vor dem Speichern noch überprüft, ob die Felder überhaupt ausgefüllt sind, sonst kommt es zu kryptischen Dateinamen. Dabei habe ich einmal eine Methode, die sagt, was genau noch offen ist und eine allgemeine, die halt vorgibt, dass man die drei Felder ausfüllen muß, bevor gespeichert werden kann.
Ich habe mich dann für letztere Entschieden, damit der Nutzer nicht jedes Mal nachdem er ein Feld ausgefüllt hat, gesagt bekommt, was er als nächstes vergessen hat.
Manuelles Speichern ist natürlich jederzeit möglich.

Als nächstes kann man sich noch damit auseinandersetzen, was wohl passiert, wenn der Nutzer zweimal unter selben Dateinamen speichern versucht, bzw. dass es erkennt, dass es bereits gespeichert ist.
Vielleicht kann man ja eine Variable machen, die nach dem ersten Speichern einen Wert erhält und wenn der erreicht wird, wird nur noch gespeichert.
Aber das ist eine andere Baustelle.

Code:

Felder in diesem Beispiel:
A1 = Name
A2 = Kundennummer
A3 = Lieferdatum

Sub SpeichernUnter()
Dim Dateiname As String
Dim Pfad As String

'Methode 1: Jedes Feld einzeln prüfen und mit entsprechender Nachricht ausgeben

'Prüfen ob Feld "Name" ausgefüllt ist
  If IsEmpty(Range("A1").Value) Then
        MsgBox "Bitte zunächst einen Namen eingeben."
        Exit Sub
    End If

    ' Überprüfen, ob A2 leer ist
    If IsEmpty(Range("A2").Value) Then
        MsgBox "Bitte zunächst eine Kundennummer eingeben"
        Exit Sub
    End If

    ' Überprüfen, ob A3 leer ist
    If IsEmpty(Range("A3").Value) Then
        MsgBox "Bitte das Lieferdatum eingeben"
        Exit Sub
    End If

'Methode 2:
Prüfen, ob alle Felder ausgefüllt sind und wenn eines frei ist, eine allgemeine Nachricht ausgeben:
 If IsEmpty(Range("A1, A2, A3").Value) Then
        MsgBox "Bitte zunächst einen Namen, Kundennummer und Lieferdatum eingeben. Oder manuell speichern"
       Exit Sub
    End If
'Überprüfung der benötigten Felder ENDE


' Pfad und Dateinamen zusammensetzen
Pfad = "C:/Speicherort"
Dateiname = Pfad & Range("A1").Value & ", " & Range("A2").Value & ", " & Range("A3").Value & ".xlsm"

' Arbeitsmappe im angegebenen Ordner speichern
ThisWorkbook.SaveAs Filename:=Dateiname

End Sub