Office: (Office 2013) VBA

Hallo,

ich habe heute den halben Tag versucht mir eine Funktion zu bauen, mit der ich das Speichern meiner Datei etwas vereinfachen kann.

Der bisherige Code:
Code:

So wie die Formel dort steht öffnet er automatisch das Speichern unter Fenster (was gut ist), lässt mich einen Dateinamen eingeben und nach dem Speichern heisst die Datei dann trotzdem anders. (was auch ok ist)
Ich habe nun 3 Probleme.

1. ich möchte gern das aktuelle Datum vor dem Dateinamen haben in der formatierung (YYYYMMDD), das habe ich auch schon hinbekommen allerdings speichert er mir die Datei dann ohne Dateiendung ab.

2. Ich möchte gern einen Pfad vorgeben

3. Warum zeigt er den Dateinamen, den er sich berechnet nicht auch schon in dem Speichern unter Fenster an?

Grüße

Patrick

:)

 

Hallo,

nachdem leider nicht bekannt ist, was in den einzelnen Zellen steht, die den Dateinamen ergeben, ist Hilfe nur schwer möglich. Du musst die Dateiendung aber mit dem Dateinamen mit angeben. Also versuch mal die Endung dranzuhängen.

Gruß
Steuerfuzzi

 

In den einzelnen Zellen steht "nur" Text.
Einmal ein Ort, einmal die Anzahl und einmal eine Zusammenfassung des Auftrages.
Also am Ende soll der Dateiname in etwa so aussehen:
"20170124 10x Produkt A Hamburg"
Ich hätte es so verstanden dass der String "FileFormat:=xlOpenXMLWorkbook" angibt was es für eine Dateiendung wird. Zumal es ja funktioniert solange ich nicht "Date" vor die Werte schreibe aus denen er den Namen bilden soll. Das funktioniert dann zwar, also dass er das Datum vor den Namen schreibt, aber er lässt dann halt die Dateiendung weg.

Grüße

 

Na, dann häng doch einfach ein &".xlsx" dran und gut ist.

 

Gute Idee, das funktioniert soweit.

Jetzt hab ich allerdings noch das Problem das er im Speichern unter Fenster den Namen nicht voreinträgt und dass es egal ist was ich dort angebe, es wird trotzdem mit dem namen gespeichert wie er soll.

Funktion gegeben, aber das verwirrt meine Kollegen sicherlich und ist bestimmt auch aus VBA Sicht nicht ganz sauber. *wink.gif*

Den Speicherpfad vorzuschlagen ist wohl so nicht möglich, da der Ort auf einem Netzlaufwerk liegt.

 

So, für diejenigen die es noch interessiert, ich hab es selbst gelöst.

In meinem Fall habe ich die Funktion "FileDialog" verwendet.
Dieser kann man einfach mit verschiedenen Befehlen bestimmte Werte mit auf den Weg geben.

Code:

Der Befehl ".Title" gibt dem "Speichern Unter..." Fenster einen eigenen Namen
Der Befehl ".initialFileName" gibt einen Pfad und den Dateinamen vor.

Bei mir hab ich es nun so gelöst:

Code:

Grüße und kann geschlossen werden.
*grins