Office: Den Abspeicher- Pfad festlegen, wie?

Hallo, ich habe folgendes Problem:

Ich habe eine umfangreiche Liste von Excel- Dateien.
Das Abspeichern erfolgt der Archivierung wegen, in verschachtelten Ordnern, mit Jahres- und Monats-Namen.

Leider muß ich mich beim Abspeichern einer jeden neu angelegten
Tabelle durch die gesamte Serverstruktur hangeln, da immer der 'Standarddatenbankordner' als Abspeicherort vorgeschlagen wird.

Ich möchte nun den Pfad aus einer Zelle immer wieder auslesen, wenn
es um die Frage des Abspeicherns geht...
(was ich ja wiederrum durch Abfragen varieren kann...
Name plus Vorname plus Datum blabla...)

Hat jemand einen Ansatz, wie das gehen könnte?
Die Namensvergabe und das Sortieren ist nicht das Problem, sondern automatisch in einen gefragten Ordner wechseln...

Grz,
j

 

Probiers mal mit
"Extras" dann "Optionen" danach Reiter "Allgemein" dort kannst du dein standart Speicherort auswählen.

Viel Glück

:-D

 

Hallo,
Danke für die schnelle Antwort.
Aber das meinte ich nicht.


Sondern meine Frage war, wie ich genau diesen Standard- Speicherort
durch einen anderen Speicherort ersetzen kann, da für jedes Dokument ein anderer Speicherort gewählt werden soll.

Beispiel:
die April- Abrechnung 2007 soll in den Ordner
...blabla\Rechnungen\Ausgang\2007\April\...
und die von März, naja, in den Ordner März :lol:
Wenn ich
...blabla\Rechnungen\Ausgang\2007\April\ als Standardspeicherort festlege, habe ich ja im Mai wieder ein Problem....


Es ist schwierig zu beschreiben......

Datei-> Speichern unter....
Dann soll folgendes dort stehen:

Aus den Zellen, in den die Daten stehen wird folgendes entnommen:
Name, Vorname und Datum
-> Speichere unter: ....blabla\Rechnungen\JAHR\MONAT\NAME_VORNAME.xls

Den String zusammensetzen ist ja kein Problem,
aber den Standardspeicherpfad überschreiben, das kriege ich nicht hin :roll:



grz,j

 

Code:

Dateipfad = "\\blabla\Rechnungen\JAHR\MONAT\"
ActiveWorkbook.SaveAs Filename:=Pfad, FileFormat:=xlNormal

Versuch das mal du musst das halt als Vba code einem Button in deiner Tabelle zuweisen

mfg Schnake

 

es klappt...

heissa, das klappt!
Zwar noch nicht so ganz so, wie ich wollte, aber es ist auf jeden Fall der richtige Weg. Ich werde mal noch ein wenig daran weiterbasteln und das Ergebnis hier dann posten, falls mal jemand anderes danach sucht.

Danke für die Tipps,

Grz, j

 

habe es hinbekommen

Hallo, habe es mit Eurer Hilfe hinbekommen: so sieht das Ergebnis aus, für alle, die es vielleicht interessiert....

Code:

' --------------------------------------------------------------
'
' Nach Drücken des Button wird der Dateiname aus dem Namen
' gebildet, der an B4 im Dokument steht. Das Datum findet sich
' unter A10.Daraus werden Jahr und Monat als String extrahiert.
' und ergeben so die Namen der Unterordner.
'
' feb07/j
' --------------------------------------------------------------

Sub Schaltfläche1_BeiKlick()
Dim dateiname As String
Dim monatsname As String
Dim jahrname As String
Dim a_datum As String
Dim name As String
Dim var As Boolean
Dim server As String

server = "P:\server1\Ablage\Ausgang\Rechnung\" 'Server- Pfad
name = ActiveSheet.Range("B4").Value '                                       Dateinamen bestimmen
var = IsNull(ActiveSheet.Range("B4").Value) '                                String enthält Daten?
a_datum = ActiveSheet.Range("a10") '                                         Datum auslesen
jahrname = Format(a_datum, "yyyy") '                                         Jahr bestimmen
monatsname = Format(a_datum, "mmmm") '                                       Monat bestimmen

MsgBox var
MsgBox a_datum
If var Then
MsgBox "bitte Namen und Datum ordnungsgemäß eintragen!"
Exit Sub
Else
  dateipfad = server + jahrname + "\" + monatsname + jahrname + "\"
    dateiname = dateipfad + name
    ActiveWorkbook.SaveAs Filename:=dateiname, FileFormat:=xlNormal
End If

End Sub

ok, ist ein wenig ausführlich, hätte nicht so viele Variablen gebraucht,
aber so ist es besser ersichtlich, wie es zustandekommt.

Die Verzeichnisse müssen natürlich zuvor so angelegt sein.
Existiert eine Datei schon, kommt eine Abfrage, ob Datei überschrieben werden soll. Ist in B4 noch kein Name eingetragen, erscheint erst eine Meldung, daß das Feld ausgefüllt werden soll. Ist natürlich ganz simpel gehalten und Fehler werden nicht abgefangen.

Die Rechnung an Herbert Test vom 19.02.2007 wird automatisch
unter dem Namen Test_Herbert.xls im Verzeichnis
P:\server1\Ablage\Ausgang\Rechnung\2007\Februar2007\ abgelegt.


Danke nochmal für Eure Hilfe,
grz,j :-D