[ Πίνακες ] Εξαγωγή Πίνακα σε Excel με όνομα Ημερομηνία και Τρέχουσα ώρα

[Χρήστος]

Γεια σας
Τι προσθήκη πρέπει να κάνω στον παρακάτω κώδικα που υπάρχει πίσω από ένα κουμπί, ώστε στο αρχείο που εξάγεται (Excel 2007)πέρα απ' την ημερομηνία να μπένει και η ώρα εξαγωγής ώστε να κρατάω ιστορικό;



DoCmd.OutputTo acOutputTable, "Πίνακας", acFormatXLSX, "C:" & "\" & "ΥποφάκελοςÏ" & "\" & Format(Date, "dd-mm-yyyy") & "_" & "όνομαΑρχείου.xlsx", , , , acExportQualityPrint

[Meteora]

Καλημέρα

Μη ξεκινάς δομή ονόματος αρχείου με αριθμούς...
Δοκίμασε κάτι σαν αυτό: "όνομα αρχείου-" & mid(now(),1,16) & ".xls"

Υστερολόγιο: Η Now() γεννά χρόνο μέχρι sec. Η mid() ψαλιδίζει.


Με εκτίμηση
Νίκος

[Χρήστος]

Παλεύω να το προσαρμόσω αλλά τίποτα!!!

Κάποια άλλη πρόταση υπάρχει ώστε να αποθηκεύω κρατώντας ιστορικό

[alex]

Χρήστο καλησπέρα!!
Δοκίμασε μήπως δουλέψει αυτό

DoCmd.OutputTo acOutputTable, "Πίνακας", acFormatXLSX, "C:" & "\" & "ΥποφάκελοςÏ" & "\" & Format(Date, "dd-mm-yyyy-hh.mm") & "_" & "όνομαΑρχείου.xlsx", , , , acExportQualityPrint

Φιλικά/Αλέξανδρος

[Χρήστος]

Τελικά το καταφέρνω έτσι...Δεν ξέρω αν είναι ο καλύτερος τρόπος πάντως μπορώ να κρατάω ιστορικό!

DoCmd.OutputTo acOutputTable, "Πίνακας", acFormatXLSX, "C:\" & "Υποφάκελος\" & Format(Date, "dd-mm-yyyy") & "_ΌνομαΑρχείου_" & Hour(Time()) & Minute(Time()) & Second(Time()) & ".xlsx", , , , acExportQualityPrint

[Χρήστος]

Αλέξανδρε, δίνει: 01-07-2013-00.00_ΌνομαΑρχείου_.xlsx

[alex]

Δουλεύει δεν κατάλαβα!!
Αν δεν δουλεύει δοκίμασε με το Now
Φιλικά/Αλέξανδρος