Office: (Office 2010) Gespeicherter Export mit Datum als Prefix für den Dateinamen

Hallo zusammen,

wenn ich einen Dateiexport speichere, kann ich die Datei - imho- nur mit einem fixen Dateinamen erstellen. Folglich wird die Daei beim nächsten Export überschrieben.

Ich suche nach einer Lösung, bei der ich den Dateinamen mit dem aktuellen Datum (in der Form YYYYMMTT) als Prefix erstellen kann.

Hat jemand eine Idee? Vielleicht geht es ja mit VBA, da kenne ich mich nur leider nicht sehr gut aus...

Vielen Dank im Voraus

Andreas

:)

 

Moin,
das aktuelle Datum in der gewünschten Form bekommst du mit:
Code:

Das müsstest du dann mit dem Dateinamen verketten:
Code:

Da du nichts darüber gesagt hast, wie du den Export machst, kann ich wiederum nichts dazu sagen, ob das da einbaubar ist.
maike

 

Moin!

Danke für die Antwort! Ich habe den Export nicht per VBA, sondern über das Menü erstellt; danach bietet er die Speicherung an.

Kannst Du mir sagen, wie ich an den VBA-Code komme, um ihn mit Deinem Code zu ergänzen / zu ändern? Oder aber: Wie müsste ich ihn komplett in VBA neu aufbauen? Wie gesagt, mit VBA kenne ich mich nur bedingt aus...

Nochmals vielen Dank und Gruß nach Bremen!

 

Was exportierst du denn als was?
Eine Abfrage als Exceldatei? Einen Bericht als .pdf? ...
maike

 

Eine Tabelle als csv-Datei, das ist so vorgegeben für die weitere Bearbeitung.

 

Das ist gut. Dafür reicht wohl folgender Befehl bei Klick auf einen Button im Formular z.B.:
Code:

Wenn du noch besondere Exportformate brauchst, kannst du dir eine Exportspezifikation anlegen und speichern und nach acExportDelim den Namen in Gänsefüsschen angeben.

maike

 

Liebe Maike,

das ist genial! Vielen lieben Dank! genauso brauchte ich es!

Viele Grüße

Andreas*Smilie

 

Hallo zusammen,

habe gleiches vor, aber als xlsx.
Habe das auch schon mal als Code probiert, bekomme aber immer nur eine Fehlermeldung.

Laufzeitfehler 3625
Textdateispezifikation ....nicht vorhanden.

Private Sub Befehl9_Click()

Dim strPath As String
Dim strFile As String

strPath = "E:ObjekteTeamordner"
strFile = Format(Date, "yyyymmdd") & "_DQ_direkt.xlsx"

DoCmd.TransferText acExportDelim, "DQ_direkt für Export", "DQ_direkt", strPath & strFile, True


End Sub

Danke für eure Hilfe.

 

Moin,
xls bzw xlsx sind keine Textformate. Das Kommando dazu wäre also TransferSpreadsheet und nicht TransferText.
maike

 

Hallo maike,

danke.

Jetzt der nächste Fehler.

13 - Typen unverträglich?

text und spreadsheet - hätte ich auch selbst drauf kommen können... :-)

 

Und wie sieht der Befehl jetzt aus? Hast du (F1 ist dein Freund) darauf geachtet, dass die Argumente für TransferSpreadsheet andere sind als für TransferText?
maike

 

Hi Maike,

Auch da hast du komplett Recht...

DoCmd.TransferSpreadsheet acExportDelim, , "DQ_direkt", strPath & strFile, True

Was ist denn mit output.to ?

Es ist ja eine Tabelle die ich exportieren will ins XLSX, keine Abfrage...

Danke :-)

 

Wieso guckst du denn nicht einfach nach den Argumenten in der Hilfe?
Code:

Bei Spreadsheettype musst du deine Office-/Excel-Version angeben.
maike

 

Und genau das habe ich.

Und dort steht nur bis Excel 2003 drin...warum auch immer. Vielleicht ist bei uns irgendwas zusammen gewürfelt. Fakt ist Office 2010, die hilfe zeigt mir aber nur den Type bis 2003 an.

Grüße
wonic

 

Welche Access-Version hast du denn, wenn das 2003 ist, wird die kein Excel 2010 exportieren können.
Ansonsten kann man die Werte auch im www finden, wenn man danach sucht: https://msdn.microsoft.com/de-de/lib.../ff196017.aspx
maike