Μεταφορά δεδομένων πεδίων σε excel

[comsup]

Καλησπέρα, από τα στοιχεία ενός πίνακα πρέπει να μεταφέρω μερικά πεδία σε αρχείο excel. Το excel υπάρχει ήδη και έχει τους τίτλους έτοιμους. Θα πρέπει με έναν αυτόματο τρόπο ο χρήστης της βάσης να μπορεί να εξάγει συγκεκριμένα (τα ίδια κάθε φορά) πεδία. Ίσως με κριτήριο ημερομηνία (που υπάρχει στις εγγραφές συμπληρωμένη ως πεδίο) για να συμπληρώνονται κάθε φορά οι νέες εγγραφές μόνο. Αν μπορεί κάποιος να βοηθήσει και χρειάζεται να διευκρινίσω κάτι, παρακαλώ βοηθήστε με

[Meteora]

Καλησπέρα

Η αλληλεπίδραση Access και Excel δεν είναι κάτι απλό. Χρειάζεται να αφιερώσει κάποιος αρκετό χρόνο για να μπορέσει να καταφέρει κάτι...
Δοκίμασε αυτό το τμήμα κώδικα:

Dim ThePath$
ThePath = Replace(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "onomaarxeio.xls", "\\", "\")
 
    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    'Σύνδεση...
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Open(ThePath)
 
    'Εισαγωγή δεδομένων στο 1ο φύλλο του βιβλίου
    Set oSheet = oBook.Worksheets(1)
    oSheet.Range("H1").Value = "ΜΕΤΕΩΡΑ"
oBook.Save  'Αν δεν υπάρχει αυτή εδω η εντολή,το Excel  ζητά επιβεβαίωση για να σωθούν οι αλλαγές
    oExcel.Quit
    Set oExcel = Nothing

Το αρχείο excel (η φόρμα σου δηλαδή) να βρίσκεται στην επιφάνεια του υπολογιστή σου κλειστό!
Εύχομαι καλή συνέχεια.

Με εκτίμηση

Νίκος Δ.