Office: Speichern unter Makro: automatisch relative Pfadangabe?

happy8 · 12. März 2006

Hallo zusammen,

habe folgendes schon unter nem anderen thread gefragt, hat aber nicht ganz zum topic gepasst also versuch ich´s so noch mal:

Bei meinem Speichern unter Makro wird sporadisch ein "falscher" Pfad im aufkommenden Fenster angezeigt. Also anstatt den Pfad unter welchem die Datei aufgerufen wurde wird Eigene Dateien angezeigt.
Das ist ein Problem, da ich mich durch viele Ordner durchhangeln muss um ans Ziel zu kommen.

Das unten ist der Code, wäre froh wenn sich den jemand ansehen und mir auf die Sprünge helfen könnte.

Grüße Happy8

Code:

Sub speichern_unter()
Dim Neuer_Dateiname As String
Dim Datum As String
Dim Datum2 As String
Dim DatumRg As String

Datum = Format(Range("H23").Value, "YYYY.MM.DD") 'alternativ "YYYYMMDD" oder "YY_MM_DD"
Datum2 = Format(Range("H24").Value, "YYYY.MM.DD") 'alternativ "YYYYMMDD" oder "YY_MM_DD"
DatumRg = Format(Range("H22").Value, "YYYY.MM.DD") 'alternativ "YYYYMMDD" oder "YY_MM_DD"

If Datum2 = "" Then
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Datum & "__" & "RgDatum_" & DatumRg & "_" & "RgNr_" & Range("C23") & ".xls")
If Neuer_Dateiname = "Falsch" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
Else
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Datum & "-" & Datum2 & "__" & "RgDatum_" & DatumRg & "_" & Range("C23") & ".xls")
If Neuer_Dateiname = "Falsch" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Sonba · 14. März 2006

Hast du mal versucht den Pfad vorher über ThisWorkbook.Path abzufragen un dann einfach manuell anzugeben?

User · 14. März 2006

Servus!

Für den Parameter "InitialFileName" kann auch ein Pfad angegeben werden.

z. B. :
Code:

test = Application.GetSaveAsFilename("C:\Windows\temp\")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In diesen wird dann immer gesprungen. In der folgenden Variante wird damit immer das Verzeichnis der aktuellen Arbeitsmappe angezeigt:

Code:

test = Application.GetSaveAsFilename(ThisWorkbook.Path)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und einen Dateinamen dran hängen kann man dann natürlich immer noch.

Gruß

Thomas

happy8 · 14. März 2006

Hi ThePaFa,

ich glaube deine zweite Codezeile ist das was ich gesucht habe.
Könntest du mir noch mit der Syntax helfen? Ich bekomm das ThisWorkbook.Path nicht richtig eingebaut...

Code:

Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Datum & "__" & "RgDatum_" & DatumRg & "_" & "RgNr_" & Range("C23") & ".xls")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was anderes, kennst du eine gute Seite wo ich solche Sachen nachschauen kann? Die Excel-VBA Hilfe ist zur Zeit hier nicht installiert... *entsetzt

Vielen Dank schon mal!

User · 14. März 2006

Servus!

Code:

Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Thisworkbook.Path & "\" & Datum & "__" & "RgDatum_" & DatumRg & "_" & "RgNr_" & Range("C23") & ".xls")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So eine Webseite wie du da suchst suche ich auch schon lange ... wenn du was findest sag mir bescheid. Ansonsten hilft da nur ein gutes Buch! *Smilie

Gruß

Thomas

happy8 · 14. März 2006

Juhu, jetzt wird endlich mal Ordnung in diesen Betrieb gebracht und einige hundert Rechnungen geschrieben!

Herzlichen Dank an alle!

Übrigens, ich hab´s tatsächlich auch alleine hinbekommen, müsste eigentlich das selbe sein:

Code:

ChDir ThisWorkbook.Path

Datum = Format(Range("H23").Value, "YYYY.MM.DD") 'alternativ "YYYYMMDD" oder "YY_MM_DD"
Datum2 = Format(Range("H24").Value, "YYYY.MM.DD") 'alternativ "YYYYMMDD" oder "YY_MM_DD"
DatumRg = Format(Range("H22").Value, "YYYY.MM.DD") 'alternativ "YYYYMMDD" oder "YY_MM_DD"

If Datum2 = "" Then
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Datum & "__" & "RgDatum_" & DatumRg & "_" & "RgNr_" & Range("C23") & ".xls")
If Neuer_Dateiname = "Falsch" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Speichern unter Makro: automatisch relative Pfadangabe?

Speichern unter Makro: automatisch relative Pfadangabe?

Speichern unter Makro: automatisch relative Pfadangabe?

Speichern unter Makro: automatisch relative Pfadangabe?

Speichern unter Makro: automatisch relative Pfadangabe? - Similar Threads - Speichern Makro automatisch

Speichern mit dem Titel der Zelle A2

Speicherung von Makros gültig für alle Word-Dateien

Arbeitsmappe automatisch speichern und schließen nach Zeit x

automatisches Speichern per Makro mit dynamischen Dateinamen

Datei mit Makros automatisch speichern

Problem mit Makro - Excel hängt sich bei automatischem Speichern auf

Makro "Speichern unter" startet automatisch