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

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



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

Καλημέρα

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

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


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

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

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

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

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

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