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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Μεταφορά δεδομένων πεδίων σε excel (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1483-metafora-dedomenon-pedion-se-excel.html)

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

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

Καλησπέρα

Η αλληλεπίδραση 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 (η φόρμα σου δηλαδή) να βρίσκεται στην επιφάνεια του υπολογιστή σου κλειστό!
Εύχομαι καλή συνέχεια.

Με εκτίμηση

Νίκος Δ.