Forum - Εμφάνιση ενός μόνο μηνύματος

#2 03-03-09, 19:34

Καλησπέρα σε όλους!

Φίλε/φίλη Deminio,

Στο πεδίο “Αρχείο Εξόδου“ περνάς το παρακάτω (θα χρειαστεί προσαρμογή των ονομάτων):

Κώδικας:

="C:\FolderForXL\Data_"&Replace(Format(Now();"dd_mm_yy_hh:mm");":";"_")&".xls"

Ή σε VBA:

Κώδικας:

Option Explicit

Function OutputToXL()
    Dim ThePath$
    On Error GoTo ErrH
    ThePath = " C:\FolderForXL\Data_"  'όπου  "Data_" = το πρόθεμα του ονόματος του αρχείου.
    DoCmd.OutputTo acTable, "TableName", "MicrosoftExcelBiff8(*.xls)", ThePath & Replace(Format(Now, _
            "dd_mm_yy_hh:mm"), ":", "_") & ".xls", False, "", 0
OutputToXL_Exit:
    Exit Function
ErrH:
    MsgBox Err.Description
    Resume OutputToXL_Exit
End Function

Φιλικά

Θέμα: ΕΝΤΟΛΗ "Εξοδος σε"